AccessのVBAを開くには？

質問

フォーム上をクリックするとVBAを開くコードを教えてください。

回答No.1

piroin654 · ベストアンサー

クリックするフォームの名前を「フォーム1」とします。
クリックするところはフォームの詳細とします。

(1)
自分自身のコード表を開くには、一応自分自身を閉じて
再度開くということであれば、

Private Sub 詳細_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "フォーム1", acDesign
Application.VBE.ActiveVBProject.VBComponents("Form_フォーム1").CodeModule.CodePane.Show
End Sub

(2)
フォームを開いたまま、標準モジュールを開くなら、

Private Sub 詳細_Click()
Application.VBE.ActiveVBProject.VBComponents("Module1").CodeModule.CodePane.Show
End Sub