Команда или действие «Сохранить запись» сейчас недоступно

Question

При использовании этого кода:

If Me.BU_DAT_ZAHL < Date Then
    Me.BU_DAT_ZAHL = Date
    Call MsgBox("Zahlungsdatum wurde auf heute gestellt!", vbCritical + vbOKOnly, "Formalprüfung Anweisung")
    DoCmd.RunCommand acCmdSaveRecord
End If

В строке: «DoCmd.RunCommand acCmdSaveRecord» ms-access выдает следующую ошибку (номер 2046)

The Command or Action 'SaveRecord' isn't available now

Есть кто-нибудьидея почему эта ошибка выбрасывается? Есть ли способ узнать, в чем проблема?

Мы уже попробовали:

• установить фокус с помощью me.setFocus => без изменений

• Обновление через sql RunSql => конфликт записи

Answer 1

Попробуйте установить свойство Dirty :

If Me.BU_DAT_ZAHL < Date Then
    Me.BU_DAT_ZAHL = Date
    Me.Dirty = False
    Call MsgBox("Zahlungsdatum wurde auf heute gestellt!", vbCritical + vbOKOnly, "Formalprüfung Anweisung")
End If

Если это тоже не удается, что-то блокирует действие сохранения.

Как примечание - будьте осторожны, непугая пользователя. Это событие никоим образом не критично, ваш код позаботился о ситуации, и все, что вы хотите, - это сообщить пользователю, что:

Call MsgBox("Zahlungsdatum wurde auf heute gestellt.", vbInformation + vbOKOnly, "Formalprüfung Anweisung")