كيف اقارن بين حقلين منفصلين في جدولين؟؟

[saif13]

  اخواني الاعزاء ...والقائمين على هذا المنتدى الرائع اتقدم اليكم اليوم بسؤالي  

  عسى ان يهديني الله واتقدم خطوه وانا معكم ان شاء الله

 

     مع بالغ الشكر والامتنان للاخ ابو خليل الذي لم يبخل علي بردوده الرائعه

 

 

 س:-

     كيف اقارن بين قيم موجوده في حقول ... عمود ...متغير القيم حذف واضافه

 

     وحقل موجود في النموذج حيث اذا ادخلت العدد  100 مثلا لموظف جديد          تظهر رساله تقول ان العدد 100 من ضمن الاعداد الموجوده

     (هذا الموظف مقبول)

 

    حيث ان العدد 100 هو رقم قائمة باسماء الموظفين

 

     ولدي العديد من القوائم

 

    مرفق صوره

 

 

 

 

     مرفق مثال

 

مثال.zip

[ابوخليل]

 

Dim i As Integer
i = DCount("number2", "tabl2", "number2=" & number1)
If i > 0 Then
Beep
MsgBox "هذا العدد ضمن الاعداد الموجودة"
Undo
End If

 

مثال.rar

[saif13]

اخي ابو خليل انا اشكرك على الرد الجميل وعلى المثال المرفق لكن وللاسف عند تطبيق الايعاز على قاعدة اخرى لا تعمل علما اني اغير اسم الحقول في الايعاز حسب ما مكتوب

 

اعذرني على طول فترة غيابي لانشغالي الكثير واشكركم جميعا

 

مثال مرفق

k1.zip

[أبو آدم]

قم بتعديل نوع الحقل num2 في الجدول tab2 من Short Text الى Number

بعد تعديل اسم مربع النص في النموذج num1 ليكون مختلفا عن اسم الحقل في الجدول num1

 

هل وصلت الفكرة !!!

نجح التطبيق لدي ....

 

 

....... شكرا

[saif13]

انا اشكركم جدا جدا اخي ابو خليل واخي ابو ادم

البرنامج الان يعمل 100%