ник: EVGEN
Попробовал навесить на кнопку код:
Private Sub Кнопка0_Click()
Dim rst As New ADODB.Recordset
Set q = CurrentDb.CreateQueryDef("")
q.Connect = "ODBC;DSN=KontDiscTest;Description=KontDiscTest;UID=RobotKontDiscTest;" & _
"APP=Microsoft Office 003;WSID=A12FEN;DATABASE=KontDiscTestSQL;LANGUAGE=Русский"
q.Sql = "test_KontDisc " & Поле2
q.ReturnsRecords = True
Set rst = q.OpenRecordset(dbOpenSnapshot)
End Sub
Ругается на Set rst - Ошибочный аргумент ошибка 3001
Поле2 символы, test_KontDisc предварительно запускал через QueryAnalyser - работает.