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 في 8/6/2020 at 21: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 هو اسم الاستعلام Expand أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل
Barna قام بنشر يونيو 9, 2020 قام بنشر يونيو 9, 2020 في 8/6/2020 at 20:44, abdallambaty said: السلام عليكم ورحمة الله السادة المهندسين ، عند تصدير استعلام الى اكسل اريد تخزينه في مكان محدد من قبل مستخدم البيانات ، وليس مكان ثابت وشكراً Expand تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح" 2 1
مبرمج نت قام بنشر يونيو 9, 2020 قام بنشر يونيو 9, 2020 في 8/6/2020 at 22:32, abdallambaty said: أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل Expand هل جربت الكود؟؟ أنا لم أجربه بل كتبته منطقيا ووجدته صحيح منطقيا... تحياتي
Aws86A قام بنشر يوليو 4, 2020 قام بنشر يوليو 4, 2020 في 8/6/2020 at 21: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 هو اسم الاستعلام Expand السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود
مبرمج نت قام بنشر يوليو 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 في 4/7/2020 at 17:27, Aws86A said: السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود Expand عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة Me.recordsource بدون علامات الاقتباس """ في السطر .OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False لكي يصبح .OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False مع تحياتي وابلاغي في حالة وجود خطأ
Aws86A قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 (معدل) في 4/7/2020 at 20:45, مبرمج نت said: عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة Me.recordsource بدون علامات الاقتباس """ في السطر .OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False لكي يصبح .OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False مع تحياتي وابلاغي في حالة وجود خطأ Expand شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي تم تعديل يوليو 5, 2020 بواسطه Aws86A
مبرمج نت قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 في 5/7/2020 at 04:21, Aws86A said: شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي Expand صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False
Aws86A قام بنشر يوليو 5, 2020 قام بنشر يوليو 5, 2020 في 5/7/2020 at 06:39, مبرمج نت said: صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False Expand استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdbFetching info...
مبرمج نت قام بنشر يوليو 7, 2020 قام بنشر يوليو 7, 2020 في 5/7/2020 at 10:09, Aws86A said: استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdb 416 kB · 4 تنزيلات Expand اسف على التاخير بس المشكلة كانت ان الويندوز عندي 64 ... على كل رفقت قاعدة البيانات بعد التعديل وعندي اشتغلت بصورة صحيحة Backup Sample.mdbFetching info...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.