sasbl

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

السلام عليكم نتقد اليكم بالشكر والتقدير للاهتمام الذى المقدم من حظرتكم فى المساعدة فى اعداد الكود ونامل منكم مراجعة الكود الاتى Me!t1 = Date Me!t2 = Date Dim stDocName As String If Not IsNumeric(txtCopy) Then MsgBox (" ادخل عدد الصفحات ") Else If MsgBox("هل تر…

السلام عليكم مرفق لكم ملف عن المطلوب لكم تحياتى sasbl.rar

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

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

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("ه…

السلام عليكم نامل المساعدة فى تعديل المرفق لنتمكن من طباعة التقرير بعدد من النسخ مرفق الكود الذى تم اعداده والمطلوب التعديل عليه Private Sub cmdtpre1_Click() On Error Resume Next Dim I As Integer ProgressBar5.Visible = True For I = I To 10000 ProgressBar5.Valu…