الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه raed100 في 21 يوليو 2014 · 10 رد · 711 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم 

 

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

 

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

 

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

 

 

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

#2

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

 

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

 

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

اتق الله حيث ماكنت

#3

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

 

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

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

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

 

 

جعفر

#4

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

تم تعديل هذه المشاركة بواسطة raed100 في 23 يوليو 2014 في 21:56

#5

مثال1.rar

#6

للتذكير....

#7

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

هل هذا ما تريد

Rpt.rar

#8

شكرا لأخي 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 Sub

Private 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 = Nothing
End 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 = Nothing
End Sub

جعفر

224.مثال1.accdb.zip

#9

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

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#10

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

#11

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

 

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

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…