wat gaat er hier fout

[dinoshop]

Private Sub Werknemer_AfterUpdate()
Dim strSQL As String

strSQL = "SELECT Roepnaam,uren,datum FROM TblPlanning "
strSQL = strSQL & "WHERE werknemer = '" & Me.Werknemer & "' " & vbCrLf
strSQL = strSQL & "AND uren = " & Me.Aanv__G_ & "'" & vbCrLf
strSQL = strSQL & "  And datum = #" & CDate(Me.Datum) & "# " & vbCrLf
Dim tmp
 tmp = InputBox("", "", strSQL)


 With CurrentDb.OpenRecordset(strSQL)   dit wordt geel als ik de msgbox lees staat alles netjes 
     If .RecordCount > 0 Then
          MsgBox "Dit record bestaat al"
     Else
          'het record opslaan
     End If
     
 

 End With

End Sub

 

[Prodejojo]

Kweet nie, ik snap nooit iets van die dingen maar ik denk dat er iets fout is gegaan

 

[OctaFish]

@ Prodejojo: ik weet niet of TS met jouw antwoord nu héél erg veel opschiet...
Bovendien is makkelijk te zien waar het fout gaat. In deze regel:

strSQL = strSQL & "AND uren = " & Me.Aanv__G_ & "' "

Ik neem aan dat [uren] ofwel een tekstveld is, ofwel een datum/tijd veld. In beide gevallen filter je verkeerd. Je krijgt dan:

strSQL = strSQL & "AND uren = '" & Me.Aanv__G_ & "' "

of

strSQL = strSQL & "AND uren = #" & Me.Aanv__G_ & "# "

 

[dinoshop]

heb hem aangepast maar werkt niet , zoals je kan zien zijn deze twee idem qua gegevens nu zou dus msgbox moeten geven.
maar geeft niks aan .