mrbakr قام بنشر مارس 27, 2021 مشاركة قام بنشر مارس 27, 2021 السلام عليكم ارجو الافادة فى عملية تصدير البيانات الى اكسيل او بى دى اف فى اكسس بعد عملية الفرز والفلتر من النموذج وعمل زر فى النموذج يستخرج البيانات المختارة فقط عن طريق الفرز والتصفية والفلتر رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر مارس 27, 2021 مشاركة قام بنشر مارس 27, 2021 السلام عليكم التحويل الى الاكسل DoCmd.OutputTo acOutputQuery, "اسم الاستعلام ", acFormatXLSX, "", True, "", , acExportQualityPrint التحويل الى ملف pdf DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", "", True, "", , acExportQualityPrint عمليات فرز البيانات تكون من نفس النموذج الى تضع فيهم هذى الاكواد بالتوفيق إن شاء الله 1 رابط هذا التعليق شارك More sharing options...
mrbakr قام بنشر مارس 27, 2021 الكاتب مشاركة قام بنشر مارس 27, 2021 جزاك الله كل خير ولكن انا اريد تصدير الى اكسيل من النموذج بعد الفرز والنموذج معتمد على استعلام داخلى نموذج اساسى + نموذج فرعى معتمد بياناتة من استعلام مبينى على جدول وهذا مثال مرفق رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر مارس 28, 2021 مشاركة قام بنشر مارس 28, 2021 السلام عليكم ورحمة الله وبركاته الفرز يكون في الاستعلام الذي سيتم تصديره الى الاكسل Like "*" & [Forms]![اسم النموذج]![اسم الحقل] & "*" او ارفق الملف حتى يتم التعديل عليه بالتوفيق إن شاء الله رابط هذا التعليق شارك More sharing options...
mrbakr قام بنشر مارس 28, 2021 الكاتب مشاركة قام بنشر مارس 28, 2021 (معدل) هذا الملف المرفق اريد الفلترة من النموذج وبعد ظهور النتائج يتم التصدير الى اكسيل عن طريق زر فى النموذج الاساسى 123.rar تم تعديل مارس 28, 2021 بواسطه mrbakr رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر مارس 29, 2021 مشاركة قام بنشر مارس 29, 2021 السلام عليكم ورحمة الله تجد في الملف المرفق الفرز من النموذج وتحويل البيانات بعد الفرز الى الاكسل بالتوفيق إن شاء الله 123.rar 2 رابط هذا التعليق شارك More sharing options...
mrbakr قام بنشر مارس 29, 2021 الكاتب مشاركة قام بنشر مارس 29, 2021 حضرتك المطلوب زى الى فى الصورة الى بعتها الى حضرتك عملتو بيصدر الجدول كلة وليس الى انا اختارتة فقط زى كده تصدير الى انا مختارة فقط فقط رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر مارس 30, 2021 مشاركة قام بنشر مارس 30, 2021 (معدل) السلام عليكم ورحمة الله اعتذر منك....... و إن شاء الله تجد طلبك عند احد الاخوة الكرام بالتوفيق إن شاء الله تم تعديل مارس 30, 2021 بواسطه ابو محمد 316 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوبسمله قام بنشر مارس 30, 2021 أفضل إجابة مشاركة قام بنشر مارس 30, 2021 السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 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 4 رابط هذا التعليق شارك More sharing options...
mrbakr قام بنشر مارس 30, 2021 الكاتب مشاركة قام بنشر مارس 30, 2021 والله كلمة شكر او اكتر من الشكر قليل على مجهودكم ومشاركتم معى ربنا يجعلة فى ميزان حسانتكم رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 31, 2021 مشاركة قام بنشر مارس 31, 2021 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان