Private Sub コントロールの初期化()

    Dim myCtrl As Object
    
    For Each myCtrl In Me.Controls
    
        Select Case myCtrl.ControlType
        
            Case acTextBox, acComboBox
                myCtrl.Value = ""
            
            Case acCheckBox
                myCtrl.Value = False
        
            Case acOptionGroup
                myCtrl.Value = 0
        
        End Select
        
    Next

End Sub

----------------------------------------------------------

Private Sub コントロールの初期化2()

    Dim myCtrl As Object
    
    For Each myCtrl In Me.Controls
    
        If myCtrl.ControlType = acTextBox Then
            myCtrl.Value = ""
        End If
        
        If myCtrl.ControlType = acComboBox Then
            myCtrl.Value = ""
        End If
        
        If myCtrl.ControlType = acCheckBox Then
            myCtrl.Value = False
        End If
        
        If myCtrl.ControlType = acOptionGroup Then
            myCtrl.Value = 0
        End If
        
    Next

End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ