ACCESS フォームが存在しないときのコード
ACCESSで単票を開くときに、IDであったり番号を結びつけて開く際に
それぞれのIDなどがない時は、単票を開かないようにするこーどです。
On Error GoTo Exception
Dim オブジェクト名１(任意のもの) As String
Dim オブジェクト名２（任意のもの）As String
オブジェクト名１ = “[○○] = ” & Me![□□] ’○は開きたい単票のキー（IDなど）、□はフォーム内のテキストボックスの名前など
オブジェクト名２ = “フォームの名前”
If DCount(“*”, “テーブル名”, オブジェクト名1) > 0 Then ‘IDがあるかどうかの判断
DoCmd.OpenForm オブジェクト名２, , , オブジェクト名１
DoCmd.Maximize
Else
MsgBox “単票が存在しません”
End If
Exit Sub
Exception:
MsgBox Err.Description
で単票がある際は開きなければメッセージボックスが表示されます。
