Блог

У меня есть ограниченная форма со свойством «Ввод данных = Да», которая содержит несколько текстовых полей и одно поле типа Вложения.

У меня есть кнопка «Сохранить», которая запрашивает подтверждение сохранения записи.

В форме я поставил флажок с надписью «Включает обучение».

Если этот флажок установлен, я хочу добавить в ту же таблицу дополнительную запись (отличную от той, которая добавлена через ограниченную форму) с точно такой же информацией, что и запись, вставленная в ограниченную форму, за исключением одного текстового поля, которое будет отличаться и определено в коде VBA.

Я попытался CurrentDB.Execute SQL выполнить запрос, но он не работает с типом поля вложения.

Решение, предложенное в документации, не относится к этому случаю, так как я хочу взять вложение, содержащееся в ограниченном поле вложения в форме, а не из пути на диске.

Я думаю, что может сработать что-то вроде следующего, но когда я тестирую его, он сохраняет запись из ограниченной формы, но не дополнительную, которую я хочу добавить с помощью кода VBA, И она заканчивается ошибкой:

Требуется 424 Объекта

Код VBA:

 Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctl As Control
    On Error GoTo Err_BeforeUpdate

    If Me.Dirty Then
      If MsgBox("Do you want to save the new record?", vbYesNo   vbQuestion, _
              "Save Record") = vbNo Then
         Me.Undo
         MsgBox "Changes discarded."
      Else
        If Me.checkbox.Value = True Then
        
            Set rsTable = db.OpenRecordset("Table")
            
            With rsTable
            .AddNew
            !TextField1 = Me.TextField1.Value
            !TextField2 = "My Own Text Field"
            !AttachmentField = Me.AttachmentField.Value 
            .Update
            .Bookmark = .LastModified
            End With

            MsgBox "Record was correctly saved."
        End If
    End If
    End If
End Sub
 

Большое спасибо за любую помощь.

Редактировать:

Таким образом, очевидно, что это неправильный способ сохранения новой записи, но мне нужно, чтобы эта запись была сохранена ОДНОВРЕМЕННО (или сразу после) с записью в ограниченной форме. Я НЕ хочу, чтобы пользователь заполнял другую ограниченную форму.

Причина этого в том, что я ввожу записи о сертификации языка, и существуют сертификаты, которые являются более широкими и включают в себя два уровня. Следовательно, флажок сигнализирует «вы также хотите включить предыдущий уровень?», если он установлен, то загруженный сертификат PDF будет действителен как для уровня 1, так и для уровня 2. Вся информация будет одинаковой, за исключением названия уровня записи.

Мне нужно, чтобы эти две записи были отдельными, потому что я также могу иметь их отдельно, а позже я проверяю условия, основанные на этих отдельных языковых уровнях.

Чтобы использовать поле вложения, вы должны использовать специальные методы LoadFromFile , чтобы поместить вложение в базу данных и SaveFromFile вернуть вложение из базы данных. Похоже, вы пытались присвоить строку полю вложения.

Я не вижу, где db это определено. Ты это имел в виду CurrentDb ?

Другая проблема, которую я вижу, заключается в том, что вы используете нотацию взрыва в With блоке. Нотация Bang — это поиск строк. Если вы хотите назвать предмет по имени, вы бы сделали это так:

 With CurrentDb.OpenRecordset("Table")
    .AddNew
    .Fields.Item("TextField1").Value = Me.TextField1.Value
    .Fields.Item("TextField2").Value = "My Own Text Field"
    .Fields.Item("AttachmentField").LoadFromFile Me.AttachmentField.FileName
    .Update
    .Bookmark = .LastModified
    .Close
End With
 

Названия этих предметов должны быть правильными.

В конце концов я решил эту проблему, создав отдельную ограниченную форму, которая появляется, когда я нажимаю «Сохранить» в исходной ограниченной форме, если флажок установлен. Там у пользователя есть выбор, загружать ли тот же документ, что и исходная ограниченная форма, или другой.