كيفية فتح النموذج من التقرير

[Mohamed rafaat]

السلام عليكم 

اريد حل لهذه المشكله باذن الله

قمت بعمل بحث علي الفواتير واظهار النتائج بالتقرير وعند الضغط علي رقم الفاتورة بيتم فتح نموذج الفاتوره 

المشكله انه بيفتح بيانات الفاتورة رقم ١ حتي عند اختيار فاتوره رقم ٣ بيظهر فالنموذج الفاتورة رقم ٣ وباقي بيانات النموذج الرئيسي والفرعي بيانات الفاتوره رقم ١

وهذا هو الكود المستخدم

Private sub Id_click() 

Docmd. Openform "Invoicepay" 

Dim s

S= me. Id

Docmd. Gotocontrol "Idinv" 

Docmd. Findrecord s

[forms]![Invoicepay]![Idinv] =s

[AlwaZeeR]

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

DoCmd.OpenForm "Invoicepay", , , "[Idinv]=" & Me.ID

 

[Mohamed rafaat]

شكرا لرد حضرتك ولكن هل الغي الكرد كامل واكتب الكود الذي ارسلته لي

[AlwaZeeR]

3 minutes ago, Mohamed rafaat said:

شكرا لرد حضرتك ولكن هل الغي الكرد كامل واكتب الكود الذي ارسلته لي

نعم صحيح

[Mohamed rafaat]

5 دقائق مضت, AlwaZeeR said:

نعم صحيح

ولكن اعطاني رساله ادخال قيمه معلومه

 

[AlwaZeeR]

ارفق مثالا صغيرا

 

[Mohamed rafaat]

الملف 

Database1.rar

[AlwaZeeR]

 

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

 

[Mohamed rafaat]

4 دقائق مضت, AlwaZeeR said:

 

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

حضرتك جربه علي التقرير واعمل بحث علي كود العميل واختار اي فاتورة غير رقم 1 وافتح النموذج سيتم فتحه لكن البيانات بالنموذج الرئيسى والفرعي ملهومش علاقه بالفاتورة الا تم اختيارها ولكن الموجود بيانات الفاتورة رقم 1

 

[AlwaZeeR]

Invoicepay

هذا النموذج؟؟

اين هو؟

ما هو اسم النموذج الذي تريد فتحه عند الضغط على رقم الفاتورة؟

ما هو المعيار ؟

[Mohamed rafaat]

3 دقائق مضت, AlwaZeeR said:

Invoicepay

هذا النموذج؟؟

اين هو؟

ما هو اسم النموذج الذي تريد فتحه عند الضغط على رقم الفاتورة؟

ما هو المعيار ؟

النموذج InvoiceSales

عند الضغط علي رقم الفاتوره بالتقرير يتم فتح الفاتورة التي اختارتها

[Mohamed rafaat]

ارجو المساعد من الأعضاء 

[Mohamed rafaat]

15 ساعات مضت, Mohamed rafaat said:

النموذج InvoiceSales

عند الضغط علي رقم الفاتوره بالتقرير يتم فتح الفاتورة التي اختارتها

 

15 ساعات مضت, AlwaZeeR said:

Invoicepay

هذا النموذج؟؟

اين هو؟

ما هو اسم النموذج الذي تريد فتحه عند الضغط على رقم الفاتورة؟

ما هو المعيار ؟

حضرتك ماوصلتش لحل للمشكله

[Mohamed rafaat]

ارجو المساعده لضرورة الامر

[Mohamed rafaat]

انا اسف للجميع ارجو المساعده في طلبي والنموذج مرفق فالاعلي

[biskra]

58 دقائق مضت, Mohamed rafaat said:

انا اسف للجميع ارجو المساعده في طلبي والنموذج مرفق فالاعلي

يظهر أن ئؤالك غير واضح أخي الكريم، حسب الملف الذي أرفقته، لو استبدلت الكود الموجود في الملف

DoCmd.OpenForm "InvoiceSales", , , "[IdInv]=" & Me.Id

بالكود المقترح أعلاه سوف يفتح لك الفورم الذي ذكرته في طلبك

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

إلا إذا كان ما تريده شيئا آخر

[Mohamed rafaat]

9 دقائق مضت, biskra said:

يظهر أن ئؤالك غير واضح أخي الكريم، حسب الملف الذي أرفقته، لو استبدلت الكود الموجود في الملف

DoCmd.OpenForm "InvoiceSales", , , "[IdInv]=" & Me.Id

بالكود المقترح أعلاه سوف يفتح لك الفورم الذي ذكرته في طلبك

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

إلا إذا كان ما تريده شيئا آخر

شكرا لرد حضرتك

سؤالي هو عند عمل بحث يتم اظهار نتيجه البحث بالتقرير اريد عند الضغط علي رقم الفاتوره بالتقرير فتح النموذج برقم الفاتوره

المشكله عند الضغط علي رقم فاتوره ٣ يتم فتح الفاتوره رقم ١ فقط ولم يتم فتح الفاتوره التي تم اختيارها اعتقد ان المشكله بالنموذج

 

[biskra]

Private Sub Id_Click()
DoCmd.OpenForm "InvoiceSales"
Dim s
s = Me.Id
DoCmd.GoToControl "Idinv"
[Forms]![invoiceSales]![IdInv] = s
End Sub

جرب الكود التالي

 

[Mohamed rafaat]

منذ ساعه, biskra said:

Private Sub Id_Click()
DoCmd.OpenForm "InvoiceSales"
Dim s
s = Me.Id
DoCmd.GoToControl "Idinv"
[Forms]![invoiceSales]![IdInv] = s
End Sub

جرب الكود التالي

 

حضرتك جربتها علي الملف واشتغل معاك تمام فتح الفاتوره بجميع بياناتها 

لاني قمت بكتابة كود مشابه ولم يدرك بيانات الفاتورة كامله والكود في الاول خالص

[Mohamed rafaat]

برجاء المساعده 

توصلت ان المشكله بالنموذج عند فتحه من التقرير لا يتم تغيير البيانات فيه حسب بيانات الفاتوره ارجو من الاخوه الأعزاء معرفة سبب عدم فتح النموذج 

[Mohamed rafaat]

Database1.rar