ACCESSの型変換(日付型)について
諸賢者の皆様、よろしくお願いいたします。
【環境】
OS:WindowsXP
ソフトウエア:ACCESS2003
【やりたいことの概要】
お客様より作業依頼を受領し、作業種別に応じて予め設定された作業期限を関数により求め、所定フィールドに設定したい。
【前提】
(1)テーブル「納品期限管理テーブル」
フィールド(1):プライマリーID(長整数型、固有値)
フィールド(2):作業番号(長整数型、固有値)
フィールド(3):受領日(日付型 書式は「yy/mm/dd hh:nn AM/PM」に設定)
フィールド(4):納品期限(テキスト型)
(2)関数
モジュールに次の関数を作成。
Function 納品期限(作業番号 As Integer, 受領日 As Date, 受領時間 As Date) As Variant
Dim date_received As Date '受領日
Dim time_received As Date '受領時
date_received = DateSerial(Year(受領日), Month(受領日), Day(受領日))
time_received = TimeSerial(Hour(受領時間), Minute(受領時間), Second(受領時間))
Select Case 作業番号
Case 101: '当日17時30分までの納品
納品期限 = date_received + TimeSerial(17, 30, 0)
Exit Function
Case 201: '翌日17時30分までの納品
納品期限 = (DateAdd("d", 1, date_received)) + TimeSerial(17, 30, 0)
Exit Function
Case 301: 'お客様との調整
納品期限 = "お客様との調整"
Exit Function
Case Else
納品期限 = ""
End Select
End Function
【これまでの試み】
(1)イミディエイトウインドウ
「?納品期限(101,#2008/5/20#,"9:00")」と入力すると「2008/05/20 17:30:00」と表示される。問題なし。
(2)フィールド更新
データを更新するため次のSQL文を実行する。
「UPDATE Job_List SET Job_List.担当受付日時 = 納品期限([作業番号],"#" & [担当受付日時] & "#","#" & Format([担当受付日時],"HH:NN") & "#");」
■ここで問題発生。「型変換エラー」メッセージが出て、データを更新できません。
どなたか、解法を御教示願います。