(تمت الاجابة) رسالة بعدم وجود الرقم في القائمة

[أيمن عبادي]

السلام عليكم ورحمة الله وبركاته،،،

إخواني الأعضاء ......... المحترمين

في المرفق توجد قائمة 1 وتتضمن عدة أرقام ....

وفي النموذجlist2 أريد عند كتابة أي رقم ... وهذا الرقم غير موجود في القائمة List1 فيعطني رسالة بأن هذا الرقم لم يتم إدخاله في List1

وأتقدم لسيادتكم بجزيل الشكر والعرفان...

notavailabeinlist.rar

[أبو آدم]

إنسخ الكود التالي للنموذج

Private Sub FileNo_BeforeUpdate(Cancel As Integer)

On Error Resume Next

Dim txtList As String


txtList = DCount("[ID Number]", "List1", "[ID Number] = " & Me.FileNo)


If txtList < 1 Then

  MsgBox " الرقم غير موجود ضمن القائمة ، التزم بالارقام الموجودة ضمن القائمة", vbCritical + vbMsgBoxRight, "تنبيه ..."

   Me.Undo

    DoCmd.CancelEvent

End If

End Sub

[أيمن عبادي]

سلمت يداك أخي أبوآدم ....

جزيت الجنة

(وليس للحديث بقية)

[أبو آدم]

جزيت نعيم الجنة

ليس للحديث بقية ... ولبقية الحديث بقية

(تمت الاجابة)