( تمت الفائدة ) - كيف اعرض نموذج بزر معاينة قبل الطباعة

[shatat]

السلام عليكم

لدي نموذج

واريد ان اضيف زر لمعاينة النموذج قبل الطباعة

كيف يمكن ذلك ؟

[ابوعزو]

السلام عليكم ورحمة الله وبركاتة

تفضل اخي الكريم

معاينة من نوع رقم
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 هـــو أسم التقرير

وبتوفيق

تم تعديل أبريل 10, 2014 بواسطه أبا عمر

[samme]

[الاخ ابوعزو جزاك الله كل خير وبارك الله فيك

[shatat]

شكرا اخي

ولكن ليس هذا ماطلبت

اريد ان افتح النموذج وليس التقرير في المعاينة

[shatat]

شكرا اخي

ولكن ليس هذا ماطلبت

اريد ان افتح النموذج وليس التقرير في المعاينة

[Bluemind]

اخوي

النماذج ستخدم لادخال و استعراض البيانات وليس للطباعه

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

كود

DoCmd.OpenForm "اسم النموذج ", acPreview

 

[ابو يامن]

أخي يمكنك ذلك من خلال كتابة الكود التالي بزر Command :
ملاحظة :
X تعني إسم النموذج
 

DoCmd.OpenForm "X", acPreview

[shatat]

شكرا اخي العزيز ابو سليم

نجحت العملية

[ابو يامن]

هذا واجبنا أخي

ولمزيد من الأمثلة المفيدة لك إقرأ موضوعي التالي المليء بالأمثلة المفيدة لك

http://www.officena.net/ib/index.php?showtopic=23573

[أبا عمر]

ينقل 


...........