AccessのVBAでYesをNoにしたい

Question

フォームにあるボタンを押すと、
指定したテーブルのIDのYes/No型フィールドのYesをNoにしたい

【テーブル1】

ID,Y_N
1,ｖ←チェックマーク
2,ｖ
3,ｖ

【やりたいこと】

ボタンをクリックすると、IDが2の「チェックあり」を「チェックなし」にしたい

【試したこと】

Private Sub コマンド0_Click()
Dim rs As New ADODB.Recordset    
    rs.Open "テーブル1", CurrentProject.Connection, , adLockOptimistic    
    rs.Find "Y_N=" & True, adSearchForward        
    Do While rs!Y_N = True    
        rs!Y_N = False        
        rs.Update    
    Loop    
    rs.Close
End Sub

Answer 1

編集モードの指定がありません。

        rs.Edit   '←　ココを追加        
        rs!Y_N = False        
        rs.Update    

追記

上記はDAOだと思い込んでの回答でしたので、無視して下さい。
更新されないのは、FINDの条件が意図通りで無い事です。
FINDしてもloopしているのがrs!Y_N = Trueなので、最初に見つけた1件しか更新されません。

なので、以下の様にする必要があります。

Dim rs As New ADODB.Recordset
    rs.Open "テーブル1", CurrentProject.Connection, , adLockOptimistic
    rs.Find "ID=2", adSearchForward
    If rs.EOF = False Then
      If rs!Y_N = True Then
        rs!Y_N = False
        rs.Update
      End If
    End If
    rs.Close

尚、SQLを直接実行する方式だと以下だけで済みます。

    CurrentDb.Execute "update テーブル1 set Y_N=False where ID=2 and Y_N=True"

追記２

全てリセット

Dim rs As New ADODB.Recordset
    rs.Open "テーブル1", CurrentProject.Connection, , adLockOptimistic
    rs.MoveFirst
    Do While rs.EOF = False Then
      If rs!Y_N = True Then
        rs!Y_N = False
        rs.Update
      End If
      rs.MoveNext
    Loop
    rs.Close

    CurrentDb.Execute "update テーブル1 set Y_N=False where Y_N=True"

Comments

[d_neko]

追記して実行すると
メソッドまたはデータ　メンバーが見つかりません。
とでました。

[sazi]

ADOを見落としてましたので、追記しました。

[d_neko]

ありがとうございます。できました。
追加で質問が2つあります。
1.ふつうは、ADOよりDAOを使うのでしょうか。「ADOを見落とし」というのをみて疑問に思いました。ネットでしらべたら、たまたまADOが使われていたので使用しました。

2.TrueすべてFalseにするにはどうすればいいのでしょうか。
SQLで、「CurrentDb.Execute "update テーブル1 set Y_N=False where Y_N=True"」とすればできます。
しかし、今回質問するにあたって、SQLを使わない方法にかなり手間取りました。
また、ネットで情報もみつかりませんでした。知識として知りたいのでおねがいします。
MoveNextを入れたいしてみましたができませんでした。

[sazi]

1.
歴史的には、DAO→ADO→DAOのようにメリット的に変遷していたと思います。
Accessであれば、DAOでしょうね。
ネットから拾う分には、excelVBAだったりしますので、その場合はADOが多いと思います。

2
追記しました。
ですが、知識として知りたいのなら、今回のように断片的なもので済ますのでは無く、別途調べて下さい。

[d_neko]

追記ありがとうございます。

1．私の持っている、ACCESS　VBAの本を見ると、「今から覚える場合は、DAOではなくADOを覚えることをおすすめします」と書いてありました。理由は、ADOの方が拡張されているからです。どうも、私のもっている本の情報は古いようです。

2.＞知識として知りたいのなら、
この件に関しては、かなりネットで調べました。しかし、Yes/No型に関してはなかなか見つかりませんでした。だから、Yes/No型で検索したら、多分この質問が検索にヒットすると思います。
もし私なら、同じページに一部と全部の答えが同じページ書いてある方が助かるので質問しました。
そもそも、私の質問が悪かったです。最初に、一部と全部を質問すればよかったです。
私がこれから使う場合は、教えていただいたSQLの方をつかいます。

本当にありがとうございました。