Событие Afterupdate для записи значения Date из Textbox в Textbox с вводимой маской выдает ошибку 80020009 при перезаписи

Question

У меня есть событие afterupdate, когда значение, введенное в текстовое поле, должно быть помещено в другое текстовое поле.Первоначально это работает, пока второе текстовое поле пусто.однако, когда я пытаюсь изменить данные в первом текстовом поле, я получаю сообщение об ошибке 80020009.

1. Текстовое поле 1 называется Valdate
2. Текстовое поле два называется actionate
3. Оба имеют маску ввода ## - ## - ####

При вводе даты в valdate последующее обновление даже срабатываети помещает дату в actiondate минус два дня.

Эта часть работает.

Однако, когда actiondate заполнено и я изменяю Valdate Я получаю сообщение об ошибке 80020009.

Я нашел информацию на нескольких форумах и, основываясь на этом, попытался установить формат valdate и попытался затемнить valdate..Я, вероятно, сделал это неправильно, но оба не работали для меня.

код, который я использую:

Private Sub ValDate_AfterUpdate()

Me.Actiondate = Me.Actiondate & ([ValDate] - 2)

End Sub

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

Answer 1

Использование DateAdd :

Private Sub ValDate_AfterUpdate()

    If IsNull(Me!ValDate) Then
        Me!Actiondate = Null
    Else
        Me!Actiondate = DateAdd("d", -2, Me!ValDate)
    End If

End Sub