السلام عليكم اخواني الاعزاء
ممكن التكرم مشكورا بتعديل الكود الاتي.....ارغب في عند كتابة رقم تم تسجيلة سابقا في البرنامج ..تظهر لي رسالة تخبرني بمكان السجل الذي تم التكرار فيه.
والكود المستخدم هو كالاتي:
If DCount("receiveno", "importationtable", "[receiveno]=" & Me.receiveno) > 0 Then
msgbox "عفوا هذا الرقم مسجل بالبرنامج ولا يمكن تكراره"
Me.receiveno.SetFocus
Me.receiveno = ""
End If
حيث importationtbale i هو اسم الجدول
receiveno هو اسم الحقل في النموذج
ID هو رقم المعاملة الذي اريد ان يظهر ...وهو يعتبر مفتاح رئيسي
ارغب بالرسالة تظهر كالاتي
عفوا هذا الرقم مسجل بالبرنامج ولقد تم تسجيلة في معاملة رقمID
اتمى وصلت الفكرة
مع الشكر الكبير
"
