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

名前

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

本文 渡すのはフォーム名ではなく、フォームを参照しているオブジェクト変数なのでは？ -訂正分- > RTN = COMMON_CHECK("Form1") > RTN = COMMON_CHECK("Form2") これらを、 RTN = COMMON_CHECK(Me) > Function COMMON_CHECK(F_NO As String) これを、 Function COMMON_CHECK(F_NO As 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-End With、は制御構造です。 んー…まぁ、 select case .. case .. [ここの間に with-end with制御構造を入れる] case ... end select という風にしてください。 簡単に言えば、 ・複数行にわたっているFor-Next、Select Case-Case-End Select、Do-Loop、With-End Withなどの ステートメントは、互いにまたがって使わないようにする。 様にしておけば、とりあえず間違いはありません。(限界に挑戦するとかしない限り、そんな使い方はないでしょう) ※言語仕様がはっきりしているJavaとかだったら、 ブロックステートメント同士はまたがない、という風になるのかなぁ… ぁぁ、風邪で喉が痛い(orz