مبرمج نت

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

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

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

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

صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ .DoCmd يعني يصير كالاتي :- DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False

عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل ال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 اسم مربع مربع النص الذي يحتوي العبارة التي ترغب البحث عنها

هل جربت الكود؟؟ أنا لم أجربه بل كتبته منطقيا ووجدته صحيح منطقيا... تحياتي

بامكانك استخدام ال 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 مثلا نوع نصي