دالة 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]

  في 19‏/2‏/2022 at 09:58, Ahmed_J said:

السلام عليكم

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

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

Expand  

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

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

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

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

موجود فيه .

تم 

لم يتم 

مؤجل 

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

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

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

[Ahmed_J]

اخي العزيز

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

 

[Eng.Qassim]

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

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

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

[salim07]

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

b

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

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

Expand  

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

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

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

[Eng.Qassim]

  في 20‏/2‏/2022 at 11:45, salim07 said:

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

Expand  

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

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

 

[salim07]

  في 20‏/2‏/2022 at 11:57, Eng.Qassim said:

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

Expand  

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

[Eng.Qassim]

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

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

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

 

[salim07]

  في 20‏/2‏/2022 at 16:24, Eng.Qassim said:

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

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

Expand  

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

[Eng.Qassim]

  في 21‏/2‏/2022 at 08:51, salim07 said:

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

Expand  

اي حقول تقصد؟

[salim07]

  في 21‏/2‏/2022 at 08:55, Eng.Qassim said:

اي حقول تقصد؟

Expand  

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

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

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

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

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

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

[salim07]

  في 21‏/2‏/2022 at 08:55, Eng.Qassim said:

اي حقول تقصد؟

Expand  

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

[Eng.Qassim]

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

اعمل هكذا

 

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

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

 

[salim07]

  في 21‏/2‏/2022 at 10:38, Eng.Qassim said:

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

Expand  

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

[salim07]

  في 21‏/2‏/2022 at 10:38, Eng.Qassim said:

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

اعمل هكذا

Expand  

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

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

[Eng.Qassim]

  في 21‏/2‏/2022 at 11:24, salim07 said:

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

Expand  

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

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

[salim07]

  في 21‏/2‏/2022 at 16:32, Eng.Qassim said:

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

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

Expand  

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

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

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

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

[salim07]

  في 21‏/2‏/2022 at 16:32, Eng.Qassim said:

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

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

Expand  

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

sss32.rarFetching info...

[Eng.Qassim]

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

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

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

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

 

123.rarFetching info...

[salim07]

  في 22‏/2‏/2022 at 16:02, Eng.Qassim said:

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

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

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

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

Expand  

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

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

[Eng.Qassim]

  في 22‏/2‏/2022 at 21:00, salim07 said:

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

Expand  

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

[salim07]

  في 22‏/2‏/2022 at 22:04, Eng.Qassim said:

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

Expand  

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