Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Dubbele invoer  (gelezen 4129 keer)

0 leden en 1 gast bekijken dit topic.

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Dubbele invoer
« Gepost op: 25 december 2015, 19:05:56 »
Weet niet of dit kan, is eigenlijk een luxeprobleem.

Mijn programma loopt zoals gewenst dankzij dizzl.

Graag zou ik willen weten of wat ik nu vraag mogelijk is.
Controle bij invoer nieuw lid.
Vermijden van dubbele gegevens
tblLeden: Lidnr, Achternaam, Voornaam, Straat, Nummer enz.

Bij het invoeren van Achternaam, Voornaam, bij enter om verder te gaan.
Pop-up venster deze persoon bestaat reeds, Lidnr …. Achternaam …. Voornaam …. Geboortedatum

Op deze manier kan men de ingave van verplichte velden  afbreken en eerst nakijken in het formulier Wijzigen of het degelijk deze persoon is en de gegevens aanpassen, zo niet gewoon het formulier verder invullen en dat de pop-up sluit.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Dubbele invoer
« Reactie #1 Gepost op: 26 december 2015, 19:56:50 »

Als Voornaam wordt ingevuld na Achternaam doe je bij het verlaten van veld achternaam (Na bijwerken)

Dim aantal as Integer
Aantal = dCount("Lidnr","tblLeden","Vooornaam='" & voornaam & "' AND achternaam ='" & Achternaam &"'"
if Aantal>0 then
   msgBox "Er bestaat al een lid met deze voornaam en achternaam"
end if

Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: Dubbele invoer
« Reactie #2 Gepost op: 26 december 2015, 20:26:20 »
Heb "Lidnr" vervangen door "VolgNr"
gezien dit bij mij zo in gebruik is. heb beide getest.
Knipsel 2 waar ik het geplaatst heb.
Knipsel 1 fout gegeven.
Waarschijnlijk heb ik iets te kort gezet.

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: Dubbele invoer
« Reactie #3 Gepost op: 26 december 2015, 20:59:48 »
Eerste foutje gevonden, sluitings haakje ")"
Bij Voornaam stonden er ooo, ééntje weggelaten.

Het gaat om de invoer bij Toetredend,dus wel tblLeden en de QueryToetreLid.
Heb ik het ")" verkeerd geplaatst dat het niet achteraan moet?
Aantal = dCount("Lidnr","tblLeden","Voornaam='" & voornaam & "' AND achternaam ='" & Achternaam &"'")

Doet nu niets meer, als ik het ")" verwijder geeft het een compileerfout.
« Laatst bewerkt op: 26 december 2015, 21:22:54 door vop »

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Dubbele invoer
« Reactie #4 Gepost op: 26 december 2015, 21:47:21 »
idd ik had een haakje tekort en een 'o' teveel in voornaam. Daarom is het makkelijker als je een vbtje toevoegt.

Het doet niets zolang er in tblLeden geen lid zit met een zelfde achternaam en voornaam hé?
Anders wel?

Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: Dubbele invoer
« Reactie #5 Gepost op: 26 december 2015, 22:27:35 »
Het doet helemaal niets.
Heb getest op mijn naam en er komt geen reactie.
Nochtans sta ik in de lijst.
« Laatst bewerkt op: 26 december 2015, 22:34:12 door vop »

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: Dubbele invoer
« Reactie #6 Gepost op: 26 december 2015, 23:23:06 »
De gegevens staan er in, maar lukt niet om te doen werken.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Dubbele invoer
« Reactie #7 Gepost op: 27 december 2015, 08:19:46 »
Mijn fout ...
Achternaam komt voor voornaam => natuurlijk checken als je het veld voornaam verlaat.

Private Sub Voornaam_AfterUpdate()
    Dim aantal As Integer
    aantal = DCount("VolgNr", "tblLeden", "Voornaam='" & Voornaam & "' AND achternaam ='" & Achternaam & "'")
    If aantal > 0 Then
       MsgBox "Er bestaat al een lid met deze voornaam en achternaam"
    End If

End Sub







Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: Dubbele invoer
« Reactie #8 Gepost op: 27 december 2015, 09:22:47 »
 :D
Nogmaals dank.
Getest en het werkt
 

 


www.combell.com