مبرمج نت

الله يرحمها برحمته الواسعة ويلهم اهلها وذويها الصبر والسلوان

في ٥‏/٧‏/٢٠٢٠ at 13:09, Aws86A said:

استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه

Backup Sample.mdb 416 kB · 4 تنزيلات

اسف على التاخير بس المشكلة كانت ان الويندوز عندي 64 ... على كل رفقت قاعدة البيانات بعد التعديل وعندي اشتغلت بصورة صحيحة

Backup Sample.mdb

الموظفين.rar

في الحدث الخاص بالنموذج (Form_BeforeUpdate) نقوم بفحص الحقول المطلوب أن تكون مملوئة في حالة كونها فارغة يلغى الخزن

ان شاء الله ... واسف على التاخير بسبب المشاغل

2 ساعات مضت, Aws86A said:

شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي

 

صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ  .DoCmd   يعني يصير كالاتي :-

DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False

3 ساعات مضت, Aws86A said:

السلام عليكم استاذ عندي قاعدة بيانات بيها اكثر من جدول واستعلام ومسويلها نماذج اريد اسوي بكل نموذج منها زر تصدير الى اكسل محتاج منك مساعدة بهذا الكود

عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة 

Me.recordsource بدون علامات الاقتباس """

في السطر

.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False

لكي يصبح 

.OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False

مع تحياتي وابلاغي في حالة وجود خطأ

 الاخ Aws86A 

عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة 

Me.recordsource بدون علامات الاقتباس """

في السطر

.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False

لكي يصبح 

.OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False

مع تحياتي وابلاغي في حالة وجود خطأ

بامكانك مثلا في الماكرو الخاص بالبحث مثلا زر الأمر تكتب 

 Select * from TblNam where FieldNam like " *  & TextBox1.text & *"

حيث TblNam هو اسم الجدول و FielNam اسم للحقل الذي تبحث فيه و TextBox1 اسم مربع مربع النص الذي يحتوي العبارة التي ترغب البحث عنها

22 ساعات مضت, abdallambaty 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 هو اسم الاستعلام

يجب ان تعرف المتغير  x كمتغير public

Public x  as string

مثلا نوع نصي