السلام عليكم ...اعضاء المنتدى الكريم اضع بين ايديكم تساؤل واعلم اني سأجد جوابه باذن الله منكم في المرفق لدي نموذج اسمه "البيانات" وداخل النموذج زرين امر "مدين - دائن" وكذلك يوجد مربع نص اسمه "رقم الحساب" المطلوب :
1- اريد عندما يدخل المستخدم رقم الحساب ويقوم بالضغط على زر دائن او مدين يقوم البرنامج بالتاكد من تحقق شرط وهو اذا كان ثالث رقم من جهة اليمين في مربع النص رقم الحساب هو 3 يفتح التقرير الخاص بالتفقيط بالدولار ... وفي حال انتفى هذا الشرط يقوم بفتح التقرير الخاص بالتفقيط بالريال فقط هذا كل ما اريد
علما اني جعلت تقرير اسمه "report" وهو يقوم بالفتح تلقائيا عند الضغط على زر دائن
وتقرير اسمه "report1" وهو يقوم بالفتح تلقائيا عند الضغط على زر مداين اعلم ان هناك طريقة عملية افضل مما قمت به لذا ارجوا من الاساتذة الكرام الا يبخلوا بها علي وشكرا
فتح تقرير محدد بناء على قيمة في النموذج
السلام عليكم
فيما يلي الكود الذي يفحص لك الرقم الثالث من جهة اليمين
On Error GoTo Err_ÇãÑ9_Click
Dim stDocName As String
Dim x, x1, x2 As Variant
x = Me.account_No
x1 = Right(x, 3)
x2 = Left(x1, 1)
If x2 = 3 Then
stDocName = "Report"
Else
stDocName = "Report1"
End If
DoCmd.OpenReport stDocName, acPreview
Exit_ÇãÑ9_Click:
Exit Sub
Err_ÇãÑ9_Click:
MsgBox Err.Description
Resume Exit_ÇãÑ9_Clickبالتوفيق
اشكرك على مجهودك الرائع ولكن اتمنى لو ترسل المرفق بتنسيق 2003 وفقك الله