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

名前

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

本文 いつもここで勉強させていただいています。 今回、類似した入力フォームが２つあり、入力項目をチェックする プログラムを共通化したく次のようにしました。 '#### Form1 モジュール Private Sub Command1_Click() RTN = COMMON_CHECK("Form1") If RTN = "ERROR" Then 入力エラー警告 End Sub '#### Form2 モジュール Private Sub Command1_Click() RTN = COMMON_CHECK("Form2") If RTN = "ERROR" Then 入力エラー警告 End Sub '#### 標準モジュール Function COMMON_CHECK(F_NO As String) With F_NO ←ここが誤り？？？ '共通チェック処理 '例（数字が入力されていればエラー） If IsNumeric(.Text1.Text) Then COMMON_CHECK = "ERROR" End With End Function たぶんWith のあとの変数でFormの名前を宣言できないだろうなぐらいは 思っていましたがやっぱり無理でした。 代替案として '#### 標準モジュール Function COMMON_CHECK(F_NO As String) Select Case F_NO Case "Form1" With Form1 Case "Form2" With Form2 End Select End Function としてみましたが「Select Case に対応する Case がありません。」 のエラーがでてしまいました。 前半は理解できるのですが後半のエラーが理解できません。 できれば代替案より前半のフォーム名を変数で宣言できる方法がわかれ ばありがたいのですが・・・ With ○○○ あと後半の方法でCase のあとは、実行文しかダメなのでしょうか。 よろしくお願いします。