0

コマンド ボタンでデータを新しいテーブルに挿入し、同時にレコードを選択して更新しようとしています。以下にコードを貼り付けて、問題を説明します。

CurrentDb.Execute " INSERT INTO Crew " _
    & "(CrewName,KitNumber,ActionDate,ReturnDate) VALUES " _
    & "('" & Me.AssignCrew & "', '" & Me.AssignKit & "','" & Me.AssignDate & "','');"
Crew.Form.Requery

strSQL = "SELECT * FROM Info 'WHERE InvKitNumber = '" & Me.AssignKit & "'"
Set myR = db.OpenRecordset(strSQL)
myR.Edit
myR!Available = False
myR.Update
Set myR = Nothing

Info.Form.Requery

AssignKit = ""
AssignKit.SetFocus

したがって、すべてがインサートで正常に機能します。しかし、それを過ぎると構文エラーが発生し、デバッガーは「Set mrR = db.OpenRecordset(strSQL)」を強調表示します。何かを省略してだまされましたが、別の問題が発生します。基本的に、バインドされていないテキスト (AssignKit) が「InvKitNumber」の同じ番号と一致する「Info」のチェックボックスをオフにしようとしています。これは、この問題を解決する正しい方法ですか? UPDATE を使用してコード行を試しましたが、「パラメーターが少なすぎる」ため、それを理解できませんでした。ありがとう

4

2 に答える 2

1

InvKitNumberが本当に数字なら、あなたはそうあるstrSQLべきです

strSQL = "SELECT * FROM Info WHERE InvKitNumber = " & Me.AssignKit
于 2013-07-17T14:08:22.880 に答える