Как очистить элементы управления MS Access для большинства форм, но не для всех?

Question

Как очистить контроль доступа для большей части формы, но не для всех? У меня есть один элемент управления (Combo55), который я хотел бы сбросить, а не очистить, но не уверен, как изменить свою команду, чтобы сделать это. Вот код, как он стоит:

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

Вы можете проверить имя для каждого элемента управления и делать то, что вы хотите вместо

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