Private Sub Form_Open(Cancel As Integer)
　　On Error GoTo Form_Open_Error
　　    If Not IsLoaded("スケジュール予約") Then
　　        MsgBox "スケジュール予約フォームから開いてください。"
　　        Cancel = True
　　    Else
　　        If Not IsNull(Forms![スケジュール予約]![スケジュール予約サブフォーム].Form![レンタル商品ID]) Then
　　            Me!OK.Enabled = True
　　        End If
　　    End If
　　 
　　Form_Open_Exit:
　　    DoCmd.Hourglass False
　　    Exit Sub
　　 
　　Form_Open_Error:
　　    MsgBox Err.Description
　　    Resume Form_Open_Exit
　　End Sub