UserUser2

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

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

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

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 يتراجع عن التنفيذ

ممكن لو مفيش فيها مشكله نسخه من النموذج لو تسمح

معذره نسيت ارفاقه مره اخرى Test (1).accdb

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

لو تم اي تغيرات فى الحقول عند اضغط على تراجع يجعلها كما كانت عليه من قبل

شاكر لحضرتك هل من الممكن عمل ذلك بدون عمل علاقات عن طريق كود vba

للرفع