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

ده زرار امر طباعه عندى .. ازاى بقا ادخل كود اختيار الطابعه اللى مكتوب هنا ده

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