سؤال في برنامج للصادر

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

أخي الكريم/

محاولةً مني في مساعدتك وجدت هذا الحل في أحد المنتديات ولكن لم أجربه عملياً ولعله يفيدك ان شاء الله.

المثال صمم لنموذج مبني على جدول اسمه Product مكون من 3 حقول وهي كالتالي :

ProductID حقل رقمي وعليه مفتاح

ProductName حقل نص

dtDate حقل تاريخ

تضع الكود التالي في "حدث عند الخطأ للنموذج" :

Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Err_Form_Error

    Response = IncrementField(DataErr)
    
Exit_Form_Error:
    Exit Sub

Err_Form_Error:
    MsgBox Err.Description
    Resume Exit_Form_Error

End Sub

وكذلك تضع في نفس النموذج الوحدة النمطيه الأتيه :

Function IncrementField(DataErr)
    If DataErr = 3022 Then
       Me!ProductID = DMax("ProductID", "Product") + 1
       IncrementField = acDataErrContinue
    End If
End Function

والله يوفقك.

وهذا رابط للمثال الذي تم شرحه :

أنقر هنا بزر الفأره الأيمن وأختر عبارة Save Target As

شكراً لك أستاذي الكريم

سأجرب الكود وإن شاء الله يفي بالغرض

شكراً لك أخي إبن مسقط

ولكن المشكلة ما زالت قائمة أتمنى ممن سبق أن مر بهذه المشكلة أن يساعدني على حلها

في الإنتظار

عزيزي حاكم

قم بإنشاء استعلام لجدول الصادر بكامل بيانات الجدول، ثم اجعله يقوم مقام الجدول. يعني اجعله مصدر بيانات نموذج الصادر.

وإن شاء الله تفلح

تحياتي

شكراً لك أخي الكريم

جربت ما ذكرته ولكن المشكلة ما زالت مستمرة

عزيزي حاكم

هل تستخدم إجراء التحديث في النموذج ؟

إذا كان الجاب بلا:

قم بإجبار المستخدم لتفعيل هذا الإجراء بأحد الطريقتين التاليتين:

_ الضغط على مفتاح F9 .

_ استخدام ( Me.Refresh ) قبل إجراء ( DoCmd.Gotorecord,,NewRecord )

تحياتي

شكراً لك أستاذي الكريم

أنا لا أستخدم طريقة التحديث سأجرب ما ذكرته ولك كل الشكر أولاً وآخراً