بسمه تعالى
بحثت بالمنتدى عن الكود الذي يعرض او يطبع السجل الحالي بالنموذج والكود هو :
Private Sub طباعة_تقرير_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الرقم]=" & Me![الرقم]
DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria
End Sub
سؤالي : للاخوة الكرام
ان هذا الكود يكون لشرط واحد . طيب لو كان هناك شرط مركب مثلاً
لو كان عندنا نموذج وبه رقم الموظف (ID) ورقم الدورة الحاصل عليها(no) . كيف اضع شرط يعرض التقرير برقم الموظف وفي نفس الوقت رقم الدورة الحاص عليها ؟
بسمه تعالى
بحثت بالمنتدى عن الكود الذي يعرض او يطبع السجل الحالي بالنموذج والكود هو :
Private Sub طباعة_تقرير_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الرقم]=" & Me![الرقم]
DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria
End Sub
سؤالي : للاخوة الكرام
ان هذا الكود يكون لشرط واحد . طيب لو كان هناك شرط مركب مثلاً
لو كان عندنا نموذج وبه رقم الموظف (ID) ورقم الدورة الحاصل عليها(no) . كيف اضع شرط يعرض التقرير برقم الموظف وفي نفس الوقت رقم الدورة الحاص عليها ؟
بسمه تعالى
بالنسبة لسؤالي بالاعلى الحمدلله وبمساعدة من الاقرباء تم التوصل الى الكود المطلوب وشكرا على كل حال للأعضاء الذي حاول مساعدتي واليكم الكود ليعم الفائدة للجميع وهي كالتالي :
On Error Resume Next
Dim stLinkCriteria As String
Dim bb As String
DoCmd.Close acReport, "r_evening"
stLinkCriteria = "[no_id]=" & "'" & Me![no_id] & "'"
bb = "[no_program]=" & Me![no_program]
stLinkCriteria = stLinkCriteria & " AND " & bb
DoCmd.OpenReport "r_evening", acViewPreview, , stLinkCriteria
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…