abdallambaty قام بنشر يونيو 8, 2020 قام بنشر يونيو 8, 2020 السلام عليكم ورحمة الله السادة المهندسين ، عند تصدير استعلام الى اكسل اريد تخزينه في مكان محدد من قبل مستخدم البيانات ، وليس مكان ثابت وشكراً 1
مبرمج نت قام بنشر يونيو 8, 2020 قام بنشر يونيو 8, 2020 بامكانك استخدام ال common dialog control واستخدام vba لغرض التصدير CommonDialgCntrol.Dialogtitle="Export to excel" CommonDialogCntrol.ShowOpen If CommonDialogCntrol.FileName="" then Msgbox"الرجاء تحديد اسم للملف" Else Fname=CommonDialogCntrol.Filename DoCmd.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False End if حيث أن QryName هو اسم الاستعلام
abdallambaty قام بنشر يونيو 8, 2020 الكاتب قام بنشر يونيو 8, 2020 52 دقائق مضت, سبونج بوب said: بامكانك استخدام ال common dialog control واستخدام vba لغرض التصدير CommonDialgCntrol.Dialogtitle="Export to excel" CommonDialogCntrol.ShowOpen If CommonDialogCntrol.FileName="" then Msgbox"الرجاء تحديد اسم للملف" Else Fname=CommonDialogCntrol.Filename DoCmd.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False End if حيث أن QryName هو اسم الاستعلام أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل
Barna قام بنشر يونيو 9, 2020 قام بنشر يونيو 9, 2020 6 ساعات مضت, abdallambaty said: السلام عليكم ورحمة الله السادة المهندسين ، عند تصدير استعلام الى اكسل اريد تخزينه في مكان محدد من قبل مستخدم البيانات ، وليس مكان ثابت وشكراً تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح" 2 1
مبرمج نت قام بنشر يونيو 9, 2020 قام بنشر يونيو 9, 2020 22 ساعات مضت, abdallambaty said: أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل هل جربت الكود؟؟ أنا لم أجربه بل كتبته منطقيا ووجدته صحيح منطقيا... تحياتي
Aws86A قام بنشر يوليو 4, 2020 قام بنشر يوليو 4, 2020 في ٩/٦/٢٠٢٠ at 00:37, مبرمج نت said: بامكانك استخدام ال common dialog control واستخدام vba لغرض التصدير CommonDialgCntrol.Dialogtitle="Export to excel" CommonDialogCntrol.ShowOpen If CommonDialogCntrol.FileName="" then Msgbox"الرجاء تحديد اسم للملف" Else Fname=CommonDialogCntrol.Filename DoCmd.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False End if حيث أن QryName هو اسم الاستعلام السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود
مبرمج نت قام بنشر يوليو 4, 2020 قام بنشر يوليو 4, 2020 (معدل) الاخ Aws86A عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة Me.recordsource بدون علامات الاقتباس """ في السطر .OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False لكي يصبح .OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False مع تحياتي وابلاغي في حالة وجود خطأ تم تعديل يوليو 4, 2020 بواسطه مبرمج نت
مبرمج نت قام بنشر يوليو 4, 2020 قام بنشر يوليو 4, 2020 3 ساعات مضت, Aws86A said: السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة Me.recordsource بدون علامات الاقتباس """ في السطر .OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False لكي يصبح .OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False مع تحياتي وابلاغي في حالة وجود خطأ
Aws86A قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 (معدل) 7 ساعات مضت, مبرمج نت said: عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة Me.recordsource بدون علامات الاقتباس """ في السطر .OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False لكي يصبح .OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False مع تحياتي وابلاغي في حالة وجود خطأ شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي تم تعديل يوليو 5, 2020 بواسطه Aws86A
مبرمج نت قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 2 ساعات مضت, Aws86A said: شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False
Aws86A قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 3 ساعات مضت, مبرمج نت said: صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdb
مبرمج نت قام بنشر يوليو 7, 2020 قام بنشر يوليو 7, 2020 في ٥/٧/٢٠٢٠ at 13:09, Aws86A said: استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdb 416 kB · 4 تنزيلات اسف على التاخير بس المشكلة كانت ان الويندوز عندي 64 ... على كل رفقت قاعدة البيانات بعد التعديل وعندي اشتغلت بصورة صحيحة Backup Sample.mdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.