クエリ値に基づいてVBAで更新Qryを実行する

Question

VBAで更新クエリを実行しようとしていますが、コードのために書くべきものが失われています。私は、テーブルから最新の日付を見つけるためにクエリを実行しています。そのクエリは正常に動作します。ここでは、更新クエリを実行して、別のテーブルの日付フィールドを照会された日付に更新します。ここで私が持っているものです。

Dim Date1 As Date 
Dim newdate1 

'selects datadate 1 
Date1 = CurrentDb.OpenRecordset("Select Max(Date1_Event) from TBL_Event WHERE ID = '" & [Forms]![FRM_Main]![ID] & "'")(0) 

'update datadate 1 
newdate1 = CurrentDb.OpenRecordset("Update Tbl_Name set CollectionDate = DataDate1 WHERE PID = '" & [Forms]![FRM_Main]![ID] & "'")(0) 

は、このような更新クエリを実行する方法はありますか？ありがとうございました。

Answer 1

アクションクエリ（DELETE、UPDATE、INSERT INTO）SELECTクエリはレコード（CurrentDb.OpenRecordset）として開かれるべきであるが（CurrentDb.Execute）実行されます。

さらに、クエリでエンクロージャまたは文字列を引用符で囲む必要がないように、パラメータ化を使用することを検討してください。ここでは、別のクエリを開く代わりに、ドメイン集計DMax()を使用して最大日数を計算しています。

Dim strSQL As String 
Dim qdef As Querydef 

' PREPARE SQL STATEMENT 
strSQL = "PARAMETERS [MaxDateParam] Date, [FormIDParam] Long;" _ 
      & "UPDATE Tbl_Name SET CollectionDate = [MaxDateParam]" _ 
      & " WHERE PID = [FormIDParam];" 

' BUILD TEMP QUERY 
Set qdef = CurrentDb.CreateQueryDef("", strSQL) 

' BIND PARAMETERS 
qdef!MaxDateParam = DMax("Date1_Event", "TBL_Event", "ID=" & [Forms]![FRM_Main]![ID]) 
qdef!FormIDParam = [Forms]![FRM_Main]![ID] 

' EXECUTE ACTION 
qdef.Execute dbFailOnError 

Set qdef = Nothing 

上記は珍しいと思われるかもしれません。簡単な1-2行のために威圧されて実行されてはいけません。パラメータ化は、VBAだけでなく、ユーザー入力の値を使用して動的SQLクエリを実行するすべての汎用言語にわたって、プログラミング業界のベストプラクティスです。