UserUser2

2 ساعات مضت, Foksh said:

مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير

Dim outputPath As String
outputPath = CurrentProject.Path & "\Reports\"

If CheckA.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf"
End If

If CheckC.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf"
End If

If CheckD.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf"
End If

If CheckE.Value = True Then
    DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf"
End If

وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد

Test (1) (1).accdb 548 kB · 2 downloads

جزاك الله خيرا 

2 ساعات مضت, ناقل said:

غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا

 

اشكرك على ردك 
الجزء اللى حضرتك محدده خاص بمكان الحفظ وده فولدر موجود في نفس مسار قاعده البيانات 

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

Test (1) (1).accdb

اقتباس

 

من فضلك اخى الكريم 
كيفيه اضافه باسورد الحمايه مع دالهDLookup - NZ 
 

 Nz(DLookup("ER", "TBL", "[EZ]= [forms]![ETR]![EZ]"), 0)

جزاك الله خيرا 

لدى قاعده بيانات محميه بباسورد 
محتاج اضيف الباسورد فى الكود التالى 
"DoCmd.RunSQL "DELETE * FROM tbe IN 'D:\System\zx\Database.accdb"
 

جزاك الله خيرا 
وجعله الله في ميزان حسناتك 

18 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @UserUser2 محاولتي حسب مافهمت . اليك الشرح المرفق . ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .

                                                                    

DDTestSort.rar 30.73 kB · 1 download

جزاك الله خيرا اخى الكريم 
 

2 ساعات مضت, Foksh said:

اخي الكريم الفرز حاجة بسيطة لو كانت المعطيات واضحة ، يعني الفرز على أي أساس 😅

أو على أي حقل سيتم الفرز ؟؟؟

وارفق مثال ليتم النطبيق عليه 😊

المطلوب كيفيه التنفيذ 
بمعنى اخر ازاي الزر عند الضغط عليه لاول مره يعمل فرز تنازلى وعند الضغط عليه مره اخر يعمل فرز تصاعدى وهكذا 

up

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

منذ ساعه, سامي الحداد said:

اخي الكريم اسف على التاخير سوف انظر في المرفق غدا ان شاءالله تعالى 

اعانك الله 
وجزاك الله خيرا 

14 ساعات مضت, سامي الحداد said:

اخي الكريم 

ارفق ملفك للتعديل عليه وأبشر خيرا ان شاءالله

@سامي الحداد

TEST IMAGE.accdb

46 دقائق مضت, Foksh said:

لا أعتقد أنه من الممكن تحويل التقرير وحفظه بصيغة صورة JPG بدون وسيط 🤔

محتاج تنفذها بالوسيط مثل مثال الاستاذ سامى 

 

46 دقائق مضت, Foksh said:

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

12 ساعات مضت, سامي الحداد said:

السلام عليكم ورحمة الله وبركاته
بالإضافة لما تفضل به الأستاذ موسى جزاه الله خيرا
انا استخدم هذا البرنامج Universal Document Converter  وهذا موقع الشركة: https://www.print-driver.com/download 
بعد إتمام عملية تنصيب البرنامج تابع الفيديو . ومرفق ملفك بعد التعديل.

بالتوفيق

 

 

 

 

jpg.rar 38.48 kB · 11 downloads شرج عمل برنامج Universal Document Converter.rar 4.28 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 21 downloads

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

Dim FS, Cf, strFolder
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
strFolder = "D:\System\PDF\" & Me.id
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists(strFolder) = False Then
Set Cf = FS.CreateFolder(strFolder)
If FS.FolderExists(strFolder) = True Then
End If
End If
 Dim FileName As String, fldrPath As String, filepath As String
  Dim answer As Integer
 
  FileName = Me.pn & " " & "-" & " " & Me.tes & " " & "-" & " " & Format([Qdate], "dd-mm-yyyy")       'filename for PDF file*
  fldrPath = "D:\System\PDF\" & Me.id  'folder path where pdf file will be saved *
 'CurrentProject.Path &
  filepath = fldrPath & "\" & FileName & ".pdf"
 
  'check if file already exists
  If FileExists(filepath) Then
    answer = MsgBox(Prompt:="PDF file already exists: " & vbNewLine & filepath & vbNewLine & vbNewLine & _
      "هل تريد استبدال الملف الموجود؟", Buttons:=vbYesNo, Title:="هذا الملف موجود")
   If answer = vbNo Then Exit Sub
 End If
 

DoCmd.OutputTo ObjectType:=acOutputReport, objectName:="QWE", outputformat:=acFormatPDF, outputFile:=filepath

Up

كيفية تنفيذ ذلك على نموذج 
مكون من حقلين حقل نكتب فيه ارقام الجهاز اللى هتظهر معانا 
والحقل الاخر يظهر فيه ارقام التشفير اللى هترسل للعميل 

في 21‏/2‏/2024 at 07:15, safaa salem5 said:

كدا هتعمل نفس اللى انا عملته

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

مثال لو امكن من فضلك 

4 دقائق مضت, kanory said:

تفضل ....

Private Sub Command6_Click()
    If CheckA.Value = True Then
        DoCmd.OpenReport "Report1", acViewPreview
    End If

    If CheckE.Value = True Then
        DoCmd.OpenReport "Report4", acViewPreview
    End If

    If CheckC.Value = True Then
        DoCmd.OpenReport "Report2", acViewPreview
    End If

    If CheckD.Value = True Then
        DoCmd.OpenReport "Report3", acViewPreview
    End If

End Sub

 

اشكرك 
طب سؤال  لو شيك بوكس محدد واخر لا 

محتاج عند تحديد شيك بوكس يطبع المحدد فقط 

Test (1).accdb

تمام
تسلم 

29 دقائق مضت, kkhalifa1960 said:

استاذ @UserUser2 ما بالمرفق البحث المتعدد  بطريقتان بالاسم و بالتاريخ . اختار من الليست بوكس شرط أو عدة شروط أو اختارهم كلهم .وافني بالرد .

Multi Select-1.rar 56.37 kB · 0 downloads

جزالك الله خيرا 
ليس هذا المطلوب 
المطلوب نفس فكره النموذج 

23 ساعات مضت, UserUser2 said:

HAA.accdb 688 kB · 4 downloads

على ليست بوكس 

18 ساعات مضت, Foksh said:

 

هذه مساهمة اخي الكريم ، تفضل 🤗

 

HAA.accdb 688 kB · 4 downloads

جزاك الله خيرا 
كيفيه استخدام تاريخ في حقل البحث بدلا من النص 
كيفيه الغاء LIKE عن بعض الحقول 

كيفيه عمل بحث متعدد علي الليست بوكس بدلا عن النموذج 
مثل الكود الموجود فى  المرفق 
@kkhalifa1960

HAA.accdb

1 ساعه مضت, king5star said:

35 - عرض رسالة تأكيد بنعم او لا باللغتين العربية والانجليزية. 

صورة لفهم المحتوى 

 

وقاعدة بيانات بها مثال لطريقة العمل .

35 - Msgbox Yer OR No.accdb 1.38 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads
 

ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة .

بالتوفيق .

كريم الحسيني .

 

هذا هو طلبك انا وبعتذرلك على التأخر فى الرد لظروف العمل 

وفقك الله دائماً ولا تتردد فى السؤال اى وقت 
 

تسلم جزاك الله خيرا اخى الكريم 
هل ممكن تغير لون الخط الموجود بالاعلى 
عند الضغط على زر yes ينفذ امر وعند الضغط على No 
يتراجع عن التنفيذ