بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
مبرمج نت
-
Posts
11 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه مبرمج نت
-
-
في ٥/٧/٢٠٢٠ at 13:09, Aws86A said:
استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه
اسف على التاخير بس المشكلة كانت ان الويندوز عندي 64 ... على كل رفقت قاعدة البيانات بعد التعديل وعندي اشتغلت بصورة صحيحة
-
في الحدث الخاص بالنموذج (Form_BeforeUpdate) نقوم بفحص الحقول المطلوب أن تكون مملوئة في حالة كونها فارغة يلغى الخزن
-
ان شاء الله ... واسف على التاخير بسبب المشاغل
-
-
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
مثلا نوع نصي
- 1
خالص العزاء للأخ مجدي يونس
في المنتدى المفتوح
قام بنشر
الله يرحمها برحمته الواسعة ويلهم اهلها وذويها الصبر والسلوان