Есть код, который работает чётко:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Кнопка23_Click()
Dim d As Dictionary
Dim s As String
Dim rs As ADODB.Recordset
Dim sSql As String
sSql = "SELECT [Наименование проекта] FROM Проекты IN '' [MS Access;DATABASE=" & sPath & ";pwd=" & sPass & "];"
Debug.Print sSql
Set rs = CurrentProject.Connection.Execute(sSql)
rs.MoveFirst
Do Until rs.EOF
s = rs.Fields("Наименование проекта")
Set d = GetKust2(s)
For Each a In d
If Len(a) > 4 Or a = "Нет" Then
фЧтоКорректировать.AddItem a & " - " & s, 0
End If
Next a
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Сам SQL запрос получается таким:
1.
SELECT [Наименование проекта] FROM Проекты IN '' [MS Access;DATABASE=C:\Art\МАКРОСЫ\MS_Access\ПроблеммныеВопросыИльнура\serv_BD.accdb;pwd=rf];
Но если SQL запрос немного откорректировать (строка 6):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Кнопка23_Click()
Dim d As Dictionary
Dim s As String
Dim rs As ADODB.Recordset
Dim sSql As String
sSql = "SELECT [Наименование проекта] FROM Проекты IN '' [MS Access;DATABASE=" & sPath & ";pwd=" & sPass & "] WHERE [Наименование проекта] LIKE " & sMask1 & ";"
Debug.Print sSql
Set rs = CurrentProject.Connection.Execute(sSql)
rs.MoveFirst
Do Until rs.EOF
s = rs.Fields("Наименование проекта")
Set d = GetKust2(s)
For Each a In d
If Len(a) > 4 Or a = "Нет" Then
фЧтоКорректировать.AddItem a & " - " & s, 0
End If
Next a
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
То он почему-то перестаёт работать, выскакивает ошибка:
BOF или EOF имеет значение True, либо текущая запись удалена. Для выполняемой операции требуется текущая запись.
На строке:
Сам SQL запрос выглядит так:
1.
SELECT [Наименование проекта] FROM Проекты IN '' [MS Access;DATABASE=C:\Art\МАКРОСЫ\MS_Access\ПроблеммныеВопросыИльнура\serv_BD.accdb;pwd=rf] WHERE Проекты.[Наименование проекта] LIKE '*бустройств*уст*кважи*#*';
И выполняется без проблем, если его выполнить, через создание запроса, пользовательскими средствами MS Access. Возвращает следующее:
см. КАРТИНКА
В чём ошибка не могу понять?
