هذا كود ليقوم بالتاكد من وجود رقم يوضع في حقل ويتاكد هل هو موجود في الجدول ام لا
ولكن انا اريد ليس رقم وانما كلمة او حروف .....
Dim i As Integer
i = Nz(DLookup("[fieldName]", "tableName", "fieldName=" & Me.fieldNameInCurrentForm), 0)
If i = 0 Then
MsgBox "لم يستخدم هذا الرقم "
Else
MsgBox "هذا الرقم موجود"
End Ifتم تعديل هذه المشاركة بواسطة mhb300 في 18 يناير 2009 في 10:02
أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........
.
بسيطة ان شا الله..
اجعل الكود كما يلي..
Dim i As String
i = DLookup("[fieldName]", "tableName", "fieldName=' & Me.fieldNameInCurrentForm&'")
If i = "النص" Then
MsgBox "لم يستخدم هذا النص "
Else
MsgBox "هذا النص موجود"
End Ifلاحظ تغيير نوع المتغير i في بداية الكود
ولاحظ تغير شكل الاقواس وصياغة عبارة Dlookup في السطر الثاني
تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 18 يناير 2009 في 10:12
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
بســم الله الـرحمــن الرحيــم
اخي الكريم لدي خطأ ولديك خطأ :D
خطؤك ان مربع النص بالنموذج لابد ان يكون اسمه ff
وخطأي بالسطر الثاني من الكود وصحته كما يلي
i =Nz( DLookup("[a]", "tb1", "[a]='" & [ff] & "'"),0)طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
اشكرك استاذ ايهاب الله يعطيك العافيه على التوضيح ... :)
استاذ يوسف احمد ..... حلك ابداع كما عودتنا .. :rolleyes: ... مشكور وهذا هو المطلوب وزياده ;)
:ty:
أرجوا المعذرة لعدم تمكني من المشاركة بشكل مستمر لانشغالي..........
.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…