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

[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]

  في 24‏/1‏/2017 at 16:29, co2002co said:

مازا اعمل

Expand  

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

اتفضل 
 

552.4.accdb.zip

[co2002co]

اشكركم انتو 2

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

اجرب الان

اشكركم انتو 2

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

اجرب الان

[jjafferr]

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

 

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

.

جعفر

[co2002co]

 

  في 24‏/1‏/2017 at 16:37, Shivan Rekany said:

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

اتفضل 

Expand  

  في 24‏/1‏/2017 at 16:39, jjafferr said:

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

 

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

Expand  

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

 

انا الي قصدته

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

 

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

1محرم

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

1محرم

1صفر

1ربيع اول

[jjafferr]

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

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

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

 

جعفر

[Shivan Rekany]

  في 24‏/1‏/2017 at 16:44, co2002co said:

 

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

 

انا الي قصدته

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

 

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

1محرم

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

1محرم

1صفر

1ربيع اول

Expand  

بدل هذا الكود

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

الى هذا

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

 

[jjafferr]

  في 24‏/1‏/2017 at 16:48, Shivan Rekany said:

بدل هذا الكود

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

الى هذا

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

 

Expand  

 

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

 

جعفر

[Shivan Rekany]

  في 24‏/1‏/2017 at 16:39, co2002co said:

اشكركم انتو 2

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

اجرب الان

اشكركم انتو 2

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

اجرب الان

Expand  

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

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

[co2002co]

 

  في 24‏/1‏/2017 at 16:37, Shivan Rekany said:

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

اتفضل 

Expand  

  في 24‏/1‏/2017 at 16:39, jjafferr said:

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

 

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

Expand  

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

رووووووووعه

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