سؤال عن مقارنة قيمة بقيم داخل جدول !

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

باستخدام فيجول بيسك object.SerialNumber ودالة اكسس DlookUp تستطيع الوصول الى الهدف باذن الله .

الأخ الفاضل على لقد توصلت بالفعل للطريقة وهى:

- عمل استعلام لجدول ارقام التسلسل لأقراص الأجهزة المراد حمايتها مع وضع شرط مطابقة مع رقم تسلسل القرص الصلب بعد تشغيل النموذج الرئيسى

if Dlookup("[Serial]", "Serial", not null) = h.serialnumber

then .... 

Else ....

الرجاء التوضيح اكثر

الأخ الفاضل أبو وليد

آسف للتأخير فى الرد

-قم بعمل جدول من حقل واحد وهو رقم التسلسل للأقراص الصلبة المطلوب تشغيل البرنامج عليها

- بعدها قم بعمل استعلام من هذا الجدول وضع فى الشرط ما يلى

formes![formname].textboxname

حيث formname هو اسم النموذج الرئيسى المراد سماح أو منع استخدامه و textbaxname هو اسم مربع النص و يحتوى على رقم تسلسل القرص الصلب

-وفى الحدث (عند الفتح) استخدم الدالة dlookup كما يلى

if Dlookup("[Serial]", "Serial", not null) = h.serialnumber then "...." else "....."

وسأحاول ارسال مثال كامل ان شاء الله

شكرا على المعلومه ولكن اذا كانت اريد ان ابحث عن سجل بس عن طريق

two primary key

المثال الذي جربته ولم ينج :(

dlookup([field1],"table1","field2=text1" and "field3=text2")

هذا الكور لايمعمل وحاولت كثرا في ايجاد كود اخر ومازلت احاول

واتمنى اجد الاجابه منكم

هذا هو المثال

الأخ اماراتى سأحاول البحث

check.zip

الإخوة الكرام

السلام عليكم

معذرة عن المقاطعة

إذا كنت تريد الإشارة إلى حقل داخل جدول فيجب ذكر اسم الجدول أولاً قبل الحقل مثل

DLOOKUP("[FIELD1]","TAB1","[TAB1]![FIELD2] = 'TEXT' AND [TAB1]![FIELD3] = 'TEXT'")

تحياتي

الاخ / ابو هاجر

شكرا على هذه المعلومة

وعندي سؤال

عندي جدول فيه ست حقول

ونموذج فيه اربع مربعات نص

اريد ان تعبأ مربعات النص الاربعة باربع حقول من الست السابقة في الجدول

وتكون عشوائية بمعني

الست الحقول اجابات اسئلة ويوجد حقل سابع فيه رقم الحقل الصحيح من الاجابات الست انه يختار الحقل الصحيح من الست حقول ويضعه في مربع نص من الاربع الموجودة في النموذج عشوائيا ثم يملأ الثلاث الاخرى بثلاث اجابات من الخمس حقول المتبقية بس بدون تكرار للحقل

اتمنى اجد اجابة

مَçè‏çê.zip

أخي الكريم

السلام عليكم

الحقيقة أن الكود الموجود في مثالك معقد نوعاً ما ووقتي ضيق لكن هذه دالة كتبتها على عجل وهي تحتاج فقط إلى تمرير رقم الإجابة الصحيحة لها وهي تقوم بإنتاج أربعة أرقام بين 1-6 ومن بينها رقم الإجابة الصحيحة حيث يمكنك بعد ذلك استخدام دالة Mid لتقسيم الرقم الناتج واختيار إجابات عشوائية وتوزيعها على مربعات النص

Function rndo(d As Byte)

Dim a

Dim b

Dim c



c = Int((4 * Rnd) + 1)



'For a = 1 To 3

Do While Len(b) < 3



a = Int((6 * Rnd) + 1)

If InStr(1, b, a) = 0 And a <> d Then

b = b & a

End If

'Next

Loop



Select Case c

Case 1

b = d & b

Case 2

b = mid(b, 1, 1) & d & mid(b, 2, 2)

Case 3

b = mid(b, 1, 2) & d & mid(b, 3)

Case 4

b = b & d

End Select



rndo=b



End Function

تحياتي

بارك الله فيك سوف احاول جاهدا ان استفيد منها

وان شاء الله نحصل على المطلوب

ولكننا مهما حاولنا لا نستغني عن مدنا بخبرتكم

جزاك الله الف خير

أخي الكريم أبا وليد

السلام عليكم

مرفق مثالك بعد تطبيق الدالة عليه ، آمل تجربته وإفادتي

تحياتي

أخوك / أبو هاجر

abowaleed.zip

وفقك الله

وجزاك الله الف خير

نعم هذا ما اريده بارك الله فيك

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

واننا ندعوا لك

شكرا

اخوك / ابو وليد

الاخ / ابو هاجر

احتاج الى مساعدتك

لقد حاولت ان اضيف الى النموذج متسابقين وعند اختيار السؤال يتم المطابقة بين المتسابق والاجابة وونعصلك معاي الكود لو سمحت انظر الى الكود واخبرني بالخطأ وفقك الله

مَçè‏çê.rar

الف شكرا اخي / ابو هاجر

لقد حلت المشكلة