VBAの現在のAccessデータベースからすべてのレコードを削除しようとしていますOTP = txtOTP.value
。VARIABLE = {NomAdminContrats,TelAdminContrats,TelecAdminContrats, [...]}
これが私のコードです:
Dim query As Recordset
Set query = CurrentDb.Execute("DELETE * FROM tb_SOMMAIRE WHERE OTP = '" & txtOTP.value & "' AND (VARIABLE = 'NomAdminContrats' or VARIABLE = 'TitreAdminContrats' or VARIABLE = 'UnitAdminContrats' or VARIABLE = 'AdrAdminContrats' or VARIABLE = 'VilleAdminContrats' or VARIABLE = 'TelAdminContrats' or VARIABLE = 'TelecAdminContrats' or VARIABLE = 'CourrielAdminContrats')")
OpenRecordsetで試行するとエラー3219InvalidOperationが発生し、Executeで試行するとExpected関数が発生しました。私はたくさんのことを試しましたが、このクエリを機能させるにはまだ成功していませんでした。レコードセットに完全なテーブルもありますが、myRecordset.Deleteを使用すると、より簡単/高速になりますか?もしそうなら、どうすればそれを行うことができますか?
編集
CurrentDb.OpenRecordsetの代わりにCurrentDb.Executeを試してみます。エラーは、無効な操作ではなく関数が期待されるようになりました。