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
　　 

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