مساعدة في برنامج

استخدم هذا الكود

I = DCount("*", "TblBusPsngr", "[PsngrID] =" & Me.PsngrID)
If I > 0 Then
MsgBox " المسافر   " & DLookup("[PsngrnameA]", "TblPassengers", "[PsngrID] =" & Me.PsngrID) & "   موجود في الحافلة رقم  " & DLookup("[BusTID]", "TblBusPsngr", "[PsngrID] =" & Me.PsngrID) & "  من الرحلة رقم  " & DLookup("[TripID]", "TblBusPsngr", "[PsngrID] =" & Me.PsngrID), , "تنبيه"
Else
 [Forms]![frmBusTrip]![FORM2].SetFocus
 DoCmd.GoToRecord , , acNewRec
 [Forms]![frmBusTrip]![FORM2]![PsngrID1] = Me.PsngrID
 [Forms]![frmBusTrip]![FORM2]![PsngrNameA1] = Me.PsngrNameA
 [Forms]![frmBusTrip]![FORM2]![TripID1] = Me.TripID
 Forms!frmBusTrip!FORM2.SetFocus
End If

جزاك الله ألف خير يا أبا يوسف وجعله في موازين حسناتك هذا هو طلبي المنشود ولكم جزيل الشكر والامتنان وفقكم الله