Уважаемые форумчане, доброго времени суток! Помогите, пожалуйста, разобраться с кодом VBA, который должен выводить сообщение по найденному результату в базе Access. На форуме я нашел что-то похожее (пример), но до конца не смог разобраться как это работает, т.к. у меня идет подключение к базе через ADODB.Connection (Access 2007). Нужные библиотеки я подключил, часть программы работает и я вроде понимаю, что она делает, а вот дальше тупик. Запрос SQL сформирован правильно, т.к я его проверял на самой базе.
[vba]
Код
Public Function Поиск()
Dim statement As String Dim con As ADODB.Connection Dim Rec As ADODB.Recordset
Set con = New ADODB.Connection
con = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=С:\Путь\basa\bas.mdb" con.Open
statement = "SELECT таблица.Поле1 FROM таблица WHERE (((таблица.[Поле1])='15';" con.Execute statement
' здесь наверное должен идти код с передачей информации из Accwss в сам Msg Mox vba, ' но все остальные попытки далее работать через Rec дают ошибки.....
con.Close
Set con = Nothing Set Rec = Nothing
End Function
[/vba]
Уважаемые форумчане, доброго времени суток! Помогите, пожалуйста, разобраться с кодом VBA, который должен выводить сообщение по найденному результату в базе Access. На форуме я нашел что-то похожее (пример), но до конца не смог разобраться как это работает, т.к. у меня идет подключение к базе через ADODB.Connection (Access 2007). Нужные библиотеки я подключил, часть программы работает и я вроде понимаю, что она делает, а вот дальше тупик. Запрос SQL сформирован правильно, т.к я его проверял на самой базе.
[vba]
Код
Public Function Поиск()
Dim statement As String Dim con As ADODB.Connection Dim Rec As ADODB.Recordset
Set con = New ADODB.Connection
con = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=С:\Путь\basa\bas.mdb" con.Open
statement = "SELECT таблица.Поле1 FROM таблица WHERE (((таблица.[Поле1])='15';" con.Execute statement
' здесь наверное должен идти код с передачей информации из Accwss в сам Msg Mox vba, ' но все остальные попытки далее работать через Rec дают ошибки.....
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
