عبدالله 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. يخرج جميع الصفحات مع بعض .. وانا اريد كل صفحة بملف مستقل تماما عن الصفحات الاخرى

ملاحظة صفحات التقارير كثيرة تتجاوز الف صفحة وغير مجدي يدويا

القاعدة كبيرة الحجم صعب ارفقها

أرجو من اساتذتي الكرام المساعدة في حلها

متعلم جديد في الاكس 🙂

7 ساعات مضت, Amr Ashraf said:

انا بالفعل اديتك الحل اللى ينفع فى منشئ التعابير فى الاستعلام , لكن كل من IF,Select Case دوال خاصة بVBA لا يمكن استخدامها فى الاستعلامات .

بالفعل اخي عمر حلك انهى المشكلة ... وطلبت اضافة معلومة وحصلتها منك ايضا فكتب الله لك الاجر

1 ساعه مضت, Eng.Qassim said:

اخي العزيز .. بعد اذن استاذي عمر

للسهولة استخدام الوظيفة switch

Switch([name_fild1]=100;[table2]![fild2];[name_fild1]=50;[table2]![fild2];[name_fild1]=30;[table2]![fild2])

 

مهندس قاسم اضافة جميل جزاك الله خيرا

14 دقائق مضت, jjafferr said:

او اعمل لك وحدة نمطية ، ترسل لها البيانات المطلوبة من الاستعلام ،

وفي الوحدة النمطية ، اعمل معادلاتك ، وارسل النتيجة الى الاستعلام.

 

هذا مثال:

 

جعفر

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

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

شكرا اخي عمر

القاعدة كبيرة جدا

وشكرا لك على الحل

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("[المبلغ]";"[بيانات الفواتير]";"[بيانات الفواتير]![اسم العداد]='[اسم العداد]'")

اجمع لي بيانات الحقل ( المبلغ ) من الجدول ( بيانات الفواتير ) بشرط ان اسم العداد هو نفس اسم العداد في الاستعلام

لكن لم يجلب لي النتيجة