اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

UserUser2

03 عضو مميز
  • Posts

    121
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

8 Neutral

عن العضو UserUser2

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    -

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. جزاك الله خيرا وجعله الله في ميزان حسناتك
  2. المطلوب كيفيه التنفيذ بمعنى اخر ازاي الزر عند الضغط عليه لاول مره يعمل فرز تنازلى وعند الضغط عليه مره اخر يعمل فرز تصاعدى وهكذا
  3. محتاج اعمل فرز تنازلى وتصاعدى على زر بحيث عند الضغط عليه يعمل فرز تنازلى وعند الضغط عليه مره اخرى يعمل فرز تصاعدى وهكذا
  4. محتاج تنفذها بالوسيط مثل مثال الاستاذ سامى
  5. جزاك الله خيرا لو محتاج عند التصدير يحفظ الصوره فى فولدر محدد برقم العميل هياخده من النموذج واسم الصوره يحمل اسم العميل والتاريخ الموجود فى النموذج صيغه التعديل هتكون ايه ؟ مثل الكود ده بدل ماهو 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
  6. كيفية تنفيذ ذلك على نموذج مكون من حقلين حقل نكتب فيه ارقام الجهاز اللى هتظهر معانا والحقل الاخر يظهر فيه ارقام التشفير اللى هترسل للعميل
  7. محتاج عند تحديد شيك بوكس يطبع المحدد فقط Test (1).accdb
×
×
  • اضف...

Important Information