Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: обращение...

Тема: обращение к форме

15.06.2007 21:04:42

Dmitry1

17 сообщения

Тема: обращение к форме

Подскажите, как с помощью модели ADO сменить свойство RecordSource у произвольной формы (которая является подчиенной в открытой форме.)
Т.е. проблема в том, как указать какая именно форма нужна.

P.S. Доступ к базе с помощью ADO и DAO
Автор: Dmitry от 15.11.2003 23:20:47 Источник ...

15.06.2007 21:04:42

All

4316 сообщения

RE: обращение к форме

Пример 2 файла la_form2.mdb или смотрите код ниже.

Private Sub butADOrecordset_Click()
Dim rst As ADODB.Recordset
' Создание запроса
Set rst = New ADODB.Recordset
' Заполняем запрос
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "[Мои книги]"
.Open , CurrentProject.Connection, , , adCmdTable
End With
Set Me.subForm.Form.Recordset = rst
End Sub

Private Sub butDAOrecordset_Click()
Dim strParm As String, strSQL As String
Dim qry As DAO.QueryDef, dbs As DAO.Database
Set dbs = CurrentDb
Set qry = dbs.QueryDefs("qryExample22")
qry.Parameters("paramДата") = Nz(Me.Дата, Date)
Set Me.subForm.Form.Recordset = qry.OpenRecordset
End Sub

P.S. Доступ к базе с помощью ADO и DAO
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: обращение...

Поиск

Список форумов

Начало | Forums