Access VBA レコード追加時に既にデータがある場合の分岐

前提

初投稿です。。。
Accessのテーブルにエクセルから一つずつ追加するVBAを書いています
Accessのバージョンは2021です

質問内容。

一つずつ値を追加するコードはできているのですが、これからAccessテーブルに追加する値がすでにある場合(今回の例ではaとb両方すでにある場合)は.addeditで上書き(もしくは消して入れなおす)。ない場合は.addnewで追加という風に書きたいです。少し簡単にしてコードを書きます。↓知りたいのはIFの部分です。

該当のソースコード

a = "1"
b = "2"
c = "3"
d = "4"
with recordset
　 if  !a1 < a and !a2 < b then　'←うまくいきません。なんとなくのイメージです。
　　 .addnew
　　　 !a1 = a
 　　　!a2 = b
 　　　!a3 = c
 　　　!a4 = d
 　else
　　.addedit
　　　 !a1 = a
 　　　!a2 = b
 　　　!a3 = c
 　　　!a4 = d
　end if
   .update
end with

試したこと

絶対違うと思いながら、IFの演算子をいろいろ変えたりしてました、、、>,<,=>,=<,<>
すべてカレント　レコードがありませんとエラーが出ます。エラーを検索するとテーブルに一つも値がないからというのを見かけたので試しに一行だけ入れてから実行したりしましたが同じエラーが出てしまいます。

行動規範の内容に同意します

回答1件

ベストアンサー

Findメソッドで一致するレコードを検索します。(一致するレコードへ移動)
見つからないと、NoMatchがTrueになるので、その場合は新規追加、見つかった場合はカレントレコードを更新
ということになりますね。

下記のような感じでしょうか。

vba
1    Dim rs As DAO.Recordset
2    Set rs = CurrentDb.OpenRecordset("テーブル1")
3    
4    Dim a, b, c, d
5    a = "1"
6    b = "2"
7    c = "3"
8    d = "4"
9    
10    With rs
11        rs.FindFirst "a1='" & a & "' AND a2='" & b & "'" 'a1とa2で一致するレコードを検索
12        If rs.NoMatch Then                       '一致するレコードがなければ、
13            .AddNew                              '新規追加
14            !a1 = a
15            !a2 = b
16        Else
17            .Edit                                '一致するレコードは更新
18        End If
19        !a3 = c
20        !a4 = d
21        .Update
22    End With