السلام عليكم ورحمة الله وربكاته
المطلوب عند ادخال رقم موجود مسبق اعطائي رساله الرقم مكرر
كيف ياشباب
مطلوب كود او مثل بسيط قابل لتغيير لو ممكن
ولكم تحياتي
رساله الرقم مكرر
مغلق
اخي الكريم :
يمكنك عمل ذلك بادخال هذا الكود عند حدث قبل التحديث (Before Update) لنموذج الادخال:
Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!Number = Me!Number Then MsgBox "انتبه!! هناك رقم تم ادخاله مسبقاً بنفس القيمة .. حيث لاي مكن التكرار", _ vbExclamation + vbOKOnly, "الفريق العربي للبرمجه" Cancel = True Exit Do End If rst.MoveNext Loop rst.Close End Sub
مشكور اخي الكريم على تجوبك معي
الف شكر (f)(f)
حل ممتاز
(f)
في حدث قبل التحديث للحقل المراد تطبيق الشرط عليه نكتب
if not (isnull(dlookup("[اسم الحقل]"," اسم الجدول","[اسم الحقل]"&"="&me.اسم الحقل)))then
msgbox " الرقم مكرر"
اذا كان الحقل هو اول حقل في السجل يمكن ان تضيف السطر التالي الى ماسبق
me.اسم الحقل.undo
اما اذا كان الحقل ليس اول حقل في السجل يمكن ان تضيف السطر التالي الى ماسبق
sendkeys "{esc}"
وشكرا
هذا الموضوع مغلق.