فتح الفورم على نفس الفاتورة

اخي الفاضل

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

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

لديك نموذج بحث se_comp ويوجد به مربع قائمة SearchList

انت تريد حسب الكود الموجود لديك عند الضغط DblClick على اي سجل ان يتم فتح النموذج se_comp على نفس القيمة الموجوده في الحقلين Rechnung_nr سواء في مربع قائمة البحث او في النموذج se_comp حسب هذا الكود

Private Sub SearchList_DblClick(Cancel As Integer)
DoCmd.OpenForm "se_comp", , , , , acHidden
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rechung"
stLinkCriteria = "[Rechnung_nr]=" & Me![SearchList]
DoCmd.OpenForm stDocName, , stLinkCriteria, acDialog
End Sub

حسنا دعنا نرى اولا هل الحقل Rechnung_nr في مربع القائمة في النموذج rechung يوجد به قيمه أم لا بالطبع لا يوجد به اي قيمه وهذا خطأ فكيف تريد ان تبحث عن شيء خالي وتريد ان تحصل على نتيجه في النموذج se_comp وطبيعي ان تحصل على لا شيء لهذا يجب عليك اولا في مربع القائمة اذا كان هذا Rechnung_nr هو المطلوب البحث به ان يكون به قيم حتى عند فتح اي نموذج آخر يفتح على نفس القيمه .

ايضا هناك نقطة هامه وهي معرفة مكان العمود Rechnung_nr في مربع القائمة SearchList في نموذج rechung حيث يوجد لديك خمسة اعمده ومكان العمود Rechnung_nr هو الثاني من جهة اليسار بعد العمود AN لهذا سيكون اول عمود وهو AN سياخذ الرقم ( 0 ) لأنه اول واحد ويأتي بعده العمود Rechnung_nr لأنه الثاني سيأخذ الرقم ( 1 ) وسيكون التعديل على الكود بإضافة التحديد Column وسيكون التعديل بهذه الطريقة

stLinkCriteria = "[Rechnung_nr]=" & Me![SearchList].Column(1)

الآن طبق هذا الشرح على برنامج سواء في النموذج se_comp او النموذج se_inv وسوف تحصل على نتائج مرضيه

بارك الله فيك أختى زهرة

جربت الحل السابق ولكن لم يضبط معى

ولكن إكتشفت شىء أخر وهو أنى بنيت الفورم rechung بناء على إستعلام

حاولت وقومت ببناءه على الجدول الرئيسى ضبط الوضع

ولكن بقى عندى كيفية إستخراج القيم الحسابية من الإيتعلام لتظهر على الفورم

فكرت فى أستخدام الدالة

DLookUp

مع المتغير nz

لتكون هكذا

=Nz(DLookUp("[Gesamtpreis]";"Rechnung_q";"[rechung_nr]=rechung_nr")

أيضا ما ضبط

تم الحل

شكرا لك إخوننا فى المنتدى

وجدت الحل

بنت الفورم rechung على أساس الجدول وليس على أساس الإستعلام

ثم جعلت فى مصدر التحكم للخانة mwst عند on lost focus

العمليات الحسابية التى إريدها لتضهر على النموذج

الأن رجعت للفورم se_comp

وجعلت عند البل كلك

DoCmd.OpenForm "se_comp", , , , , acHidden
Dim stLinkCriteria As String
DoCmd.OpenForm "rechung", , , , , acHidden
stDocName = "rechung"
stLinkCriteria = "[Rechnung_nr] =" & Me![SearchList]
DoCmd.OpenForm "rechung", , , stLinkCriteria

وضبط الموضوع

شكرا لك من ساهم