حياك الله اخي
ضع هذا الكود في حدث بعد التحديث للتلفون المسمى tl1
وبإمكانك بعد ذلك استخدام الطريقة للتحقق مما تريد ...
Private Sub tl1_AfterUpdate()
Dim Ab As Boolean
Ab = Nz(DLookup("ROAN5", "zahrah", "tlesendto1=forms!new!tl1"), 0)
If Ab = True Then
MsgBox "ãÍÌæÒ"
Me.tl1 = Null
Else
End If
End Sub
بحثنا عن حقل محجوز في جدول زهرة ... بمعرفة رقم الهاتف ... وهكذا
بالتوفيق