TAMER AGOOR

قاعده بيانات للتجارب-1 (2).rar kkhalifa1960 اخى الفاصل ..متشكر جدا وكتر الف خيرك ..ربنا يجازيك خير ويكتر من امثالك..الكود اللى انت عامله مش هوا اللى انا عايزه ولكن نغعنى جداااااااا ..انا عدلت عليه وعملت اللى انا عايزه وحطيت الكود على الفورم عند الفنح وكمان نسخته على check box علشان اشغله ......متشكر جدا لردك ولاهتمامك ..انا نزلتها هنا علشان لو حد عايز يستفيد منها قاعده بيانات للتجارب الحل النهائى.rar

قاعده بيانات للتجارب.rar السلام عليكم ... محتاج اعمل كود بس مش عارف اعمله ازاى؟؟ ويبقى على ايه؟؟؟ ... وهوا....... اما اضغط على الاختيار TRUE فى ال (CHECK BOX71) تظهر كل الاختيارات اللى فوق (CHECK BOX71) (قصدى تظهر للمستخدم علشان يقدر يعلم عليها ويختارها) والاختيار اللى تحت (CHECK BOX67) .. واما الغى الاختيار فى CHECK BOX71 تختفى الاختيارات اللى فوق واللى تحت ......يعنى باختصار ميكونش فيه اختيارات متاحه مدام (CHECK BOX71) مغلق ... مع العلم انا عامل كود على الامر (خروج) بيلغى الاختيارات اللى فوق وااللى تحت مع غلق النموذج علشان يرجع النموذج بدون اختيارات مع الفتح الجديد.... عايز يفضل شغال بردو وشكرا لكم جميعا

Foksh كتر اف خيرك ...تمام بالظيط هوا ده اللى انا عايزه ..متشكر جدااااااا kkhalifa1960 اخى الكريم ...متشكر جدا لاهنمامك بس الحمد لله لقيت الحل ..وكتر الف خير

قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا

kkhalifa1960 مش بيفتح عندى اخى الكريم ... انا شغال على اكسيس 2007 .. لوتكرمت انسخ الكود هنا علطول Private Sub Command6_Click() On Error GoTo Err_Command6_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim stDocName As String stDocName = "separetr" DoCmd.OpenReport stDocName, acNormal Exit_Command6_Click: Exit Sub Err_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End Sub ده كود انا بطبع بيه عادى خالص مفهوش اى مشكله وشغال .. عايز اخليه يطبع بالاخيار تقريرين بالكود اللى انا كتبه فوق بس للاسف مش بيطبع ..ممكن اكون كاتب فيه حاجه غلط؟؟

Private Sub Command93_Click() On Error GoTo Err_Command93_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim stDocName As String If Forms!separet!Check71 = "-1" Then stDocName = "separetr" DoCmd.OpenReport stDocName, acNormal Else stDocName = "SeparetrBySelection" DoCmd.OpenReport stDocName, acNormal End If Exit_Command93_Click: Exit Sub Err_Command93_Click: MsgBox Err.Description Resume Exit_Command93_Click End Sub ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟

كتر الف خير بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟

السلام عليكم انا عامل كود بفتح تقريرين مختلفين عن طريق اختيار قيمه yes or No ) Check Box ) عايز اخليه يطبع بدل معاينه التقرير ......... اعدل فيه ازاااى؟؟؟ وشكرا ليكم Private Sub ÃãÑ20_Click() If Forms!separet!Check71 = "-1" Then DoCmd.OpenReport "SeparetrBySelection", acViewPreview Else DoCmd.OpenReport "separetr", acViewPreview End If End Sub

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

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

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