AccessVBA コントロールの値をまとめて確認する

■以下はテキストボックスの値をまとめて確認するコード
※呼び出し元コード

Sub test1()
fncCheckBlank ("F社員名簿") 
End Sub

※呼び出し先コード

Function fncCheckBlank(strFormName)
'-------------------------
'機能：フォーム内のテキストボックスの値をクリアする
'引数1：フォーム名
'-------------------------
    Dim c As Object
    For Each c In Forms(strFormName)
        If c.ControlType = acTextBox Then
            Debug.Print c.Name & "の値:" & c.Value
        End If
    Next
End Function