Очистка текстовых полей после отправки по электронной почте

Question

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

Заранее спасибо :)

On Error GoTo errhandle 
Me.Filter = "CurrentDate= #" & Format(Me!CurrentDate, "yyyy\-mm\-dd") & "# and DiscoverTime= '" & Me!DiscoverTime & "' and TailNumber= '" & Me!TailNumber & "' and FleetID= '" & Me!FleetID & "'" 
Me.FilterOn = True 
DoCmd.SendObject acSendForm, "frmETIC", acFormatPDF, "email", "", "", "Recovery Report", "Attached is the submitted Recovery Report" 
exiterr: 
Exit Sub 
errhandle: 
If Err.Number <> 2501 Then 
MsgBox ("Email cancelled!") 
End If 
Resume exiterr 


Me.CurrentDate = Null 
Me.DiscoverTime = Null 
Me.TailNumber = Null 
Me.FleetID = Null 

Answer 1

Вы выхода из Sub перед очисткой. Попробуйте следующее.

On Error GoTo errhandle 
    Me.Filter = "CurrentDate= #" & Format(Me!CurrentDate, "yyyy\-mm\-dd") & "# and DiscoverTime= '" & Me!DiscoverTime & "' and TailNumber= '" & Me!TailNumber & "' and FleetID= '" & Me!FleetID & "'" 
    Me.FilterOn = True 
    DoCmd.SendObject acSendForm, "frmETIC", acFormatPDF, "email", "", "", "Recovery Report", "Attached is the submitted Recovery Report" 

    Me.CurrentDate = vbNullString 
    Me.DiscoverTime = vbNullString 
    Me.TailNumber = vbNullString 
    Me.FleetID = vbNullString 
exiterr: 
    Exit Sub 
errhandle: 
    If Err.Number <> 2501 Then 
     MsgBox ("Email cancelled!") 
    End If 
    Resume exiterr