كيف أعمل بحث في نموذج

alsalam 3alaykom

hay ur file after updating

db1.rar

بس فتحت الملف وماصار فيه أي تغيير إلا زر التقرير

وشكرا على المساعدة

السلام عليكم

أخي لازم تختار زر الأختيار ليتم البحث عن العنصر المقابل له

اذا لماذا عاصر الاختيار موجودة في النموذج?

تستطيع ان تختار اكثر من اختيار جرب ذلك

شكرا على المساعدة

السلام عليكم

حياك الله أخي

اذا ما بدك تستخدم ازرار الاختيار فتستطع ان تستخدم الكود التالي

Function GetWhere() As String
Dim ComboBoxs, Fileds
Dim sWhere As String
ComboBoxs = Split("مربع_تحرير_وسرد10,مربع_تحرير_وسرد8,مربع_تحرير_وسرد6,مربع_تحرير_وسرد2,مربع_تحرير_وسرد14", ",")
Fields = Split("manu_pc,cpu,hdd,type,ram", ",")
For i = 0 To UBound(ComboBoxs)
	If Me.Controls(ComboBoxs(i)).ListIndex <> -1 Then
	   sWhere = sWhere + IIf(sWhere = "", "", " AND ") & Fields(i) & "='" & getValue(Me.Controls(ComboBoxs(i))) & "'"
	End If
Next
If Val(getValue(Me.خيار109)) = -1 Then
   If Me.إطار__إطار_محيط120.Value = 1 Then
	  sWhere = sWhere + IIf(sWhere = "", "", " AND ") & "Name='" & getValue(Me.نص9) & "'"
   Else
	  sWhere = sWhere + IIf(sWhere = "", "", " AND ") & " ID_Number=" & Val(getValue(Me.نص10))
   End If
End If
GetWhere = sWhere
End Function

Function getValue(oControl) As String
	getValue = ""
	If Not IsNull(oControl.Value) Then
	   getValue = oControl.Value
	End If
End Function

الاخوة

جزاكم الله خيرا

بس عندي لفتــــــــــــــــــــة

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

اتمنى منكم اعادة شرح كيفية عمل بحث في نموذج بدون صور بس خطوة خطوة

حياكم الله وبياكم وجعل جنة الماوى مثوانا واياكم