اذهب الي المحتوي
أوفيسنا

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


mrbakr
إذهب إلى أفضل إجابة Solved by أبوبسمله,

الردود الموصى بها

السلام عليكم

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

 

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

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

سيبيبيب.jpg

رابط هذا التعليق
شارك

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

 

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

 

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

 

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

 

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

رابط هذا التعليق
شارك

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

 

123.rar

تم تعديل بواسطه mrbakr
رابط هذا التعليق
شارك

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

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

545.jpg

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

مشاركه مع اخى الفاضل @ابو محمد 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

  • Like 4
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information