مساعدة في دالة if

[ازهر عبد العزيز]

السلام عليكم في النمودج  يوجد اربعة حقول تسمية احتاج عندما تكون مسميات جميع الحقول = 0   وعند الضغط على الزر الموجود  تظهر رسالة بدلك بشرط جميع مسميات الحقول  =0

o.accdb

[ازهر عبد العزيز]

تم الحل

If Me.o1.Caption = 0 And Me.o2.Caption = 0 And Me.o3.Caption = 0 And Me.o4.Caption = 0 Then
MsgBox "\\\\\\\\\\\\\\\"
End If

 

[jjafferr]

ما يصير ما نضيف شيء 😁

حل آخر

If val(Me.o1.Caption) + val(Me.o2.Caption) + val(Me.o3.Caption) + val(Me.o4.Caption) = 0 Then
MsgBox "\\\\\\\\\\\\\\\"
End If

.

وإثراءٌ للموضوع ، اطلب من الشباب ان يعطونا طرق اخرى ايضا 🙂

 

جعفر

[kha9009lid]

1 ساعه مضت, jjafferr said:

وإثراءٌ للموضوع ، اطلب من الشباب ان يعطونا طرق اخرى ايضا

هذه الطريقة تفي بالغرض تماما ولكن ....

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

من رأيي المتواضع ممكن نجعل الكود يمر على التسميات واحد بعد الاخر فاذا كان احدهم لا يساوي 0 ينهي الاجراء والا يتحقق الشرط

Dim ctli As Control
For Each ctli In Me.Controls
If ctli.ControlType = 100 Then
If ctli.Caption <> 0 Then
Exit Sub
End If
End If
Next ctli
MsgBox "////////////////"

لم اجرب الكود لعدم وجود اكسس لدي ووضعت المشاركة استجابة لرغبت استاذي الفاضل باثراء النقاش

 

[jjafferr]

منذ ساعه, kha9009lid said:

لم اجرب الكود لعدم وجود اكسس

وبإضافة التنسيق وتعديل من جانبي على كود اخوي خالد :

Dim ctli As Control
  
For Each ctli In Me.Controls

  If ctli.ControlType = aclabel Then
    If ctli.Caption <> "0" Then
      Exit Sub
    End If
  End If

  Next ctli
  
MsgBox "////////////////"

.

 

وبطريقة اخرى 🙂

dim i as integer  
  
For i = 1 to 4

    If me("o" & i).caption <> "0" Then
      Exit Sub
    End If

  Next i
  
MsgBox "////////////////"

.

 

جعفر

[kha9009lid]

27 دقائق مضت, jjafferr said:

وبإضافة التنسيق وتعديل من جانبي على كود اخوي خالد :

فعلا التنسيق الان افضل

27 دقائق مضت, jjafferr said:

If ctli.ControlType = aclabel Then

انت غيرت 100 الى aclabel فانت وضعت اسم العنصر مباشرة وانا وضعت قيمته وكلاهما يؤدي الغرض

ولزيادة الاثراء اضع قيمة العناصر في النماذج فقد يستفيد منها احدهم

Name 	                    Value 	Description
acAttachment            	126 	Attachment control
acBoundObjectFrame      	108 	BoundObjectFrame control
acCheckBox 	                106 	CheckBox control
acComboBox 	                111 	ComboBox control
acCommandButton 	        104 	CommandButton control
acCustomControl 	        119 	ActiveX control
acEmptyCell 	            127 	EmptyCell control
acImage 	                103 	Image control
acLabel 	                100 	Label control
acLine 	                    102 	Line control
acListBox                   110 	ListBox control
acNavigationButton 	        130 	NavigationButton control
acNavigationControl     	129 	NavigationControl control
acObjectFrame 	            114 	Unbound ObjectFrame control
acOptionButton          	105 	OptionButton control
acOptionGroup           	107 	OptionGroup control
acPage                      124 	Page control
acPageBreak             	118 	PageBreak control
acRectangle              	101 	Rectangle control
acSubForm               	112 	SubForm control
acTabCtl                    123 	Tab control
acTextBox                 	109 	TextBox control
acToggleButton          	122 	ToggleButton control
acWebBrowser            	128 	WebBrowserControl control

 

27 دقائق مضت, jjafferr said:

وبطريقة اخرى

جميله جدا ولكن هل ستعمل لو اضفنا تسميات اخرى في النموذج وكان احدهم لا يساوي صفر

[jjafferr]

6 دقائق مضت, kha9009lid said:

انت غيرت 100 الى aclabel فانت وضعت اسم العنصر مباشرة وانا وضعت قيمته وكلاهما يؤدي الغرض

%100 🙂

بس انت اخوي خالد ما شاء الله عليك استخدمت كل البدائل ، فكان لازم انبش عن تغيير هنا او هناك 🙂

 

14 دقائق مضت, kha9009lid said:

جميله جدا ولكن هل ستعمل لو اضفنا تسميات اخرى

لا طبعا 🙂

بس لازم ندعي انه ما يكون عنده تسميات اخرى في النموذج ، وإلا اخترب شغلك بعد 🤣

 

جعفر

 

 

[ازهر عبد العزيز]

[kha9009lid]

25 دقائق مضت, jjafferr said:

س انت اخوي خالد ما شاء الله عليك استخدمت كل البدائل ، فكان لازم انبش عن تغيير هنا او هناك

والله يا ابا عبد الله اني افرح بمشاهدت ردودك لاني دائما اجد فائدة واتعلم منها

25 دقائق مضت, jjafferr said:

لا طبعا 🙂

بس لازم ندعي انه ما يكون عنده تسميات اخرى في النموذج ، وإلا اخترب شغلك بعد

 هههههه صحيح

انا في حالات كثير اتعمد المداخله في ردودك لغرض معرفة البدائل التي لديكم استاذي العزيز

[jjafferr]

ومع الاعتذار لأخي أزهر ، فاعرف انه الآن محتار شو يختار 🙂

 

جعفر