الذهاب الي سجل في نموذج فرعى

[husseinharby]

السلام عليكم

في نموذج بأسم list يوجد حقلان واحد بأسم رقم الفاتورة والثانى رقم المخزن

ونموذج اخر بأسم اذن الصرف يوجد به رقم الفاتورة ورقم المخزن

في نموذج (list)اريد عند الضغط على رقم المخزن ان يقوم بالذهاب الي  (اذن الصرف ) وتحديد رقم المخزن المطابق له

Documents.rar

[husseinharby]

@احمد الفلاحجي

@jjafferr

@د.كاف يار

@ابو جودي

@محمد أبو عبد الله

@kha9009lid

 

 

تم تعديل يناير 10, 2022 بواسطه husseinharby

[ابوخليل]

Dim frmName As String
    Dim stlink As String
    frmName = "اذن الصرف"
    stlink = "[رقم الفاتورة]=" & Me![رقم الفاتورة]
    DoCmd.OpenForm frmName, , , stlink

 

Database2.rar

[husseinharby]

شكرا علي اهتمامك استاذ @ابوخليل 

لكن مايحدث هنا هو الذهاب الي رقم الفاتورة فقط ولم يتم تحديد رقم المخزن

ما اريده هو الذهاب الي رقم المخزن الموجود في النموذج الفرعي

تم تعديل يناير 11, 2022 بواسطه husseinharby

[أبوبسمله]

السلام عليكم

ماخدتش بالى انك عاملى اشاره مع اساتذتى الافاضل لان المعرف متغير للفلاحجى 😀

مشاركه مع معلمنا العزيز وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 💐

نفس كود استاذى العزيز مع تعديل صغير لتصفيه النموذج الفرعى لاذن الصرف ع رقم المخزن المراد الذهاب اليه

وفى نقطه تانيه نسيتها النموذج الفرعى لاذن الصرف تم تعديل مصدر السجلات من الجدول لاستعلام لنفس الجدول مباشر بالنموذج واضافه معيار [TempVars]![xNum] تحت حقل رقم المخزن

Private Sub رقم_مخزن_DblClick(Cancel As Integer)
Dim xNum As TempVar

TempVars!xNum = Me.رقم_مخزن.Value

Dim frmName As String
    Dim stlink As String
    frmName = "اذن الصرف"
    stlink = "[رقم الفاتورة]=" & Me![رقم الفاتورة]
    DoCmd.OpenForm frmName, , , stlink
End Sub

بالتوفيق

Database_1.accdb

تم تعديل يناير 11, 2022 بواسطه الفلاحجى

[husseinharby]

شكرا استاذي الجليل 

بارك الله فيك

[أبوبسمله]

في ١١‏/١‏/٢٠٢٢ at 17:41, husseinharby said:

شكرا استاذي الجليل 

بارك الله فيك

الشكر لله ثم لمعلمنا وشيخنا الجليل ابو خليل

بالتوفيق اخى