تغيرر التاريخ في امر الطباعه

[co2002co]

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

اسعد الله واقاتكم بكل خير

 

عند الضغط على امر الطباعه يعطيك امر ل عدد النسخ المطلوبه

حاب اعمل تاريخ متغير على حسب عدد النسخ يحسب من تاريخ امر الطباعه

 

 

مثال

اليوم التاريخ 1/1

وعملت امر طباعه ب 3 نسخ

تكون النسخ على النحو التالي

نسخه بتاريخ 1/1

نسخه بتاريخ 1/2

نسخه بتاريخ 1/3

 

4.rar

[jjafferr]

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

 

ضع هذا الكود في وحدة نمطية:

Option Compare Database
Public Get_myDate As Date

Function Get_This()

    Get_This = Get_myDate
End Function

 

كود امر الطباعة ، اصبح:

Private Sub Command22_Click()

    Dim I As Byte

    CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ")

    If IsNumeric(CopyN) Then
        
        For I = 0 To CopyN - 1
            Get_myDate = DateAdd("d", I, Date)
            DoCmd.OpenReport "rpt_Patient_Drugs"
        Next I
    Else
        MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical
    End If
    
End Sub

 

 

جعفر

552.4.accdb.zip

[co2002co]

اشكرك جزيل الشكر سيد

الل يجزاك عنا بكل خير

 

بس في تعديل بسيط اذا ممكن

 

ابي اخليه لشهر

يعني تاريخ الطباعه يكون كالتالي

محرم 1

صفر 1

ربيع اول 1

[jjafferr]

[co2002co]

مازا اعمل

[Shivan Rekany]

6 دقائق مضت, co2002co said:

مازا اعمل

من رخصة استاذ جعفر القدير

اتفضل 
 

552.4.accdb.zip

[co2002co]

اشكركم انتو 2

كلكم خير وبركه

اجرب الان

اشكركم انتو 2

كلكم خير وبركه

اجرب الان

[jjafferr]

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

 

هذا مجرد تغيير في تنسيق التاريخ

.

جعفر

[co2002co]

 

5 دقائق مضت, Shivan Rekany said:

من رخصة استاذ جعفر القدير

اتفضل 

4 دقائق مضت, jjafferr said:

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

 

هذا مجرد تغيير في تنسيق التاريخ

ممكن لم اوصل الفكره بالشكل الصحيح

 

انا الي قصدته

ان التاريخ متغير على حسب عدد النسخ

 

يعني اليوم التاريخ

1محرم

وانا حبيت اطبع ثلاث نسخ ( حيث ان كل نسخه تمثل شهر كامل من تاريخ الصرف)

1محرم

1صفر

1ربيع اول

[jjafferr]

وهذا بالضبط اللي يعمله الكود ،

ولكن ما تقدر تشوفه إلا في الطباعة (يعني ما يصير في معاينة التقرير) ،

انا ما اطبع على ورق _3 نسخ) ، وانما عندي طابعة pdf ، فتطبع لي ملفات pdf من التقرير.

 

جعفر

[Shivan Rekany]

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

 

ممكن لم اوصل الفكره بالشكل الصحيح

 

انا الي قصدته

ان التاريخ متغير على حسب عدد النسخ

 

يعني اليوم التاريخ

1محرم

وانا حبيت اطبع ثلاث نسخ ( حيث ان كل نسخه تمثل شهر كامل من تاريخ الصرف)

1محرم

1صفر

1ربيع اول

بدل هذا الكود

Get_myDate = DateAdd("d", I, Date)

الى هذا

Get_myDate = DateAdd("m", I, Date)

 

[jjafferr]

4 دقائق مضت, Shivan Rekany said:

بدل هذا الكود

Get_myDate = DateAdd("d", I, Date)

الى هذا

Get_myDate = DateAdd("m", I, Date)

 

 

شكرا استاذ شفان على التصحيح

 

جعفر

[Shivan Rekany]

55 دقائق مضت, co2002co said:

اشكركم انتو 2

كلكم خير وبركه

اجرب الان

اشكركم انتو 2

كلكم خير وبركه

اجرب الان

لا داعي للشكر
هذا واجبنا
 

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

[co2002co]

 

18 دقائق مضت, Shivan Rekany said:

من رخصة استاذ جعفر القدير

اتفضل 

17 دقائق مضت, jjafferr said:

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

 

هذا مجرد تغيير في تنسيق التاريخ

ممتااااااااااااااااااااااااااااز

رووووووووعه

اشكركم جزيل الشكر انتو 2