abdallambaty قام بنشر يونيو 8, 2020 مشاركة قام بنشر يونيو 8, 2020 السلام عليكم ورحمة الله السادة المهندسين ، عند تصدير استعلام الى اكسل اريد تخزينه في مكان محدد من قبل مستخدم البيانات ، وليس مكان ثابت وشكراً 1 رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يونيو 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 هو اسم الاستعلام رابط هذا التعليق شارك More sharing options...
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 هو اسم الاستعلام أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يونيو 9, 2020 مشاركة قام بنشر يونيو 9, 2020 6 ساعات مضت, abdallambaty said: السلام عليكم ورحمة الله السادة المهندسين ، عند تصدير استعلام الى اكسل اريد تخزينه في مكان محدد من قبل مستخدم البيانات ، وليس مكان ثابت وشكراً تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح" 2 1 رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يونيو 9, 2020 مشاركة قام بنشر يونيو 9, 2020 22 ساعات مضت, abdallambaty said: أعتقد أن الكود لا يساعد في تحديد مسار التخزين كما طلبنا وإنما من أجل اعطاء اسم لملف اكسل هل جربت الكود؟؟ أنا لم أجربه بل كتبته منطقيا ووجدته صحيح منطقيا... تحياتي رابط هذا التعليق شارك More sharing options...
abdallambaty قام بنشر يونيو 9, 2020 الكاتب مشاركة قام بنشر يونيو 9, 2020 الكود يعمل بشكل صحيح وشكرا لكم رابط هذا التعليق شارك More sharing options...
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 هو اسم الاستعلام السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يوليو 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 بواسطه مبرمج نت رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يوليو 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 مع تحياتي وابلاغي في حالة وجود خطأ رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 2 ساعات مضت, Aws86A said: شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False رابط هذا التعليق شارك More sharing options...
Aws86A قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 3 ساعات مضت, مبرمج نت said: صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdb رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يوليو 6, 2020 مشاركة قام بنشر يوليو 6, 2020 ان شاء الله ... واسف على التاخير بسبب المشاغل رابط هذا التعليق شارك More sharing options...
مبرمج نت قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 في ٥/٧/٢٠٢٠ at 13:09, Aws86A said: استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه Backup Sample.mdb 416 kB · 4 تنزيلات اسف على التاخير بس المشكلة كانت ان الويندوز عندي 64 ... على كل رفقت قاعدة البيانات بعد التعديل وعندي اشتغلت بصورة صحيحة Backup Sample.mdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.