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

كيفية طبع عدد من النسخ لتقرير اظافة الى عدة اكواد

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

السلام عليكم

نامل المساعدة فى تعديل المرفق لنتمكن من طباعة التقرير بعدد من النسخ 

مرفق الكود  الذى تم اعداده والمطلوب التعديل عليه

 

Private Sub cmdtpre1_Click()
On Error Resume Next
 Dim I As Integer
ProgressBar5.Visible = True
For I = I To 10000
ProgressBar5.Value = I
If I = 10000 Then
ProgressBar5.Visible = False
End If
Next I
 
    Me!t1 = Date
    Me!t2 = Date
    Dim stDocName As String
            If MsgBox("هل ترغب فى طباعة التقريراليومي  ( انتبه لن تتمكن  مرة اخرى اعادة طباعة الكشف ) ", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation + vbDefaultButton2, "  طباعة تقرير  ") = vbYes Then
            stDocName = "endd7"
         DoCmd.OpenReport stDocName, acNormal ' طباعة
 
         End If
 
   t1.Value = ""
   t2.Value = ""
      Me.Refresh
 
Exit_cmdtpre1_Click:
    Exit Sub
 
Err_cmdtpre1_Click:
    MsgBox err.Description
   Resume Exit_cmdtpre1_Click
 
End Sub
 
#2
Private Sub cmdtpre1_Click()

On Error Resume Next

 Dim I As Integer

ProgressBar5.Visible = True

For I = I To 10000

ProgressBar5.Value = I

If I = 10000 Then

ProgressBar5.Visible = False

End If

Next I

 

    Me!t1 = Date

    Me!t2 = Date

    Dim stDocName As String

            If MsgBox("هل ترغب فى طباعة التقريراليومي  ( انتبه لن تتمكن  مرة اخرى اعادة طباعة الكشف ) ", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation + vbDefaultButton2, "  طباعة تقرير  ") = vbYes Then

            stDocName = "endd7"

         DoCmd.OpenReport stDocName, acNormal ' طباعة

 

         End If

 

   t1.Value = ""

   t2.Value = ""

      Me.Refresh

 

Exit_cmdtpre1_Click:

    Exit Sub

 

Err_cmdtpre1_Click:

    MsgBox err.Description

   Resume Exit_cmdtpre1_Click

 

End Sub

 

#3

للرفع للاهمية

#4

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

 

غير هذا السطر:

      DoCmd.OpenReport stDocName, acNormal ' طباعة

الى

A=Inputbox "How Many copies of the Report do you want"
for i= 1 to A
      DoCmd.OpenReport stDocName, acNormal ' طباعة
next i

جعفر

#5

تحياتى تقديرى لكم على الاستجابة

الاانه لم يتم طباعة المطلوب بعد التعديل حيث لدى فورم يحتوى على عدة ازرار عرض تقرير وعدة ازرار طباعة التقرير وتيكست بوكس حيث عند الزر على زر امر الطباعة لاتتم الطبع الابعد وضع عدد النسخ المطلوب طباعتهاوبذلك يتم خروج مسج فى حالة عدم وضع العدد

#6

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

 

حسب معطياتك ، اعطيتك الحل ،

اذا عندك معطيات اخرى ، فكيف اعرف عنها!!!!

 

لوسمحت ترفق برنامجك ، ثم تخبرنا اي نموذج ننظر فيه ، ثم ماهو الزر الذي تريدنا ان ننظر فيه ، وماهي النتيجة اللي تريدها ،

يعني تعطينا بالتفصيل الممل (كما قالت أختنا الدكتورة أم عهود حفظها الله :) )

 

 

جعفر

#7

السلام عليكم 

مرفق لكم ملف عن المطلوب

لكم تحياتى

sasbl.rar

#8

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

 

انت لم تستخدم الكود الذي وضعته لك ، ولإستعماله في برنامجك ، بدل هذين السطرين:

DoCmd.PrintOut , , , , 2
      DoCmd.OpenReport stDocName, acNormal ' ØÈÇÚÉ

استخدم

for i= 1 to me.نص34
      DoCmd.OpenReport stDocName, acNormal ' طباعة
next i

اما اذا اردت استخدام كودك ، فيجب ان يكون هكذا:

DoCmd.OpenReport stDocName, acViewPreview
    DoCmd.PrintOut , , , , me.نص34
    DoCmd.Close acReport, stDocName

جعفر

#9

السلام عليكم 

  • نتقد اليكم بالشكر والتقدير للاهتمام الذى المقدم من حظرتكم فى المساعدة فى اعداد الكود ونامل منكم مراجعة الكود الاتى
  •     Me!t1 = Date
        Me!t2 = Date
        Dim stDocName As String
        If Not IsNumeric(txtCopy) Then
        MsgBox ("      ادخل عدد الصفحات ")
        Else
     
        If MsgBox("هل ترغب فى طباعة كشف الاحالة  ( انتبه لن تتمكن  مرة اخرى من اعادة طباعة الكشف ) ", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation + vbDefaultButton2, "  طباعة الكشف  ") = vbYes Then
        stDocName = "endd7"
        DoCmd.OpenReport stDocName, acViewPreview
        DoCmd.PrintOut , , , , Me.txtCopy
        DoCmd.Close acReport, stDocName
       ' DoCmd.PrintOut , , , , 2
       ' DoCmd.OpenReport stDocName, acNormal ' طباعة
       End If
        End If
     
        t1.Value = ""
        t2.Value = ""
        txtCopy.Value = ""
        Me.Refresh
     
#10

اخي الفاضل :)

 

انا وضعت لك كود طباعة التقرير حسب العدد الموجود في مربع النص في نموذجك ، واعطيتك طريقتين للإستعمال ، ولكنك لم تستخدم اي منهم في كودك :(

 

اما بالنسبة الى:

 

sasbl كتب:

 

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

 

 

فغير هذين السطرين:

If Not IsNumeric(txtCopy) Then
    MsgBox ("      ادخل عدد الصفحات ")

الى

if len(me.نص34 & "")=0 or val(me.نص34)=0 then
    MsgBox ("      ادخل عدد الصفحات ")

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 25 أكتوبر 2014 في 16:55

#11

السلام عليكم 

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

ولكم تحياتى

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

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

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

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

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