عبدالله 760

بنظري افضل ما يجمل من شكل الفورم هو التدرجات اللونية .... ابحث في قوقل عن صورة بها تدرج لوني واضفها لنموذجك كصورة وشوف الفرق تدرجات اللون الرصاصي او افضي تفوز

ممكن شرح لاستخدام الكود ؟

اخ من هالفواصل والرموز ... ضاعت عليها كم ساعة بحث ولا لقيت الحل الله يجزاك خيرا اخوي علي البحري .... فعلا انحلت المشكلة

السلام عليكم اريد تعديل بيانات أحد السجلات عن طريق فورم واوامر VBA بشرط المعرف او id اعتقد المشكلة في نوع المتغير ما عرفت اختاره صح مع كثرة المحاولات لساعات تظهر لي رسالة خطأ " نوع البيانات غير متطابق في تعبير المعايير 3464" بين يديكم الكود + والملف Private Sub Update1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset 'تجارب فاشلة 'Dim ud1 As Integer 'Dim Aa As Byte 'Dim Aa As Long 'Dim Aa As Variant 'Aa = [ud1] Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]='" & [ud1] & "'") rs.Edit rs![name2] = [ud2] rs![mobily2] = [ud3] rs![Date2] = [ud4] rs.Update rs.Close Set rs = Nothing 'ياليت تكون فيه رسالة تأكيد بالتحديث " تم تحديث البيانات " End Sub Update-access-VBA.accdb

جاري الاطلاع اكثر

السلام عليكم عملت تقرير تجميعي جمعت كل السجلات المطلوبة بصفحة لوحدها في نفس التقرير اريد أن أخرج كل صفحة لوحدها في ملف PDF منفصل ... كل صفحة بملف تكون باسم أحد الحقول وهو رقم العميل مثلا جربت هذا الكود : Private Sub to_printer_D_Click() DoCmd.OpenReport "myreport", acViewNormal End Sub ولكن به مشكلتين معي 1. يخرج الملف بدون اسم الحقل المطلوب 2. يخرج جميع الصفحات مع بعض .. وانا اريد كل صفحة بملف مستقل تماما عن الصفحات الاخرى ملاحظة صفحات التقارير كثيرة تتجاوز الف صفحة وغير مجدي يدويا القاعدة كبيرة الحجم صعب ارفقها أرجو من اساتذتي الكرام المساعدة في حلها متعلم جديد في الاكس 🙂

بالفعل اخي عمر حلك انهى المشكلة ... وطلبت اضافة معلومة وحصلتها منك ايضا فكتب الله لك الاجر مهندس قاسم اضافة جميل جزاك الله خيرا استاذي جعفر ... قرأت لك العديد من المشاركات الجميلة هنا .... وشرف لي ردك على موضوعي وجاري الاطلاع على الموضوع المقترح لكن اعتقد عندي مشكلة في بناء الجداول او القاعدة وقد اطرح القاعدة في موضوع مستقل للتأكد من بناءها بشكل صحيح

شكرا اخي عمر القاعدة كبيرة جدا وشكرا لك على الحل Expr1: IIf([name_fild1]="100";[table2]![fild2]; IIf([name_fild1]="50";[table2]![fild3]; IIf([name_fild1]="30";[table2]![fild4];))) السؤال الآن هل استطيع استخدام Select Case او ElseIf في منشئ التعبير في الاستعلام وكيفية تطبيقها على مثالي ؟

السلام عليكم عندي استعلام وأريد إضافة حقل جديد محسوب وأريد ان يكون بشروط متعددة Expr1: IIf([name_fild1]="100";[table2]![fild2]) IIf([name_fild1]="50";[table2]![fild2]) IIf([name_fild1]="30";[table2]![fild2]) تظهر لي نتيجة الشرط الأول فقط ولا تظهر نتيجة الشروط الأخرى بمعنى اذا تحقق الشرط الاول ضع القيمة كذا واذا تحقق الشرط الثاني ضع القيمة كذا وهي مختلفة وهكذا ... حاولت كثيرا بالحل وبحث في قوقل وفي المنتدى ولم اوفق بالإجابة جربت Select Case و جربت ElseIf وجربت if ولم اوفق في أي نتيجة

يالله كنز والله اشكر جميع من شارك وخصوصا للاخ صالح حمادي عراب الموضوع والمبدع والمعطي دوما بأمر الله وايضا الاخ جعفر وجميع من ساهم ما ادهشني حقا أن دوال SQl هي نفسها المستخدمة في PHP وبالتالي اتوقع اغلب لغات البرمجة وهذا يسهل للمبرمج التنقل بين لغات البرمجة جزاكم الله عنا خيرا دوما وأبدا

تمام عليك استاذ مؤمن جزاك الله خيرا

السلام عليكم متعلم جديد في الاكسس وواجهت مشكلة في تطبيق الدالة dsum عندي جدول اسمه بيانات الفواتير ..... فيه بيانات فواتير كثيرة يحتوي على حقول من ضمنها حقل المبلغ ورقم حسابات متكررة ... لكل حساب عدة فواتير احتاج جمع مبالغ الفواتير لحساب معين في ( استعلام) ووضعت هذا الكود في منشئ التعبير بخانة جديدة اجمالي الفواتير: DSum("[المبلغ]";"[بيانات الفواتير]";"[بيانات الفواتير]![اسم العداد]='[اسم العداد]'") اجمع لي بيانات الحقل ( المبلغ ) من الجدول ( بيانات الفواتير ) بشرط ان اسم العداد هو نفس اسم العداد في الاستعلام لكن لم يجلب لي النتيجة