TAMER AGOOR

لو عايز اغير لون خليه فى التقرير بناء على اكتر من قيمه (10 قيم مثلا) ازاى اكتبها فى ال conditional formating مثال على ذالك (a or b or c or d or f or d)

ا.محمد صالح هل الكود باشكل ده سليم If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then myT = Array("table1", "table2", "table3") DoCmd.SetWarnings False For Each T In myT DoCmd.RunSQL "DELETE * FROM " & T & ";" Next T DoCmd.SetWarnings True MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

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

الكود ده جميل وشغال .. لكن لو فيه جداول كتير هل لازم اقعد اضفها كلها وحتى لو ضفتها كلها ممكن فيما بعد يتم اضافه جداول اخرى والموضوع كده حيبقى صعب ولا فيه طريق اسهل للحزف الجماعى if MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

السلام عليكم Private Sub Command172_Click() On Error GoTo Err_Command172_Click Dim strDefaultPrinter As String strDefaultPrinter = Application.Printer.DeviceName Set Application.Printer = Application.Printers("Universal Document Converter") Dim stDocName As String stDocName = "Urine cc" DoCmd.OpenReport stDocName, acNormal Set Application.Printer = Application.Printers(strDefaultPrinter) Exit_Command172_Click: Exit Sub Err_Command172_Click: MsgBox Err.Description Resume Exit_Command172_Click End Sub ده زر امر بطبع بيه التقرير ازاى استخدم الكود المكتوب هنا بتاع تغير اسم التقرير ياسم العميل بحيث اسم التقرير المخزن يطلع باسم العميل وشكرا

Private Sub Command34_Click() On Error GoTo Err_Command34_Click Dim stDocName As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 stDocName = "stool" DoCmd.OpenReport stDocName, acNormal Exit_Command34_Click: Exit Sub Err_Command34_Click: MsgBox Err.Description Resume Exit_Command34_Click End Sub ده زرار امر طباعه عندى .. ازاى بقا ادخل كود اختيار الطابعه اللى مكتوب هنا ده

السلام عليكم اخواتى الكرام