كيف اعمل رسالة الرقم مكرر توافق ام لا

تفضل أخي العزيز /

جرب الكود هذا

ثم في المربع الرقم بعد التحديث اعمل التالي :

اقتباس

On Error GoTo Err

Dim Response As Variant

Dim MyVaName As Variant

Response = DLookup("[هنا تضع اسم الرقم]", "هنا أسم الجدول", "[هنا تضع اسم الرقم]=[forms]![هنا أسم النموذج الذي بة الرقم]![هنا تضع اسم الرقم]")

If Not IsNull(Response) Then

If MsgBox("  هل تريد حفظ السجل المكرر هذا  ؟ ", vbYesNo, " تنبيه سجل مكرر ") = vbNo Then

  Cancel = True

  SendKeys "{ESC}"

  Exit Sub

End If

  End If 

  Vartxtid = DLookup("[هنا تضع اسم الرقم]", "هنا أسم الجدول", "[هنا أسم النموذج الذي بة الرقم]=[forms]![هنا أسم النموذج الذي بة الرقم]![هنا تضع اسم الرقم]")

Me.هنا تضع اسم الرقم= Vartxtid

End If

Err:

مع خالص التحيات ،،،

عبدالمانع

شكرا لك اخوي عبدالمانع ونفع بك المسلمين وغفر الله لك

الاخ الكريم/عبد المانع

لك كل الشكر والتقدير الطريقة ناجحه جدا

الله يعطيك العافية

استاذي الفاضل ولو فيها شوية رزاله ممكن سؤال؟

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

ارجوا من الله ثم منكم انت ومن يقراء هذا الموضوع الإفادة.

ولكم خالص شكري

تفضل أخي الكريم / سامي الحربي2

هذا شرح مختصر مع ملف مرفق ’’’

عملنا إستعلام حذف وإستعلام إلحاق حيث أن الإلحاق قبل الحذف دأئما لكي يتم نقل البيانات بنجاح قبل حذفها وأطلع على

الملف لتوضح الصورة لك أكثر ،

ثم عملنا نموذج وعملنا مصدرة A ثم عملنا زر أمر وعملنا فية الكود التالي :-

اقتباس

DoCmd.SetWarnings fales

DoCmd.OpenQuery "el" 'إستعلام الالحاق

DoCmd.OpenQuery "del" 'إستعلام الحذف

DoCmd.SetWarnings True

DoCmd.Requery

MsgBox "تمت عملية الحذف بنجاح", vbOKOnly, "حذف"

إذا تريد إسترجاع الملفات التي تم ترحيلها تعمل نفس الطريقة بس تعكس يعني تعمل إلحاق الى الجدول () وتعمل

زر أمر وتضع فية التالي : -

اقتباس

DoCmd.SetWarnings fales

DoCmd.OpenQuery "Erg" 'إستعلام الالحاق

DoCmd.OpenQuery "Deli" 'إستعلام الحذف

DoCmd.SetWarnings True

DoCmd.Requery

MsgBox "تمت عملية الاسترجاع بنجاح", vbOKOnly, "حذف"

----------------------------------------------------------------------------------------------

" هذا كل شي "

مع خالص التحيات ،،،

عبدالمانع

حذف وإلحاق.rar