Fråga : Kontrollera för en dubblettkombination för besparing ett nytt rekord

Jag har ett tillträde att bilda för en bordlägga - skrivande in resor.  Jag önskar att utfärda en varning, om kombinationen av passagerareLEGITIMATIONEN och resan daterar förmiddagen för exists.

I ser något, kodifierar redan av formatera: underDate_AfterUpdate ()
If DCount för

Private (”*”, ”tblJourneys”,” [passagerareLEGITIMATIONEN] = Me.Passenger-LEGITIMATIONEN och [datera], = Me.Date ") > 0
but för Then
MsgBox (”dubblett”)
End If
detta visar alltid upp ett syntaxfel.  Jag har försökt olika kombinationer av syntax, men med ingen verklig förmiddag för success.

I sure denna är förhållandevis rättfram - hopp någon kan komma upp med något enkelt kodifierar för this.

Regards

Richard
End Sub " klar "

Svar : Kontrollera för en dubblettkombination för besparing ett nytt rekord

öppet bilda frmNewJourneyen i design beskådar
ändra det känt av det combo boxas för passagerare från Field41 till cboPassengerID

använd detta kodifierar

Privata underTime_Enter ()
Om DCount (”*”, ”tblJourneys”,” [passagerareLEGITIMATIONEN] = ”& Me.cboPassengerID &” och [datera], = nr. " & Me.DTPicker6 & ”nr.”) > 0 därefter
    MsgBox (”dubblett”)
   
Avsluta om

Avsluta suben