مطلوب كود نفس دالة IF

أرفق مثال للتعديل عليه :

ضع الحدث في حدث بعد التحديث للحقل A

If Me.a = 1 Then
Me.b = "أصلي"
Else
Me.b = "مقلد"
End If

والمعنى :

إذا كانت قيمة حقل a = واحد إذن

قيمة حقل b تساوي " أصلي"

وإلا ( يعني إذا لم يتحقق الشرط أعلاه )

تكون قيمة الحقل b تساوي " مقلد "

أنتهى الشرط

مشكور أخي الكريم

ماذا لو اردت هذا الكود في تقرير ؟

يعني لما يظهر في الحقل A 1 مباشرة يظهر في حقل B نفس الاوامر السابقة ؟

يعني اريد تنفيذ الكود على تقرير لو سمحت

أرفق المثال اسهل للشرح .

فتى الوادي كتب:

أرفق المثال اسهل للشرح .

تفضل أخي المطلوب في التقرير

_____.rar

بعد إذن الأخ (فتى الوادي ) ..

الحل كالتالي :-

أولاً : نذهب إلى خصائص الحقل B ونتجه إلى ( بيانات ) ثم (مصدر عنصر التحكم) ونزيل الموجود فيه ليكون فارغ ويتحول الحقل إلى (غير منضم) . وبذلك سوف تري النتيجة في التقرير وليس في الجدول .

((( لو أردتي تخزين المعلومة في الجدول فإن ذلك يتطلب وضع الكود في نموذج وليس في تقرير )))

ثانياً : من خصائص القسم (تفصيل ) الخاصة بالتقرير نضع الكود التالي في حدث ( عند التنسيق ) :

If Me.A = 1 Then
Me.B = "مقلد"
ElseIf Me.A = 2 Then
Me.B = "أصلي"
Else
Me.B = "غير معروف"
End If
End Sub

وبذلك سوف يعمل معك الكود كما طلبتي .. ومرفق مثالك بعد التعديل .

تحياتي ..

Hoda.rar

أحسنت أخي فهد مع جزيل الشكر والتقدير