T'sWare スケジュール管理　　フォームソースリスト　　[レポート対象期間]フォーム
プロシージャ名 　印刷プレビュー_Click
　　 
　　 
　　Private Sub 印刷プレビュー_Click()
　　    If IsNull([期間自]) Or IsNull([期間至]) Then
　　        MsgBox "期間の始めと終わりを両方とも指定してください。"
　　        DoCmd.GoToControl "期間自"
　　    Else
　　        If [期間自] > [期間至] Then
　　            MsgBox "正しい期間を入力してください。"
　　            DoCmd.GoToControl "期間自"
　　        Else
　　            Me.Visible = False
　　        End If
　　    End If
　　End Sub
　　 

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