دالة iif

[salim07]

السلام عليكم .

هل ممكن المساعدة من احد الاخوة فيما يخص دالة if .

عندي حقل a مصدر التحكم فيه حقل b مربع سرد وتحرير اخر يعتمد على دالة if .

مثلا اذا كان الحقل b يساوي كذا فتلقائيا يكتب كذا في a .

ولكن احيانا الحقل a يحتاج كتابة شيء يدويا قيمة متغيرة لا تعتمد على b او اضافة تعديل في حقل b  .

اريد اضافة كود للدالة if وهي تعديل 

يعني اذا وضعت تعديل في خانة الحقل b يأتي قيمة فارغة في a واكتب القيمة التي اريد .

وشكرا 

[Ahmed_J]

السلام عليكم

اخي العزيز يجب اولا معرفة اين يجب كتابة الدالة if في جدول (حقل محسوب)  او استعلام او نموذج

لكي نعطيك مثال عن ذلك

انظر للرابط 

https://www.officena.net/ib/topic/74860-إنشاء-دروس-vba-أكسس/

تم تعديل فبراير 19, 2022 بواسطه Ahmed_J

[salim07]

10 دقائق مضت, Ahmed_J said:

السلام عليكم

اخي العزيز يجب اولا معرفة اين يجب كتابة الدالة if في جدول (حقل محسوب)  او استعلام او نموذج

لكي نعطيك مثال عن ذلك

وعليكم السلام اخي .

دالة if في حقل a الذي في النموذج في مصدر عنصر التحكم .

هو حقل غير مرتبط بجدول يعتمد فقط على الحقل b.

الحقل b مربع سرد و تحرير 

موجود فيه .

تم 

لم يتم 

مؤجل 

استخدمت دالة if وهي تعمل عادية 

اضفت شرط اخر وهو تعديل في مربع السرد والتحرير.

ولكن عند اختيار تعديل لا يسمح لي بالكتابة يدويا في الخانة للحقل a .

[Ahmed_J]

اخي العزيز

من الافضل ارفاق ملف حتى لو بسيط يشبة ملفك للتعديل

 

[Eng.Qassim]

اذا كان مصدر بيانات الحقل a من مربع التحرير b

فلايسمح لك بالتغيير في a

اجعل الحقل a غير مرتبط .. واجعل بياناته تستمد من خلال حدث النقر في مربع التحرير وبهذا يسمح لك بالتغيير

[salim07]

في 19‏/2‏/2022 at 12:15, Eng.Qassim said:

b

فلايسمح لك بالتغيير في a

اجعل الحقل a غير مرتبط .. واجعل بياناته تستمد من خلال حدث النقر في مربع التحرير وبهذا يسمح لك بالتغيير

شكرا لك اخي قاسم .

تقصد حدث عند النقر ؟

وكيف يكون الكود ؟

[Eng.Qassim]

9 دقائق مضت, salim07 said:

وكيف يكون الكود ؟

لا اعلم مالذي تريده بالضبط..لكن هذا على سبيل المثال

Private Sub Combo0_Click()
Me.Text1= [Combo0].[Text]
End Sub

 

[salim07]

7 دقائق مضت, Eng.Qassim said:

لا اعلم مالذي تريده بالضبط..لكن هذا على سبيل المثال

هكذا اخي مصدر عنصر التحكم عندي

[Eng.Qassim]

حسنا ..في رايي تعمل حقل ثاني مثلا c

في حدث عن النقر على مربع التحرير b اعمل الكود التالي .. سوف يأخذ بياناته من الحقل a الذي لايمكن التعديل عليه ويمكنك اخفاءه ايضا لانك ستعتمد على الحقل c   الذي يمكنك التعديل عليه

Private Sub b_Click()
Me.c = me.a
End Sub

 

[salim07]

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

حسنا ..في رايي تعمل حقل ثاني مثلا c

في حدث عن النقر على مربع التحرير b اعمل الكود التالي .. سوف يأخذ بياناته من الحقل a الذي لايمكن التعديل عليه ويمكنك اخفاءه ايضا لانك ستعتمد على الحقل c   الذي يمكنك التعديل عليه

شكرا لك اخي الطريقة اشتغلت وتعمل ولكن عند اختيار اي اختيار في مربع السرد والتحرير كل الحقول في c تتغير بنفس النتيجة يعني كأن كل الحقول مرتبطة وليس كل خانة مرتبطة مع التي تقابلها ؟

[Eng.Qassim]

3 دقائق مضت, salim07 said:

كل الحقول في c تتغير بنفس النتيجة

اي حقول تقصد؟

[salim07]

6 دقائق مضت, Eng.Qassim said:

اي حقول تقصد؟

النموذج عبارة عن عناصر متعددة 

لو اختار من الحقل a مثلا في مربع التحرير "تم"

في الحقل bيكتب المبلغ

والمفروض في الحقل c يكتب نفس المبلغ هو صحيح اخذها من b 

ولكن يكتب معها كل الحقول ايضا بنفس النتيجة هكذا

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

[salim07]

منذ ساعه, Eng.Qassim said:

اي حقول تقصد؟

اخي قاسم حتى عند الكتابة يدويا في c تتغير معه كل الحقول بنفس ماكتبت !

[Eng.Qassim]

طالما لديك نموذج مستمر

اعمل هكذا

 

وعند حدث النقر

Private Sub b_Click()
[f].[Form]![c] = Me.a
End Sub

 

[salim07]

5 دقائق مضت, Eng.Qassim said:

[f].[Form]![c] = Me.a

[F] عبارة عن ماذا ؟

[salim07]

44 دقائق مضت, Eng.Qassim said:

طالما لديك نموذج مستمر

اعمل هكذا

عملت كما قلت اخي قاسم f تقصد بها اسم النموذج 

ولكن بعد التطبيق يأتي هذا الخطأ ولا تأتي القيمة في c تساوي a

[Eng.Qassim]

5 ساعات مضت, salim07 said:

f تقصد بها اسم النموذج

نعم اسم النموذج الفرعي الذي بداخله الحقل c فقط

اما الحقل a فهو خارج النموذج الفرعي...اي بالرئيسي بجانب الكومبوبوكس

[salim07]

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

نعم اسم النموذج الفرعي الذي بداخله الحقل c فقط

اما الحقل a فهو خارج النموذج الفرعي...اي بالرئيسي بجانب الكومبوبوكس

اهلا اخي قاسم للاسف بقي نفس المشكل 

الحقل c لم يأخد القيم من a

وعند الكتابة في حقل cيدويا كل الحقول تأخذ نفس القيمة

مع وجود رسالة الخطأ 

[salim07]

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

نعم اسم النموذج الفرعي الذي بداخله الحقل c فقط

اما الحقل a فهو خارج النموذج الفرعي...اي بالرئيسي بجانب الكومبوبوكس

اخي قاسم عملت تصميم مصغر للمشكلة يمكنك الاطلاع عليها 

sss32.rar

[Eng.Qassim]

اخي العزيز هذا العمل غير صحيح مع النمذج المستمر وحقل غير منظم

انظر للتعديل واخبرني

الان تستطيع التعديل

واسف على التاخر بسبب العمل

 

123.rar

[salim07]

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

هذا العمل غير صحيح مع النمذج المستمر وحقل غير منظم

انظر للتعديل واخبرني

الان تستطيع التعديل

واسف على التاخر بسبب العمل

شكرا لك اخي قاسم وانا من يأسف على الازعاج .

سأقوم بتطبيق المطلوب وشكرا لك مرة اخرى 

[Eng.Qassim]

منذ ساعه, salim07 said:

سأقوم بتطبيق المطلوب وشكرا لك مرة اخرى

اخبرني رجاء بما توصلت اليه

[salim07]

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

اخبرني رجاء بما توصلت اليه

هذا هو المطلوب اخي قاسم .بارك الله فيك . وجزاك الله كل خير