Кривцов АнатолийЕсли вас не интересует километраж, то поле пустое (т.е. Null)? Тогда:
If Not IsNull(Me!txtKppSrchKM) Then
MokeevPIf Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " Pln_KPP_list.KM = " & CStr(Me.txtKppSrchKM.Value)
Проще и короче каждое условие добавлять с " and " в начале, а после сборки отбросить первые 5 символов:
1.
2.
3.
4.
srch = srch & " and Pln_KPP_list.KM = " & Me!txtKppSrchKM
srch = srch & " and ..."
...
srch = Mid(srch,6)
Если километраж - целые числа и символ конкатенации - &, то функция CStr у вас лишняя.
Если может быть дробное число, тогда нужна функция Str
Рабочий код получился такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Private Sub btnKPPsearch_Click()
Dim rst As DAO.Recordset
Dim srch As String
Dim rslt As Long
Dim Ilst As ListBox
Set Ilst = Me.lstNivelProg
rslt = Ilst.ListIndex
If Not IsNull(Me.txtID.Value) _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " list.IDobj = " & Me.txtID.Value
End If
If Me.lstKppSrchOST.Value <> 0 _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " list.ShortName = '" & Me.lstOST.Column(1, Me.lstOST.ListIndex) & "'"
End If
If Me.lstMN.Value <> 0 _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " NameMN = '" & Me.lstMN.Column(1, Me.lstMN.ListIndex) & "'"
End If
If Me.lstType.Value <> 0 _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " Type = '" & Me.lstType.Column(1, Me.lstType.ListIndex) & "'"
End If
If IsNull(Me.txtKM.Value) = False And Not Me.txtKM.Value _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " KM = " & CStr(Me.txtKM.Value) 'без CSTR тут никак вроде
End If
If Me.lstKppSrchNivel.Value <> 0 _
Then
If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
srch = srch & " n = '" & Me.Nivel.Column(1, Me.lstNivel.ListIndex) & "'"
End If
again:
If srch = "" Then Exit Sub
Set rst = CurrentDb.OpenRecordset(Ilst.RowSource)
rst.FindNext srch
Do While (rst.AbsolutePosition <= rslt And rst.NoMatch = False)
rst.FindNext srch
Loop
rslt = rst.AbsolutePosition
If rst.NoMatch _
Then
If MsgBox("Не найдено", vbRetryCancel) = vbRetry _
Then
rslt = 0
GoTo again
End If
End If
Set rst = Nothing
Me.lstNivelProg.Selected(rslt) = True
End Sub
То есть проверяю наличие каждого условия и если есть, то прикручиваю его с оператором and
Самое главное что нулевой километр ищиццо
