DLookUp function doesn't want to work with my code

[tujurikkuja]

Private Sub Command11_Click()
Dim strSQL As String
Dim criteria As Integer
Dim ete As String
Dim row, place As Integer
ete = Me!etenduse_nimi
row = Me!Rida
place = Me!number

criteria = DLookup("[broneeringu_id]", "BroneeringudQ", " etenduse_nimi='" & ete & "' AND rida=" & row & " AND number=" & place & " AND Toimumisaeg=" & Me!Toimumisaeg)
strSQL = "DELETE * FROM Broneeringud WHERE broneeringu_id=" & criteria
DoCmd.RunSQL strSQL
End Sub

What seems to be the problem in the code?
ete is string
row is integer
place is integer
Me!Toimumisaeg is date/time and it has date and time in the same field. It gives run-time error 3075.

[Rabbit]

When you have a date time field, you need to demarcate it as such by surrounding it with # symbols.

[tujurikkuja]

Weirdly enough the code goes red and starts popping up messages about the date/time not being a date.

[Rabbit]

Then I would double check to make sure the field in the table is actually a date data type. And also check that the input is in the correct format.

[NeoPa]

You also need to handle the situation where Me.Toimumisaeg is Null. In my suggestion I use the Date() function if this value is Null.

Try :

Criteria = Format(Nz(Me.Toimumisaeg, Date()), "\#m\/d\/yyyy\#")
Criteria = "[etenduse_nimi]='" & ete & "' AND " & _
           "[rida]=" & row & " AND " & _
           "[number]=" & place & " AND " & _
           "[Toimumisaeg]=" & Criteria
Criteria = DLookup("[broneeringu_id]", "BroneeringudQ", Criteria)