فتح نموذج على سجل محدد

[أبوبسمله]

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

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

النموذج FORMB اختار اى عميل واضغط دبل كليك على اى سجل يفتح نموذج FrmUpdateBianat على هذا السجل 

 

NCustomers.rar

[رمهان]

حسب فهمي : اذا كان رقم العملية لايقبل التكرار حسب تحليلك فانه يكفي لان يكون معيار وشرط الفتح للنموذج الوجهة .

وسيصبح الكود كالتالي :

Private Sub AutoNum_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[AutoNum]=" & Me![AutoNum]
DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria
End Sub

حيث تم حذف المعايير الاخرى !

بالتوفيق

[jjafferr]

السلام عليكم أخي أحمد وأخوي رمهان 

 

أخي أحمد ، اليك اسهل طريقة لجمع أكثر من شرط 

 

Dim stLinkCriteria As String
stLinkCriteria = "[AutoNum]=" & Me![AutoNum]
stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(1) & "'"
DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria

 

وهو الجواب لسؤالك 

 

جعفر

[أبوبسمله]

أشكركم إخوانى الافاضل رمهان وجعفر 

وتمنياتى لكم وللجميع بالتوفيق 

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

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

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

 

تم تعديل سبتمبر 8, 2015 بواسطه أحمد الفلاحجى

[jjafferr]

عفوا ، الكود هو (تغيير الواحد الى صفر):

Dim stLinkCriteria As String
stLinkCriteria = "[AutoNum]=" & Me![AutoNum]
stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(0) & "'"
DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria

 

وتفضل المرفق 

 

 

جعفر

 

108.NCustomers.mdb.zip

تم تعديل سبتمبر 8, 2015 بواسطه jjafferr

[أبوبسمله]

جزاك الله خيرا أخى جعفر 

تمام 

بارك الله فيكم اخوانى الكرام وجزاكم الله عنا خير الجزاء

[jjafferr]

اعتذر عن الخطأ ، ما اعرف كيف تحول الواحد الى صفر 

 

جعفر