الاستاذة ( زهره ) هل من حل لهذه المشكلة ؟

بارك الله فيك استاذة زهرة ,,

مارأيك في هذا الكود ؟ 

On Error GoTo Err_ÃãÑ22_Click

    Dim stDocName As String

    stDocName = "asdar"
    DoCmd.OpenReport stDocName, acPreview

Exit_ÃãÑ22_Click:
    Exit Sub

Err_ÃãÑ22_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ22_Click

اخي الفاضل

هذا الكود ( القديم )  الخاص بكم  لا يصلح لهذه العملية لعدم وجود  معايير به

لأنه يقوم بعرض جميع السجلات في التقرير

Dim stDocName As String
 
    stDocName = "asdar"
    DoCmd.OpenReport stDocName, acPreview

Dim stLinkCriteria As String
stLinkCriteria = "[Naame]=" & "'" & Me![Naame] & "'"
DoCmd.OpenReport "asdar", acViewPreview, , stLinkCriteria

بارك الله فيك أستاذتنا القديرة زهرة , تم تنفيذ الكود , شاكر لك ردك لا حرمكِ الله الجنة ,,

عندي برنامج انتهيت منه اليوم , وأريد رأيك فيه ولكنه خاص وصعب اعرضه في المنتدى .

لطفاً لو فتحتِ الرسائل الخاصة حتى ارسله عليك وأرى تقييمك له وملاحظاتك التي هي 

بالتأكيد مصدر قوة للبرنامج ,,

شاكر لك