VBA to return a textbox to default value

[nick404]

I have a button to reset a form (undo data entry) and would to reset text boxes to their default values since I have a date box that shows today's date by default. Is there a command that does this? This is my current code behind the button. It does its job and resets all the fields to null, but I want the default date to persevere.

Private Sub btnReset_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ctl.OldValue
ElseIf ctl.ControlType = acComboBox Then
ctl.Value = Null
End If
Next ctl
End Sub

[ssanfu]

I didn't test this it, but

ctl.Value = ctrl.DefaultValue

should work......

[nick404]

I get the error "the value you entered isn't valid for this field."
all my field types are text, one is a memo, and one is date/time. I don't see why there is a problem.

Maybe there is a way to call out my date textbox individually to reset it?

[Missinglinq]

Maybe I'm reading this incorrectly, but I believe that you're over thinking this. To undo entered data, all you need is

Me.Undo

Controls that are empty, when a New Record is initiated, will be returned to Null, and any Controls that have Default Values will be populated with their Defaults.

Linq ;0)>

[nick404]

Ok modified my code a bit and called out the date field specifically since I have some restrictions on other fields preventing a zero string value.

Private Sub btnReset_Click()Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Name = "DateEntry" Then
ctl.Value = ctl.DefaultValue
ElseIf ctl.ControlType = acTextBox Then
ctl.Value = ctl.OldValue
ElseIf ctl.ControlType = acComboBox Then
ctl.Value = Null
End If
Next ctl
End Sub

However, now the textboxes do not reset. The date successfully resets to the defualt value, and the combo boxes reset to nothing. But the text boxes do not.

[nick404]

Maybe I'm reading this incorrectly, but I believe that you're over thinking this. To undo entered data, all you need is

Me.Undo

Controls that are empty, when a New Record is initiated, will be returned to Null, and any Controls that have Default Values will be populated with their Defaults.

Linq ;0)>

Wow, can't believe I over thought it that much. Thank you!

[ssanfu]

I prefer to use "Select Case" instead of "IF...End If" , but I don't get any errors when I run this code:

Private Sub btnReset_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox
                    If ctl.DefaultValue = "Date()" Then
                        ctl.Value = Date
                    Else
                        ctl.Value = ctl.OldValue
                    End If
            Case acComboBox
                ctl.Value = Null

        End Select

        '        For Each ctl In Me.Controls
        '        ElseIf ctl.ControlType = acComboBox Then
        '        End If

    Next ctl
End Sub

EDIT: Of course Linq is right.. I thought.... well, I don't know what I was thinking!