• 0
هدى 2000

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

سؤال

كل عام وانتو بخير

اريد كود يقوم بعمل بيانات كالتالي

بمجرد اختيار الحقل A في النموذج يظهر في الحقل B

اذا في الحقل A العدد = 1 الحقل B تظهر كلمة مقلد

2 أصلي

اذا غير هذه الارقام تظهر كلمة ( أصلي )

أرجو ان يكون سؤالي واضح

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

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

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

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

والمعنى :

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

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

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

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

أنتهى الشرط

تم تعديل بواسطه فتى الوادي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
أرفق المثال اسهل للشرح .

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

_____.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

تحياتي ..

Hoda.rar

تم تعديل بواسطه فهد الدوسري
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .