السلام عليكم ورحمة الله وبركاتة
تفضل اخي الكريم
معاينة من نوع رقم
CODE
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م]= " & Me![م]
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub
طباعة من نوع رقم
CODE
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م]= " & Me![م]
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub
معاينة من نوع اسم
CODE
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]= " & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub
طباعة من نوع اسم
CODE
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]= " & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub
ملاحظة هامة
جدول 1 هـــو أسم التقرير
وبتوفيق