ACCESS－締め切りの作成について

質問

こんばんは。是非、みなさんのお知恵をお借りしたいのですが、Access2000で申し込みフォームを作っています。そこで、２営業日前の１５：００が締め切りにしたいのですが、どうやったらいいのでしょうか？単純に水曜日分の締め切りが月曜日の１５：００というのはできたのですが、祝日とか年末年始とか休日の扱いに困っています。
一応、カレンダーテーブルを作成し、５年分のカレンダーがあり、休日（土日を含む）には休日フラグが立っています(True)。ですので今日の１５：００前なら休日フラグが立っていない次の日までが締め切られ、１５：００過ぎならフラグの立っていない次の次の日までが締め切られればいいのです。頭では何となく構想はあるのですがVBAで書くことができません。
どうか、ご教授ください。
説明不足でしたら、補足しますのでよろしくお願いします。

回答No.2

noname#27115 · ベストアンサー

' 流れとしては次のようになります。
' どこで現在時刻を取得するのかわかりませんが、サンプルでは
' Sub Start の Now で取得しています。
' その取得した現在時刻を GetDate に渡して、以後 それを元に
' 日付計算をしています。。

' エラー処理はきっちりとはしていないので想定外のデータが入
' った時やデータが存在しない場合、落ちる場合があります。

' レベル的には ACCESS VBAの入門書に載っている範囲なので一度
' お求めになってはどうでしょうか？

' テーブルは [日付]-[休日フラグA]-[休日フラグB] などのフィー
' ルドを前提としています。

' 休日フラグはAB共にチェックを入れてください。

'---------------------------------------------------------------
Private Sub Start()
MsgBox "取得する日付は " & GetDate(Now) & " です。"
End Sub
'---------------------------------------------------------------

'---------------------------------------------------------------
Public Function GetDate(pTime As Date) As String
Dim myRSAs ADODB.Recordset
Dim myCN As New ADODB.Connection
Dim SQL As String

Dim 時刻 As String

SetTodayValid -1

時刻 = Format(pTime, "HH:MM:SS")
GetDate = "有効な日付がえられませんでした。"

SQL = "SELECT * FROM Calender WHERE 休日フラグB=0 ORDER BY 日付 ASC"

Set myRS= New ADODB.Recordset
Set myCN = CurrentProject.Connection
myRS.Open SQL, myCN, adOpenKeyset, adLockOptimistic

If myRS.RecordCount > 0 Then
myRS.MoveFirst

myRS.Find "日付=" & Date

If 時刻 > #3:00:00 PM# Then
myRS.MoveNext '今日より前の日付がほしければ myRS.MovePrevious
myRS.MoveNext
Else
myRS.MoveNext
End If

GetDate = myRS!日付
End If

SetTodayValid 0

myRS.Close
Set myRS = Nothing
myCN.Close
Set myRS = Nothing

End Function
'---------------------------------------------------------------

'---------------------------------------------------------------
Private Sub SetTodayValid(pFunc As Boolean)
Dim myRS As ADODB.Recordset
Dim myCN As New ADODB.Connection
Dim SQL As String

SQL = "SELECT * FROM Calender WHERE 日付 = #" & Date & "#"

Set myCN = CurrentProject.Connection
Set myRS= New ADODB.Recordset
myRS.Open SQL, myCN, adOpenKeyset, adLockOptimistic

If myRS.RecordCount > 0 Then
Select Case pFunc
Case -1
myRS!休日フラグB = 0
myRS.Update
Case 0
If myRS!休日フラグA = -1 Then
myRS!休日フラグB = -1
myRS.Update
End If
End Select
End If

myRS.Close
Set myRS = Nothing
myCN.Close
Set myRS = Nothing
End Sub
'---------------------------------------------------------------

お礼

お返事が遅くなってすいませんでした。
ご回答いただきましたものを参考にさせていただき
見事、締切を作ることができました。
やはり、SQLをちゃんと勉強しなくっちゃって痛感しました。
ありがとうございました。

回答No.1

noname#27115

DAOもしくはADOを使ってレコードセット処理はできますか？

SQLは書けますか？

補足

少しだけ書いた事はありますが、自信はないです。
是非、教えてください。