RecordClone при открытии формы

[carry-y]

Public Function FindValue()
    Dim s
    s = "Наименование= " & Nz(Me.Наименование, "") _
        & " and НаименованиеИнтернет=" & Nz(Me.НаименованиеИнтернет, "") _
        & " and ФормаВыпуска=" & Nz(Me.ФормаВыпуска, "") _
        & " and Примечание='" & Nz(Me.Примечание, "") & "'"
'    Debug.Print s
    With Me.RecordsetClone
        .FindFirst s
        If Not .NoMatch Then
            Me.ФормаВыпускаИ = !idФВИ
        End If
    End With
End Function

я его использовал на AfterUpdate() поля формы и у меня Me.ФормаВыпускаИ заполняется автоматом на основании совпадений других полей описанных в коде. Теперь мне нужно сделать это же, но при открытии формы чтобы автоматом подставляло...
И вот когда ставлю на событие открытие формы: форма вообще не открывается!
Как исправить данную ситуацию.

[Myhaylo]

Сообщение от carry-y

[CODE]И вот когда ставлю на событие открытие формы: форма вообще не открывается!

Что именно Вы "ставите на событие открытие формы" и какой именно формы?

[carry-y]

на событие Form_Load ставлю функцию FindValue
я вложил тестовую базу

[Myhaylo]

Сообщение от carry-y

форма вообще не открывается!

Не форма не открывается, а возникает ошибка.

Сообщение от carry-y

Как исправить данную ситуацию.

Не лезть куда не следует и прекратить вводить MS Access в заблуждение.

Дело в том, что Вы исправили заголовок подпрограммы обработки события

Private Sub Form_Load()

на вот такое описание:

Private Sub Form_Load(Cancel As Integer)

А подпрограмма обработки события "Загрузка" (Load) не имеет параметров... Т. е. уберите Cancel As Integer, ошибка исчезнет и у Вас форма будет открываться.
Однако, я так и не понял, какой смысл вызова подпрограммы FindValue при открытии формы... При открытии формы на ней выводится первая запись. Вы считываете эту первую запись, формируете по ней фильтр s, с успехом находите эту же первую и пытаетесь обновить поле ФормаВыпуска тем же значением, которое, по сути, хранится в этом же поле...
Какова хоть была идея???

[carry-y]

Задача в следующем:
к примеру в таблице есть данные:
|Наименование| |НаименованиеИнтернет| |Примечание| |ФормаВыпуска|

СИМВАХОЛ СИМВАХОЛ прим. гель

а далее у нас добавились еще данные:

СИМВАХОЛ СИМВАХОЛ прим.

соответственно данные по трем столбцам такие же, поэтому в Форма выпуска должен автоматом подставится гель

[Myhaylo]

Если Вам нужно просто исправить данные в таблице, то воспользуйтесь запросом на обновление (чтобы вместо пустого значения подописывать имеющиеся).
Хотя не понятно - зачем? Ведь это приведёт к дублированию записей... Может быть нужно просто поудалять такие записи?