T'sWare スケジュール管理　　フォームソースリスト　　[スケジュール予約]フォーム
プロシージャ名 　スケジュール印刷_Click
　　Private Sub スケジュール印刷_Click()
　　On Error GoTo Err_スケジュール印刷_Click
　　    If IsNull([スケジュール予約サブフォーム].Form![レンタル商品ID]) Then
　　        DoCmd.OpenReport "レンタル商品の予約情況", acPreview
　　    Else
　　        DoCmd.OpenReport "レンタル商品の予約情況", acPreview, , "[レンタル商品ID]=" & [スケジュール予約サブフォーム].Form![レンタル商品ID]
　　    End If
　　 
　　Exit_スケジュール印刷_Click:
　　    Exit Sub
　　 
　　Err_スケジュール印刷_Click:
　　    If Err <> 2501 Then
　　        MsgBox Err.Description
　　    End If
　　    Resume Exit_スケジュール印刷_Click
　　 End Sub
　　 

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