dubbele gegevens contrtole bij invoer 2

[RSpan]

Nu dacht ik dat ik het door had maar bij een volgend formulier gaat het toch fout.

Het betreft een TblPatienten bij het invul formulier moet er gekeken worden naar naam, plaats en geboortedatum.

Dus heb ik de volgende code gebruikt:

Private Sub Geb_datum_AfterUpdate()
Dim strSQL As String

Dim dtDatum As Date
Dim iDatum As Double
dtDatum = CDate(Me.Geboortedatum)
iDatum = CDbl(dtDatum)

strSQL = "SELECT Achternaam_client, PlaatsenID, Geboortedatum FROM TblPatienten" & vbCrLf
strSQL = strSQL & "WHERE Achternaam_client =" & Me.Achternaam & vbCrLf
strSQL = strSQL & "AND PlaatsenID =" & Me.PlaatsenID & vbCrLf
strSQL = strSQL & "AND Geboortedatum = CDate(" & iDatum & ") "

 With CurrentDb.OpenRecordset(strSQL)
     If .RecordCount > 0 Then
          MsgBox "Deze cliënt is mogelijk al ingevoerd"
     End If
 End With

End Sub

Bij compileren krijg ik geen fout melding, maar bij het invullen van het formulier krijg ik na geb.datum de melding "er zijn te weinig parameters, verwachte aantal is: 2"
Wanneer ik dit zonder achternaam doe gaat het goed, dus de fout moet in die regel zitten.
Ga ik echter met mijn muis op "Me.Achternaam" staan dan verschijnt er Me.Achtyernaam="Bakker"
dus worden er wel gegevens op gehaald,

Michel kun je me nog een keer uit de brand helpen??

Groet
René


Volgens mij heeft het te maken met de tekst die niet als tekst gezien wordt.

de naam verschijnt in de test query zonder " " hoe moet ik dat doen?

strSQL = strSQL & "WHERE [Achternaam client] =" & Me.Achternaam & vbCrLf

Deze regel moet aangepast denk ik maar ik weet niet hoe.

Iemand een idee??

 

[RSpan]

Nu dacht ik dat ik het door had maar bij een volgend formulier gaat het toch fout.

Het betreft een TblPatienten bij het invul formulier moet er gekeken worden naar naam, plaats en geboortedatum.

Dus heb ik de volgende code gebruikt:

Private Sub Geb_datum_AfterUpdate()
Dim strSQL As String

Dim dtDatum As Date
Dim iDatum As Double
dtDatum = CDate(Me.Geboortedatum)
iDatum = CDbl(dtDatum)

strSQL = "SELECT Achternaam_client, PlaatsenID, Geboortedatum FROM TblPatienten" & vbCrLf
strSQL = strSQL & "WHERE Achternaam_client =" & Me.Achternaam & vbCrLf
strSQL = strSQL & "AND PlaatsenID =" & Me.PlaatsenID & vbCrLf
strSQL = strSQL & "AND Geboortedatum = CDate(" & iDatum & ") "

 With CurrentDb.OpenRecordset(strSQL)
     If .RecordCount > 0 Then
          MsgBox "Deze cliënt is mogelijk al ingevoerd"
     End If
 End With

End Sub

Bij compileren krijg ik geen fout melding, maar bij het invullen van het formulier krijg ik na geb.datum de melding "er zijn te weinig parameters, verwachte aantal is: 2"
Wanneer ik dit zonder achternaam doe gaat het goed, dus de fout moet in die regel zitten.
Ga ik echter met mijn muis op "Me.Achternaam" staan dan verschijnt er Me.Achtyernaam="Bakker"
dus worden er wel gegevens op gehaald,

Michel kun je me nog een keer uit de brand helpen??

Groet
René


Volgens mij heeft het te maken met de tekst die niet als tekst gezien wordt.

de naam verschijnt in de test query zonder " " hoe moet ik dat doen?

strSQL = strSQL & "WHERE [Achternaam client] =" & Me.Achternaam & vbCrLf

Deze regel moet aangepast denk ik maar ik weet niet hoe.

Iemand een idee??

dit is de uitkomst

SELECT [Achternaam client], PlaatsenID, Geboortedatum FROM TblPatienten
WHERE [Achternaam client] =Bakker
AND PlaatsenID =2
AND Geboortedatum = CDate(10959)

Waarbij Bakker dus tussen quoooooootjes moet komen maar dat lukt me niet

Helluuuup

 

[RSpan]

dit is de uitkomst

SELECT [Achternaam client], PlaatsenID, Geboortedatum FROM TblPatienten
WHERE [Achternaam client] =Bakker
AND PlaatsenID =2
AND Geboortedatum = CDate(10959)

Waarbij Bakker dus tussen quoooooootjes moet komen maar dat lukt me niet

Helluuuup

Tis gelukt
Oplossing:

strSQL = "SELECT [Achternaam client], PlaatsenID, Geboortedatum FROM TblPatienten" & vbCrLf
strSQL = strSQL & "WHERE [Achternaam client] ='" & Me.Achternaam & "' " & vbCrLf
strSQL = strSQL & "AND PlaatsenID =" & Me.PlaatsenID & vbCrLf
strSQL = strSQL & "AND Geboortedatum = CDate(" & iDatum & ") "

Prettig weekend
Allemaal:thumb: