مساعد في جفظ بيانات في نموذج عام داخلة نموذج اخر

[sm44ms]

السلام عليكم 

BCعندي جدول اسمه

ASوجدول اسمه

SDونموذج رئيسي اسمه

FVوفرعي اسمه

الفرعي داخل النموذج الرئيسي وياخذ بعض من البيانات من النموذج الرئيسي وبعض البيانات انا اقوم بادخالها

 

عند الحفظ تظهر هذا الرساله المرفقة شو السبب

 

تم تعديل يونيو 12, 2024 بواسطه sm44ms

[sm44ms]

Private Sub MOB_BeforeUpdate(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strSubFormControl As String
    
    ' اسم النموذج الفرعي داخل النموذج الرئيسي
    strSubFormControl = "subfrmETSALATSIMCARD"
    
    ' تحقق من وجود رقم الجوال في جدول TABELSIMCARD
    If Not IsNull(DLookup("[NOMOBAIL]", "TABELSIMCARD", "[NOMOBAIL] = '" & Forms!frmMain.Controls(strSubFormControl).Form!NOMOBAIL & "'")) Then
        ' فتح النموذج ACSSEC_TKRAR1
        DoCmd.OpenForm "ACSSEC_TKRAR1"
        
        ' عرض رسالة تنبيه
        MsgBox "العنصر تم تحويلك إلى شاشة تكرار البيانات", vbExclamation, "تكرار البيانات"
        
        ' إلغاء عملية التحديث
        Cancel = True

        ' إعداد المتغيرات لفتح نموذج ETSALATSIMCARDVIEW مع الشروط
        stDocName = "ETSALATSIMCARDVIEW"
        stLinkCriteria = "[NOMOBAIL] = '" & Me!NOMOBAIL & "'"

        ' عرض رسالة تنبيه أخرى
        MsgBox "الذهاب إلى شاشة تكرار السجلات", vbInformation, "تكرار البيانات"

        ' فتح النموذج ETSALATSIMCARDVIEW مع الشروط المحددة
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If

    ' استخدام SendKeys لتحديد محتوى الحقل
    SendKeys "{F2}", False
End Sub
 

ممكن تعديل الكود لانه لا يضبط معي

[AlwaZeeR]

حبذا لو اضفت لسؤالك قاعدة تجريبية لكان افضل لك ولمن سيساعدك
عموما اذا كان النموذج الفرعي داخل النموذج الرئيسي فيجب اجراء بعض التعريفات الخاصة

ومن خلال الرسالة الظاهرة يخبرنا ان الكائن Alhaq والذي قد يكون استعلام لم يتعرف عليه 
من باب المساعدة:

with mainfrm!subFrm.form
!fildName
end with

هكذا يتم تعرفة الحقول من الفرعي للرئيسي 
او ارفق ملف للاضطلاع على الخطأ وعلاجه