در فرم جستجو کمبو ها عمل نمی کند

[saeed1234n]

با سلام در فرم بانک پیوست کمبوها عمل نمی کنند
لطفا راهنمایی بفرمایید:متفکر:

[Abbas Amiri]

در فرم مربوطه کنترل سابفرم را انتخاب کنید و گزینه Locked را No کنید

94153

[saeed1234n]

با سلام
جناب امیری در فرم مربوطه شرط کمبوی نوع درخواست و کمبوی درخواست کننده همچنان عمل نمی کند .:متفکر:

[saeed1234n]

با سلام
آقای امیری مثل همیشه منتظر عنایت شما هستیم .

[saeed1234n]

جناب امیر همچنان منتظریم

[Abbas Amiri]

سلام فانکشن زیر راجایگزین کنید


Private Function DoFilter()
Dim strFilter As String

If Nz(Text3, "") <> "" Then
strFilter = "no_darkhast='" & Text3 & "'"
Else
strFilter = "(1)"
End If

If Nz(Text5, "") <> "" Then
strFilter = strFilter & " and date_darkhast>='" & Text5 & "'"
End If
If Nz(Text7, "") <> "" Then
strFilter = strFilter & " and date_darkhast<='" & Text7 & "'"
End If
If Nz(Combo9, "") <> "" Then
strFilter = strFilter & " and darkhast_konandegan='" & Combo9.Column(1) & "'"
End If
If Nz(Combo16, "") <> "" Then
strFilter = strFilter & " and kind_of_darkhast='" & Combo16.Column(1) & "'"
End If
Me![query_darkhast subform].Form.Filter = strFilter
Me![query_darkhast subform].Form.FilterOn = True
End Function

[saeed1234n]

جناب امیری تشکر فراوان مشکلم حل شد .