مشكلة لمبتدئ في تصميم نموذج

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

الاخ الكريم

يمكن تنفيذ طلبك عن طريق الدالة DLookup

راجع هذا الكود

NoFind = Me.NoID
Dim a
a = DLookup("[NoID]", "Table1", "[NoID] = " & [NoID])
If Not (IsNull(a)) Then
MsgBox "انتبه : هذا الرقم مسجل من قبل", vbExclamation, "انتبه"
Cancel = True
Me.Undo
DoCmd.FindRecord NoFind
End If

مع الاعتبار ان اسم الجدول : Table1

أسم الحقل الذي به القيمة : NoID نوعه رقم ( قيمة رقمية ) لان الكود يختلف لو كانت قيمة نصية

مرفق قاعدة البيانات بالمثال

بالتوفيق

DLookup.rar

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

اشكرلك تجاوبك

فقد بدا لي من ملفك جهلي بالاكواد والذي علمت اين اضعها الآن

ولكن لم تحل المشكلة لا أريد منه التنبيه وانما عرض البيانات المسجلة مسبقاً تلقائيا

اتمنى ان اجد الحل وهل يلزم ارفاق الملف للتوضيح

وجزيتم خير الجزاء

اشكركم جزيل الشكر

تم بحمدالله حل المشكلة

تفضل أخي الغالي

هذا المثال ربما يكون طلبك

ضع هذا الكود في حدث قبل التحديث

Private Sub number_BeforeUpdate(Cancel As Integer)
numberfield = Me.number
Dim a
a = DLookup("[number]", "names", "[number]='" & Me.number & "'")
If Not (IsNull(a)) Then
MsgBox "هذا الكود موجود سابقا في دليل اكواد المخازن", vbCritical, "تحذير"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If

End Sub

Duplicate.rar

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

اخي

خذ هذا المثال الكامل اعتقد انه يفي بالغرض

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

واصورة تغني عن الشرح

على فكرة الشرح على واجهة المثال

ناصر المصاروة

myexam1.rar

أشكركم جزيل الشكر

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

تم بحمد الله