Открыть запись в подчиненной форме.

[Prin53]

Собственно, нужно открыть через поле со списком запись в подчиненной форме. В списке фамилии. Написал такой код, но не работает.

PHP код:

Private Sub ПолеСоСписком243_Click()
Dim RS As Recordset
Set RS = Me.RecordsetClone
RS.FindFirst "Фамилия =" & ПолеСоСписком243
Me.Bookmark = RS.Bookmark
End Sub 


PHP код:

Set RS = Me.RecordsetClone 


Это не нравится.

[Myhaylo]

Возможно, у Вас не подключена библиотека Microsoft DAO 3.6 Object Library: в любом модуле (программе) выберите в меню "Сервис"/"Ссылки" ("Tools"/"References") установите птичку, а все остальные - снимите.

[Prin53]

Сообщение от Myhaylo

Возможно, у Вас не подключена библиотека Microsoft DAO 3.6 Object Library: в любом модуле (программе) выберите в меню "Сервис"/"Ссылки" ("Tools"/"References") установите птичку, а все остальные - снимите.

А это придется подключать при открытии базы на любой машине?
У меня пишет "Error Loading DLL".

[Myhaylo]

Может быть, Вам стоит переустановить MS Access (или весь Office)?
А о какой версии MS Access идёт речь?

[Prin53]

У меня стоит 10 версия.

[Myhaylo]

Так как на счёт переустановить MS Access (или весь Office)?

[Prin53]

Итак, переустановил. Ошибки библиотек не было, но ругается на

PHP код:

Set RS = Me.RecordsetClone 


Хотя начал открывать форму, но отдельно, а не внутри главной формы.

[Андрэич]

Сообщение от Prin53

нужно открыть через поле со списком запись в подчиненной форме. В списке фамилии.

Попробуйте так:

Private Sub ПолеСоСписком243_Click()
Dim RS As Recordset
Set RS = Me!ИмяКонтролаПодчинённой
формы.Form.RecordsetClone
RS.FindFirst "Фамилия =" & me.ПолеСоСписком243
Me.Bookmark = RS.Bookmark
End Sub

В списке только один столбец?

[Андрэич]

И, видимо, не хватает кавычек (апострофов). Вообще, вот, что говорит Хэлп:

Всегда необходимо следить с помощью свойства NoMatch за тем, была ли успешной операция Find. Если запись обнаружена, свойство NoMatch получает значение False. При неудачном поиске свойство NoMatch принимает значение True, а текущая запись становится неопределенной. В этом случае пользователь должен явно установить указатель текущей записи на допустимую запись.

strCriteria = "[СтранаПолучателя] = 'Великобритания' And [ДатаРазмещения] >= #1-1-95#"
	' На основе таблицы «Заказы» создает динамический объект Recordset.
	Set rst = dbs.OpenRecordset("Заказы", dbOpenDynaset)
	' Находит первую удовлетворяющую условию поиска запись.
	rst.FindFirst strCriteria

' Проверяет, найдена ли запись.
	If rst.NoMatch Then
		MsgBox "Запись не найдена."
	Else
		...

[Prin53]

Не работает, если я правильно понял, что "ИмяКонтролаПодчинённой" - название подч. формы. Два поля, фамилия и имя. Давайте, я скину базу?