• 0
raed100

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

سؤال

السلام عليكم 

 

الاخوة الكرام لدي قاعدة بيانات تحتوي عاى جدول معاملات الاعادة  حيث تم تحديد رقم المعاملة بالمفتاح الرئيسي 

 

اريد تصميم نموذج يعرض بيانات معاملة  الاعاده التي احدد رقمها فقط لانتمكن من طباعتها فقط 

 

نموذج الاعادة يحتوي على زر طباعة المعامله وزر اخر خروج من غير طباعة 

 

 

مع الشكر الجزيل 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

10 إجابة على هذا السؤال .

  • 0

ارفق مثال فيه المطلوب 

 

حتى يتسنى للاخوه الاعضاء مساعدتك اخي

 

وفقك الله ورعاك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام :)

 

هذا الرابط يفتح نموذج آخر على حسب الرقم المطلوب ،

وانت تريده يفتح تقرير ، فكود الفتح والتصفيه متشابه للنموذج والتقرير :)

http://arabteam2000-forum.com/index.php/topic/291870-مساعدة-في-تحرير-وسرد/?p=1392689

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرفق مثال
 
مع الشكر اخي الكريم

تم تعديل بواسطه raed100
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي العزيز تم التعديل

هل هذا ما تريد

Rpt.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لأخي Aliraqe لعرض استعلام لكل رقم معاملة :)

 

وانا هنا اعرض طريقة اخرى ، وهي اختيار اكثر من رقم معاملة وطباعتها ،

 

النموذج:

post-273849-0-16589600-1406380089_thumb.

 

 

والتقرير:

post-273849-0-71647700-1406380115_thumb.

 

 

وهذا هو الكود لإختيار الكل ، او عدم إختيار الكل ، وطباعة التقرير:

   Private Sub cmd_Preveiw_Report_Click()    If Me.Dirty Then Me.Dirty = False    DoCmd.OpenReport "rpt_Appointments", acViewPreview, , "[iSelect]=-1"End SubPrivate Sub cmd_Select_All_Click()    Set rst = Me.RecordsetClone    rst.MoveFirst    For i = 1 To rst.RecordCount        rst.Edit        rst!iSelect = -1        rst.Update                rst.MoveNext    Next i        rst.Close: Set rst = NothingEnd Sub Private Sub cmd_De_Select_All_Click()    Set rst = Me.RecordsetClone    rst.MoveFirst    For i = 1 To rst.RecordCount        rst.Edit        rst!iSelect = 0        rst.Update                rst.MoveNext    Next i        rst.Close: Set rst = NothingEnd Sub

جعفر

224.مثال1.accdb.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

رائع جداً أخي جعفر ..بارك الله فيك على هذا الجهد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انا حاضر شكرا جزيلا لك اخ جعفر :thumb_up: 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جزبلا لكم وبارك الله فيكم 

 

اريد تصميم استعلام عن رقم معامله معادة وبعد استعراض هذه المعاملىه  طباعتها فقط؟؟؟؟؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .