فتح نموذج محدد من خلال نموذج فرعي عن طريق كوبوبوكس في النموذج الفرعي

[فؤاد الدلوي]

السلام عليكم ورحمة الله وبركاته. ممكن مساعدتي اساتذتي: لدي نموذج (ادخال) فيه مربع سرد وتحرير (txt) غير منظم فيه قيم (ادخال المخصصات) و (ادخال الاستقطاعات) المطلوب رجاءً عندما اختار من سجل معين احدى خيارات الكومبوبوكس يفتح نموذج بالسجل المحدد بمعنى عندما اختار من الكومبوبوكس من السجل الثاني (هشام) ادخال المخصصات او ادخال الاستقطاعات يفتح نموذج بأسم هشام وشكرا جزيلا

test.accdb

[سامي الحداد]

وعليكم السلام

تفضل أخي حسب ما فهمت

Private Sub TXT_AfterUpdate()
    Dim FormName As String
    Dim RecordID As String
    Dim FilterCondition As String

    FormName = Me.TXT.Value
    RecordID = Me!ID.Value

    If Not IsNull(FormName) And Not IsNull(RecordID) Then
        FilterCondition = "[ID] = " & RecordID

        DoCmd.OpenForm FormName, , , FilterCondition
    Else
        MsgBox " .الرجاء تحديد النموذج والسجل لفتحه ", vbExclamation
    End If
End Sub

واليك الملف

بالتوفيق

فتح نموذج محدد من خلال نموذج فرعي.accdb

[فؤاد الدلوي]

استاذي العزيز @سامي الحداد وهو المطلوب جزيل الشكر والامتنان

[فؤاد الدلوي]

عفوا استاذ @سامي الحدادالحدادإذا بالماكروا ممكن شكرا

[فؤاد الدلوي]

استاذ @سامي الحداد شكرا جزيلاً إذ اردت تفريغ الكومبوبوكس بعد الاختيار فأستخدمت SetValue بالماكروا عند النقر 

تم تعديل يناير 16 بواسطه فؤاد الدلوي
اظافة