تفضل أخي واذا تحب بمثال وافني بالرد .
query criteria:
Like "*" & Nz(GetMyVar();"*") & "*"
Code in a standard moudule:
Public MyVar As Variant
Public Function GetMyVar()
GetMyVar = Myvar
End Function
code in any form:
MyVar = Me.textbox
'run query or open form/report
1- افتح موديول جديد وضع بة
Public MyVar As Variant
Public Function GetMyVar()
GetMyVar = Myvar
End Function
2-عند (comboBox) أو (TextBox) المراد أخذ الشرط منه ... بعد التحديث ضع الكود (MyVar = Me.textbox)
3-ضع هذا الشرط الأصفر فقط بدون الأقواس السوداء بالاستعلام ( Like "*" & Nz(GetMyVar();"*") & "*" )
4- جرب بالشرط خالي وجرب بالشرط ممتلئ واغلق الفورم وشغل الاستعلام .
هاك مرفق شغال تمام التمام عندي ...
اذا كان هذا طلبك اضغط على أفضل اجابة .
تفضل المرفق .
حركة القطارات في نمودج.accdb