UserUser2

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

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

محتاج عند تحديد شيك بوكس يصدر التقرير المحدد فقط في مسار محدد ولو اكثر من تقرير يصدرهم دفعه واحده فى مسار محدد 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"

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

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

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

up

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

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

@سامي الحداد TEST IMAGE.accdb

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

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

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

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

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

محتاج عند تحديد شيك بوكس يطبع المحدد فقط Test (1).accdb

تمام تسلم

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

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

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

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