الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود فتح التقرير

مغلقمُجاب
بدأه سالم فتحي في 28 سبتمبر 2013 · 3 رد · 376 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

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

Dim SF As String
SF = "([اسم_الموظف]='" & "وليد خالد محمد" & "')"
DoCmd.OpenReport "cv", acViewPreview, , SF

اريد تغييره بجعله على رقم سجله  ..اي استبدال حقل اسم_الموظف بحقل التسلسل  ووضع رقم السجل بدل الاسم

 

 

وشكرا

تم تعديل هذه المشاركة بواسطة سالم فتحي في 28 سبتمبر 2013 في 14:27

#2

علما ان رقم السجل هو ترقيم تلقائي

#3 أفضل إجابة

اخي الفاضل : سالم

 

هل سيتم كتابة الرقم  في الكود الخاص بفتح التقرير  ام  ستعتمد على  حقل الرقم  !!!!!!!!

 

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

 

Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "cv", acViewPreview, , stLinkCriteria
 
 
 
اما اذا كنت تريد فتح التقرير مباشرة بدون اي نموذج فسيكون الكود بهذه الطريقة معتمدا على رقم الموظف ( كرقم وليس حقل )
 
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =2" 
DoCmd.OpenReport "cv", acViewPreview, , stLinkCriteria
 
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 28 سبتمبر 2013 في 17:03

1
#4
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =2" 
DoCmd.OpenReport "cv", acViewPreview, , stLinkCriteria

هو هذا المطلوب بعينه 

 

شكرا جزيلا ..   +1

هذا الموضوع مغلق.

مواضيع مشابهة