Tak hlavně "like" je operace na stringem, vůbec nechápu, že ti to dovolí porovnávat s ní integer.
Pokud bude display integer a záznamy ropy budou mít display=1
Function PrectiData_ropy() As String
Dim ww As String
Dim rr As Boolean
rr = Forms!frm_SELECT!Vyhledat_ropy
If (rr = False) Then
ww = "1=1"
End If
If (rr = True) Then
ww = "display = 1"
End If
PrectiData_ropy = ww
End Function
a pak principielně místo
AND ((tbl_Pristroj.ROPy) Like PrectiData_ropy())
dáš
AND PrectiData_ropy()
|