ここに奇妙なものがあります。使用されている変数に対して「未使用のローカル変数」というコンパイラ エラーが発生します。
If bUpdate Then
Dim fclm As New frmNewClaim : GetOpenForm(fclm)
With fclm ' <-------------------
.something = x
End With
End If
サブ GetOpenForm は、フォームが既に開いている場合にフォームにアタッチするだけです
アプリケーションの他の部分にまったく同じコード (Dim/With) がありますが、不満はありません。再コンパイルを試みましたが、エラーが残ります。
ここで何が起こっているのですか?