Thank you sir, its parfectly working
Sir, if I put another condition
Cnt = DCount("*", "QOCCUPATION", "DepartureDate = #" & Format$(Me!sfrReservations.Form!DepartureDate, "mm/dd/yyyy") & "#" And [Mob] = Form!frmOccupants!TXTMOB)
frmOccupans is the Main form and Mob is number field, but error is coming