طباعة التقرير الحالي فقط

[Tarekfathallah]

السلام عليكم لدي قاعدة بيانات واريد عند الضغط على زر الطباعة ان يطبع لي الورقة الحالية فقط وشكراً 

مرفق القاعدة 

للرفع 

obeidi input.rar

[محمد أبوعبدالله]

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

فضلا مراجعة المرفق

تحياتي

obeidi input.rar

[Tarekfathallah]

مشكور استاذ محمد ابو عبد الله وشكرا لمرورك ولكن ليس هو ما اطلبه اريد ان أطبع التقرير الحالي وليس كل التقارير من خلال الفورم t_mouamalat   فيه زر طباعة التقرير وفقط التقرير الحالي ولك فائق وجزيل الشكر 

obeidi input1.rar

[Shivan Rekany]

15 دقائق مضت, tarek_f26180 said:

مشكور استاذ محمد ابو عبد الله وشكرا لمرورك ولكن ليس هو ما اطلبه اريد ان أطبع التقرير الحالي وليس كل التقارير من خلال الفورم t_mouamalat   فيه زر طباعة التقرير وفقط التقرير الحالي ولك فائق وجزيل الشكر 

obeidi input1.rar

مشاركة مع السيد @محمد ابوعبد الله

اتفضل اخي 

اضفت حقل اي دي في النموذج والتقرير

واضفت من الكود شرط اي دي يساوي اي دي

 "[id]=" & Me.ID

اي الكود سيكون كالتالي

    Dim stDocName As String

    stDocName = "R_mouamalat"
    DoCmd.OpenReport stDocName, acPreview, , "[id]=" & Me.ID

 

obeidi input1.rar

[Tarekfathallah]

مشكور يا اخي شيفان ريكاني ادامك الله زخرا لنا وحماك ورفع درجاتك

[Tarekfathallah]

يا اخوة الكرام اخ شيفان طبقت ما طلبت ولكن حصل معي خطأ ولم أعرف السبب الرجاء المساعدة مرفق القاعدة وهل الشغل هيك صحيح أم بحاجة لتغيير جذري فيها 

-------------------   للرفع -------------------

obeidi input2.rar

[Shivan Rekany]

26 دقائق مضت, tarek_f26180 said:

يا اخوة الكرام اخ شيفان طبقت ما طلبت ولكن حصل معي خطأ ولم أعرف السبب الرجاء المساعدة مرفق القاعدة وهل الشغل هيك صحيح أم بحاجة لتغيير جذري فيها 

-------------------   للرفع -------------------

obeidi input2.rar

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

اخي الكريم افتح تقاريرك واضف اليه حقل اي دي

لاننا اعطينا فتح عند شرط وهو

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

تحياتي

[Tarekfathallah]

مشكور اخي لقد نفذت المطلوب 

[Tarekfathallah]

السلام عليك اخ شيفان والاخوة الافاضل الرجاء تقييم المشروع وهل من فكرة افضل له لو سمحتم 

[Shivan Rekany]

28 دقائق مضت, tarek_f26180 said:

السلام عليك اخ شيفان والاخوة الافاضل الرجاء تقييم المشروع وهل من فكرة افضل له لو سمحتم 

اعتذر منك بشدة
انا لا اعرف شي حتى اعمل تقييم لمشروع 
لذا تقدر تفتح موضوع جديد و تطلب من الخبراء و المشرفين ان يعملوا تقييم لمشروعك

تقبل تحياتي

3 دقائق مضت, tarek_f26180 said:

اخ شيفان لو سمحت كيف يمكنني كتابة السنة الحالية في تكست بوكس ويتغير تلقائيا كل سنة وشكراً لمرورك

لكي لا يزيد من مشاركاتي عملت تعديل على هذه المشاركة

مثلا عندك مربع نص باسم Text1 

اكتب في مصدره 

= Format(Date();"YYYY")

او في محرر الاكواد اكتب

Text1 = Format(Date();"YYYY")

 

تم تعديل أبريل 17, 2017 بواسطه Shivan Rekany

[Tarekfathallah]

اخ شيفان لو سمحت كيف يمكنني كتابة السنة الحالية في تكست بوكس ويتغير تلقائيا كل سنة وشكراً لمرورك