جزاك الله اخي الأستاذ ابوخليل
vbMsgBoxRight تعمل مع اكسيس 2013
vbMsgBoxRtlReading لا تعمل مع اكسيس 2013
جربتها على النسخة ذات الواجهة الانجليزية
شكرا للجميع
في التقرير اكتب مصدر حقل الشهر ومصدر حقل العام كما يلي
=[Forms]![طباعة التقارير]![cboMonth]
=[Forms]![طباعة التقارير]![cboYear]
لتحصل على النتيجة المطلوبة إن شاء الله
إذا تم كتابة الكود بالطريقة التالية
Dim i As Integer
For i = 1 To 12
cboMonth.AddItem (MonthName(i)) & " " & Year(Date)
Next i
End Sub
فإنه يعطي الشهر مع السنة ( ولكن السنة الحالية )
يمكنك كتابة الكود بالطريقة التالية
Private Sub Command81_Click()
With Me!settelment
.SetFocus
DoCmd.GoToRecord , , acNewRec
End With
Forms("customers").Form("settelment").Controls("settel_sum").Value = Me.TOT.Value
End Sub
الجزء
With Me!settelment
.SetFocus
DoCmd.GoToRecord , , acNewRec
End With
يمكن اضافته مع الباقي
جرب الكود التالي
اضغط على المبلغ كامل بعد وضع المؤشر في حقل المبلغ المسدد
Private Sub Command81_Click()
Forms("customers").Form("settelment").Controls("settel_sum").Value = Me.TOT.Value
End Sub
اما بالنسبة للمبلغ الاخر تم إضافة نموذج لاستخدامه في ذلك
انظر المرفق
Database1.rar
مع المبلغ الذي قيمته 100 يمكن كتابة الكود كما يلي
Forms("customers").Form("settelment").Controls("settel_sum").Value = 100
وبالمثل الباقي
ان شاء الله
بحاول هذه الأيام تعديل البرنامج واضافة بعض الإضافات البسيطة
وتحويل البرنامج لكي يعمل مع كل من Access 32bit و Access 64bit
ان شاء الله سوف اضيف التحصيل الاكاديمي له فيما بعدا
ولكن التحصيل الاكاديمي يختلف من دولة إلى دولة وهذا في حد ذاته تحدي
السلام عليكم ورحمة الله وبركاته
ليه يتم استخدام برامج خارجية
لما ممكن نعمل نفس الشيء باستخدام الاكواد
انا بستخدم الكود التالي
DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, , True, , , acExportQualityPrint
السلام عليكم ورحمة الله وبركاته
لدي قاعدة البيانات الخاصة بي ( المتابعة اليومية للطلاب )
قمت بتحويلها إلى Access 64 bit و واجهتني مشكلة في احد الأكواد
الخاصة بتغير شعار المدرسة
مرفق الجزء الموجود به المشكلة
مع احترامي للجميع اريد تحويل الكود لكي يعمل على Access 64 bit
شكرا جزيلا
AliElmasry.rar
الطريقة موضحة بالصورة
SELECT customers.c_name, drivers.driver_name, suppliers.sup_name FROM customers, drivers, suppliers GROUP BY customers.c_name, drivers.driver_name, suppliers.sup_name;