ابو محمد55555

بسمه تعالى بالنسبة لسؤالي بالاعلى الحمدلله وبمساعدة من الاقرباء تم التوصل الى الكود المطلوب وشكرا على كل حال للأعضاء الذي حاول مساعدتي واليكم الكود ليعم الفائدة للجميع وهي كالتالي : On Error Resume Next Dim stLinkCriteria As String Dim bb As String DoCmd.Close…

بسمه تعالى بحثت بالمنتدى عن الكود الذي يعرض او يطبع السجل الحالي بالنموذج والكود هو : Private Sub طباعة_تقرير_Click() Dim stLinkCriteria As String stLinkCriteria = "[الرقم]=" & Me![الرقم] DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria End Sub سؤالي :…

بسمه تعالى بحثت بالمنتدى عن الكود الذي يعرض او يطبع السجل الحالي بالنموذج والكود هو : Private Sub طباعة_تقرير_Click() Dim stLinkCriteria As String stLinkCriteria = "[الرقم]=" & Me![الرقم] DoCmd.OpenReport "ورقة1", acViewNormal, , stLinkCriteria End Sub سؤالي :…