بخصوص الفرز والفلتر

[mrbakr]

السلام عليكم

ارجو الافادة فى عملية تصدير البيانات الى اكسيل او بى دى اف فى اكسس

بعد عملية الفرز والفلتر من النموذج وعمل زر فى النموذج يستخرج البيانات المختارة فقط عن طريق الفرز والتصفية والفلتر

[ابو محمد 316]

السلام عليكم

التحويل الى الاكسل

DoCmd.OutputTo acOutputQuery, "اسم الاستعلام ", acFormatXLSX, "", True, "", , acExportQualityPrint

 

التحويل الى ملف pdf

DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", "", True, "", , acExportQualityPrint

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

 

بالتوفيق إن شاء الله

[mrbakr]

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

نموذج اساسى + نموذج فرعى معتمد بياناتة من استعلام مبينى على جدول
وهذا مثال مرفق

 

[ابو محمد 316]

السلام عليكم ورحمة الله وبركاته

 

الفرز يكون في الاستعلام  الذي سيتم تصديره الى الاكسل

 

Like "*" & [Forms]![اسم النموذج]![اسم الحقل] & "*"

 

او ارفق الملف حتى يتم التعديل عليه

 

بالتوفيق إن شاء الله

[mrbakr]

هذا الملف  المرفق اريد الفلترة من النموذج وبعد ظهور النتائج يتم التصدير الى اكسيل عن طريق زر فى النموذج الاساسى

 

123.rar

تم تعديل مارس 28, 2021 بواسطه mrbakr

[ابو محمد 316]

السلام عليكم ورحمة الله 

 

تجد في الملف المرفق الفرز من النموذج وتحويل البيانات بعد الفرز  الى الاكسل 

 

بالتوفيق إن شاء الله

123.rar

[mrbakr]

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

زى كده  تصدير الى انا مختارة فقط فقط

[ابو محمد 316]

السلام عليكم ورحمة الله

اعتذر منك.......

و إن شاء الله تجد طلبك عند احد الاخوة الكرام

 

بالتوفيق إن شاء الله

 

تم تعديل مارس 30, 2021 بواسطه ابو محمد 316

[أبوبسمله]

السلام عليكم

مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐

اتفضل اخى @mrbakr ان شاء الله يكون ما تريد

Private Sub Command405_Click()

    Dim strSql As String
    Dim TempQdf As QueryDef
    Dim db As DAO.Database
    Set db = CurrentDb
  
    strSql = "Select * from الموظفين"
    
    If Me.Fr_U.Form.Filter <> "" Then
        strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter
    End If
    
    Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql)
    DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint
    db.QueryDefs.Delete TempQdf.Name

'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint

End Sub

بالتوفيق

123_1.accdb

[mrbakr]

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

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

بالتوفيق