shatat قام بنشر مايو 15, 2008 مشاركة قام بنشر مايو 15, 2008 السلام عليكم لدي نموذج واريد ان اضيف زر لمعاينة النموذج قبل الطباعة كيف يمكن ذلك ؟ رابط هذا التعليق شارك More sharing options...
ابوعزو قام بنشر مايو 16, 2008 مشاركة قام بنشر مايو 16, 2008 (معدل) السلام عليكم ورحمة الله وبركاتة تفضل اخي الكريم معاينة من نوع رقم 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 بواسطه أبا عمر رابط هذا التعليق شارك More sharing options...
samme قام بنشر مايو 21, 2008 مشاركة قام بنشر مايو 21, 2008 [الاخ ابوعزو جزاك الله كل خير وبارك الله فيك رابط هذا التعليق شارك More sharing options...
shatat قام بنشر مايو 25, 2008 الكاتب مشاركة قام بنشر مايو 25, 2008 شكرا اخي ولكن ليس هذا ماطلبت اريد ان افتح النموذج وليس التقرير في المعاينة رابط هذا التعليق شارك More sharing options...
shatat قام بنشر مايو 25, 2008 الكاتب مشاركة قام بنشر مايو 25, 2008 شكرا اخي ولكن ليس هذا ماطلبت اريد ان افتح النموذج وليس التقرير في المعاينة رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر مايو 26, 2008 مشاركة قام بنشر مايو 26, 2008 اخوي النماذج ستخدم لادخال و استعراض البيانات وليس للطباعه على العموم هذا الكود يكون في حدث عند النقر لزر ما مع ملاحظه تغيير اسم النموذج كود DoCmd.OpenForm "اسم النموذج ", acPreview رابط هذا التعليق شارك More sharing options...
ابو يامن قام بنشر مايو 26, 2008 مشاركة قام بنشر مايو 26, 2008 أخي يمكنك ذلك من خلال كتابة الكود التالي بزر Command : ملاحظة : X تعني إسم النموذج DoCmd.OpenForm "X", acPreview رابط هذا التعليق شارك More sharing options...
shatat قام بنشر مايو 26, 2008 الكاتب مشاركة قام بنشر مايو 26, 2008 شكرا اخي العزيز ابو سليم نجحت العملية رابط هذا التعليق شارك More sharing options...
ابو يامن قام بنشر مايو 26, 2008 مشاركة قام بنشر مايو 26, 2008 هذا واجبنا أخي ولمزيد من الأمثلة المفيدة لك إقرأ موضوعي التالي المليء بالأمثلة المفيدة لك http://www.officena.net/ib/index.php?showtopic=23573 رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 ينقل ........... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.