アクセスのイベント記述について。

質問

アクセスのあるフォームＡ上にある詳細ボタンをクリックすると別のフォームＣが開くようにしてあるのですが、クリックすると同時にＡフォームを閉じるにはどのように記述したらよいでしょうか？
詳細ボタンの記述は下記のとおりです。よろしくお願いいたします。

Private Sub 詳細_Click()
On Error GoTo Err_詳細_Click

Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
stDocName = ChrW(12513) & ChrW(12531) & ChrW(12486) & ChrW(12490) & ChrW(12531) & ChrW(12473)

stLinkCriteria = "[管理番号]=" & Me![管理番号]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_詳細_Click:
Exit Sub

Err_詳細_Click:
MsgBox Err.Description
Resume Exit_詳細_Click

End Sub

回答No.2

o23 · ベストアンサー

閉じて開くではなく、開いてから閉じる。

stDocName = "メンテナンス"
stLinkCriteria = "[管理番号]=" & Me![管理番号]
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close acForm, "呼び出し元フォーム名"

回答No.1

keirika

DoCmd.Close acForm, "フォームA", acSaveNo