T'sWare スケジュール管理  フォームソースリスト  [レンタル商品]フォーム
プロシージャ名  Form_Load
   
   
  Private Sub Form_Load()
      If Me.OpenArgs = "GotoNew" And Not IsNull(Me![レンタル商品ID]) Then
          DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70
      End If
  End Sub