TAMER AGOOR

ايه ىالحاجات اللى بتسبب انهيار قاعده بيانات الاكسيس وفشلها فى العمل.. وايه هى اهم الاحاجات اللى اتجنبها علشان ميحصلش حاجه زى كده؟؟

الحمد لله توصلت اليها اشكرك .. اخذت من الكود الخاص بك جزء وقمت بتعديله على التقرير الخاص بى وعمل بنجااااااااح .؟ وحبيت اشاركها معكم يمكن تفيد شخص ما. ولكم جزيل الشكر كود تغيي الخلفيه - Copy.accdb

الكود ده صح كده لانه مش شغال SNAG-45070214143600.bmp

tamer.accdb وده يوضح اكتر .. متاسف خليك فى الاخير ده tamer.accdb

المرفق ده يوضح كلامى tamer.accdb

قصدى تحتوى ضمن كلماته على العلامه * زى مثلا (احمد*)

ازاى اكتب شرط فى التنسيق الشرطى للتقرير فى الاكسيس .؟بحيث يلون الحقل بشرط التى تحتوى على علامه *

لو عايز اغير لون خليه فى التقرير بناء على اكتر من قيمه (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 ده زرار امر طباعه عندى .. ازاى بقا ادخل كود اختيار الطابعه اللى مكتوب هنا ده

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