Como posso limpar os controles do MS Access para a maioria de um formulário, mas não todo?

Question

Como posso limpar os controles de acesso para a maioria de um formulário, mas não todos? Eu tenho um controle (Combo55) que gostaria de redefinir em vez de limpar, mas não tenho certeza de como alterar meu comando para fazê-lo. Aqui está o código como está:

Private Sub Command2061_Click()
'Clear

Const cstrPrompt As String = _
    "Are you sure you want to Clear this Form? Yes/No"
    If MsgBox(cstrPrompt, vbQuestion + vbYesNo) = vbYes Then
        Dim Ctl As Control
        On Error Resume Next
        For Each Ctl In Me.Controls
        Ctl.Value = Null
        Next Ctl

End If
End Sub

    

Answer 1

Você pode testar o nome de cada controle e fazer o que quiser, em vez

Private Sub Command2061_Click()
'Clear

Const cstrPrompt As String = _
    "Are you sure you want to Clear this Form? Yes/No"
    If MsgBox(cstrPrompt, vbQuestion + vbYesNo) = vbYes Then
        Dim Ctl As Control
        On Error Resume Next
        For Each Ctl In Me.Controls
        If Ctl.Name = "Combo55" Then
            'Your action here
            'Ctl.Value = "reset value"
        Else
            Ctl.Value = Null
        End if
        Next Ctl

End If
End Sub