استلام مواد تعديل

[jamal2080]

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

تم تصميم نمادج 

1. نمودج استلام مواد مباشرة
2. نمودج استلام مواد مخزونية
3. نمودج استلام مواد عشوائى
4. نمودج استلام مواد مباشرة اللجنة
5. نمودج استلام مواد مخزونية اللجنة

كل شاتات فى ادخال البيانات الاساسية متشابة 

عندى اضافة او تعديل نقر نقر مزدوجة على مربع النص وصفة الطلبية ينبق نمودج ادخال البيانات الاساسية :-

1. وصف الطلبية 
2. اسماء الموردين
3. اسماء الموظفين
4. اسماء المندوبين المشتريات
5. اسم فحص الطلبية من وحدة الاستلام
6. اسم معاينة الطلبية من قبل الادارة الطالبة

اريد استعمال النمودج ادخال البيانات الاساسية على نمادج الرئسية .

ولقد وجد كود من الذكاء الاصناعى 

Private Sub Field3_DblClick(Cancel As Integer)
On Error Resume Next
    Dim currentForm As Form
    Set currentForm = Forms.ActiveForm ' الحصول على النموذج الحالي
    
    If Not currentForm Is Nothing Then ' التحقق من وجود نموذج مفتوح
        Dim currentFormName As String
        currentFormName = currentForm.Name ' الحصول على اسم النموذج الحالي
        
        Select Case currentFormName ' التحقق من اسم النموذج
            Case "frm_ReceiptRD", "frm_ReceiptRS", "frm_ReceiptRR", "frm_ReceiptRQ", "frm_ReceiptRZ"
                Dim receiptForm As Form
                Set receiptForm = currentForm.Form ' الحصول على النموذج داخل النموذج الحالي
                
                If Not receiptForm Is Nothing Then ' التحقق من وجود النموذج الفرعي
                    Dim parentForm As Form
                    Set parentForm = receiptForm.Parent ' الحصول على النموذج الأب المفتوح
                    
                    ' قم بتنفيذ الإجراءات الإضافية هنا
                    MsgBox "تم النقر المزدوج على حقل في نموذج الطلبية!"
                End If
        End Select
    End If
End Sub

 

[kkhalifa1960]

أين المرفق ووضح طلبك؟؟؟؟؟؟؟؟؟؟؟؟؟؟.

[jamal2080]

Private Sub Field1_DblClick(Cancel As Integer)
On Error Resume Next
    
    If Me.RD.value = "RD" Then
        With Forms![frm_ReceiptRD].Form
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_2 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRD
        Forms![frm_ReceiptRD]![Text100] = Null
        Forms![frm_ReceiptRD]![Text106] = Null
    End If
    
    If Me.RS.value = "RS" Then
        With Forms![frm_ReceiptRS].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRS]![Text100] = Null
        Forms![frm_ReceiptRS]![Text106] = Null
    End If
    
    If Me.RS.value = "RR" Then
        With Forms![frm_ReceiptRR].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRR]![Text100] = Null
        Forms![frm_ReceiptRR]![Text106] = Null
    End If
    
    If Me.RS.value = "RQ" Then
        With Forms![frm_ReceiptRQ].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRQ]![Text100] = Null
        Forms![frm_ReceiptRQ]![Text106] = Null
    End If
    
    If Me.RS.value = "RZ" Then
        With Forms![frm_ReceiptRZ].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRZ]![Text100] = Null
        Forms![frm_ReceiptRZ]![Text106] = Null
    End If
    

End Sub

[Foksh]

أخي الكريم أدعم كلام أخي الاستاذ @kkhalifa1960 ويسعدنا في المنتدى تلبية طلبات جميع الأسئلة التي يطرحها اصدقاء ومنتسبي المنتدى ، ولكن من يحاول المساعدة هنا ليس الذكاء الاصطناعي ، وإنما أساتذة وخبراء وموهوبين يتعاملون مع ملف " مرفق " يجب على السائل ارفاقه للحصول على إجابته والحل الصحيح لمشكلته.

 

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

[jamal2080]

شكرا على اهتمامكم