how to use Dlookup with a textbox containing a date from a combobox

[neelsfer]

I have a combobox called Racedates and a txtbox called Racingdate on a form called CyclistF, to display a date using

=[racedates].[Column](1)

i can get it to work with another textfield from the RaceEntry table but not when i use the textbox reading from the combobox.
My code below produce no error, but is does not warn me about the duplication either.
I assume it cant read the "racingdate " textbox.I use beforeUpdate function.

Dim Answer As Variant
Answer = DLookup("raceno", "raceentry", "racedate = #" & Format(Me.RacingDate, "dd/MM/yyyy") & "#")
 If Not IsNull(Answer) Then
 MsgBox "Duplicate Race Number Found" & vbCrLf & "This Race No will now be deleted. Use a different one please", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate"
  Cancel = True
 Me.Undo
 End If

Please assist

[ADezii]

Try a different approach:

If IsNull(Me![racingdate]) Or Not IsDate(Me![racingdate]) Then Exit Sub

If DCount("[raceno]", "[raceentry]", "[racedate] = #" & Me.racingdate & "#") > 0 Then
  MsgBox "Duplicate Race Number Found" & vbCrLf & "This Race No will now be deleted. " & _
         "Use a different one please", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate"
    Cancel = True
      Me.Undo
End If

[neelsfer]

Adezii, apologies i thought i got it working, but no success.
Here is the attached file that i edited a bit, if you want to have a look pls.It just dont fo anything to warn about duplicates
I left instructions on the screen
Thx for your help as always

[ADezii]

Assuming you can have Multiple Races on any given day, wouldn't you have to check for both Race Number and Race Date, as in:

Private Sub RaceNo_BeforeUpdate(Cancel As Integer)
If IsNull(Me![racedate]) Or Not IsDate(Me![racedate]) Then Exit Sub
     
If DCount("[raceno]", "[RaceEntry]", "[racedate] = #" & Me.racedate & _
          "#  AND [raceno] = " & Me![raceno]) > 0 Then
  MsgBox "Duplicate Race Number Found" & vbCrLf & "This Race No will now be deleted. " & _
         "Use a different one please", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate"
    Cancel = True
      Me.Undo
End If
End Sub

[neelsfer]

thx adezii appreciated!