With のあとを変数で (ID:124091)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 解決済のようですが、私はこんな感じをお勧めします。 フォームまるごとじゃなくて、必要なものだけ渡してやれば良いです。 チェックする項目が多いなら配列で渡してやるのもいいかも。 '#### Form1 モジュール Private Sub Command1_Click() RTN = COMMON_CHECK(Me.Text1.Text) If RTN = "ERROR" Then 入力エラー警告 End Sub '#### Form2 モジュール Private Sub Command1_Click() RTN = COMMON_CHECK(Me.Text1.Text) If RTN = "ERROR" Then 入力エラー警告 End Sub '#### 標準モジュール Function COMMON_CHECK(txt As String) As String '共通チェック処理 '例（数字が入力されていればエラー） If IsNumeric(txt) Then COMMON_CHECK = "ERROR" End Function