Делаю базу
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR " & "(ID COUNTER, r DATETIME, m TEXT, n TEXT,o TEXT, k TINYINT, s TEXT);"
connDB.Close
Set connDB = Nothing
End Sub
И заполняю ее
Потом хочу достать информацию
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub uu()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
Range("F:L").ClearContents
SQLr = "SELECT ID, r, m, n,o,k,s FROM RRR WHERE o = '" & Sheets("Лист1").Cells(1, 1).Value & "' AND ID= " & Sheets("Лист1").Cells(2, 1).Value & " "
Set tbl = dbs.OpenRecordset(SQLr)
Sheets("Лист1").Select
Cells(2, 6).CopyFromRecordset tbl
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub
cells 1.1 получается текстовое значение
cells 2.1 цифровое
Как прописать так, чтобы если вдруг не указав цифровое значение в cells 2.1, тем не менее код смог выполнился только используя значения cells 1.1
Вопрос связан с тем, что в самом запросе ( как я вижу решение) будет просто прописано и 4 критерия
А, скажем, на самом листе может быть указан только 2 из них, остальные будут отсутствовать, они не будут указаны
То, есть можно ли сам запрос сделать статичным в такой ситуации?
Потому что в этом конкретном примере я увидел, что так Excel VBA кидает ошибку...
Подскажите, пожалуйста, какие варианты решения вообщем могут быть.
