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

目次に戻る 一覧に戻る 前ページへ 次ページへ