すべてではありませんが、ほとんどのフォームのアクセス制御をクリアするにはどうすればよいですか?クリアするのではなくリセットしたいコントロール(Combo55)が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
Ctl.Value = Null
Next Ctl
End If
End Sub
各コントロールの名前をテストして、代わりにやりたいことを行うことができます
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
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加