محتاج اعرف الخطأ فين - شريط القوائم المختصرة

[مومن الشيمى]

مع العلم اني استخدم الكود في الفورم نفسها بدون مديول كل طلبي اني استطيع افتح الفورم بشرط رقم المعرف للتعديل علي الفاتورة

[مومن الشيمى]

ارجو المساعدة

[Foksh]

52 دقائق مضت, مومن الشيمى said:

ارجو المساعدة

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

أخي الكريم ، بدايةً أهلاً وسهلاً بك معنا في منتديات أوفيسنا - آكسيس .. ونرجو أن تجد جميع الحلول للمشاكل التي قد تواجهك .

واسمح لي بتذكيرك بضرورة :-

أولاً :- إرفاق ملف بسيط للأجزاء المتعلقة بالمشكلة .

ثانياً :- الإفصاح والتوضيح والشرح الكافي الوافي للمشكلة - لاحقاً .

ثالثاً :- الإهتمام بالعنوان ليكون دالاً بإيجاز عن المشكلة .

رابعاً :- استخدم الزر المشار اليه بالمربع الأحمر  الموجود في المكان الذي تكتب فيه الموضوع عندما تريد أن تكتب أكواد VBA على سبيل المثال في مواضيعك أو ردودك .

 

شكراً لسعة صدرك  

[مومن الشيمى]

date-2025 - Copy (4).rar

كل اللي محتاجه انا اختار من open هيفتح القائمة المختصرة اختار منها تعديل يفتحلي الفورم اللي فيه داتا العميل المختار للتعديل عليها

[Foksh]

53 دقائق مضت, مومن الشيمى said:

كل اللي محتاجه انا اختار من open هيفتح القائمة المختصرة اختار منها تعديل يفتحلي الفورم اللي فيه داتا العميل المختار للتعديل عليها

بدايةً الخطأ ان اسم مربع النص ID وليس الكود !!

ثانياً لازم تمرر مسار واسم النموذج الفرعي اللي موجود فيه الشرط ID .

وفي الدالة :-

Public Function f11(الكود As Integer)
    DoCmd.OpenForm "Customer Details", , , "[الكود] = " & الكود
End Function

لا يتم تمرير الشرط أو المعيار للفلترة . لذا توجهت الى فكرة غريبة نوعاً ما بحيث من خلال الكود يتم البحث عن أول نموذج فرعي يحتوي مربع النص ID كشرط ومعيار للفلترة وتمريره الى جملة فتح النموذج على السجل المحدد . لتصبح الدالة مع مساعد بسيط :-

'---------- ( ID تم التعديل هنا بحيث يتم البحث عن أول نموذج فرعي يحتوي مربع النص ) ----------
Public Function f11()
    On Error GoTo ErrHandler
    
    Dim frmMain As Form
    Dim ctrl As Control
    Dim frmSub As Form
    Dim val As Variant
    
    Set frmMain = Screen.ActiveForm
    
    For Each ctrl In frmMain.Controls
        If ctrl.ControlType = acSubform Then
            Set frmSub = ctrl.Form
            If HasControl(frmSub, "ID") Then
                val = frmSub.Controls("ID").Value
                DoCmd.OpenForm "Customer Details", , , "[الكود] = " & val
                Exit Function
            End If
        End If
    Next ctrl

    MsgBox ". 'ID' لم يتم العثور على نموذج فرعي يحتوي على الشرط", vbExclamation + vbMsgBoxRight, ""
    Exit Function

ErrHandler:
    MsgBox "حدث خطأ: " & Err.Description, vbCritical + vbMsgBoxRight, ""
End Function

Private Function HasControl(frm As Form, ctrlName As String) As Boolean
    On Error Resume Next
    HasControl = Not frm.Controls(ctrlName) Is Nothing
End Function
'---------- ( نهاية التعديل ) ----------

 

ملفك بعد التعديل :-

 

date-2025 - Copy (4).zip

[مومن الشيمى]

شكرا جدا علي المساعده