【ACCESS2000】 VBAの更新処理に条件を加えたい。

下記のような更新処理のVBAを組みました。
これにIDが5のものを更新するというのを加えるには
どうすればよいでしょうか。


Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

rs.Open "tbl_D_売上", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect



rs("入金方法") = 2
rs("入金方法名称") = "分割"

rs.Update

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

No.2 ベストアンサー 回答者： Gin_F 回答日時： 2004/11/18 11:32

> WHERE [ID] = 5　の"5"の部分をMe!txtIDを入れることはできないでしょうか。

ID フィールドは、数値型でいいですよね？

CurrentProject.Connection.Execute _
　　"UPDATE [tbl_D_売上] " _
　　& "SET [入金方法] = 2, [入金方法名称] = '分割' " _
　　& "WHERE [ID] = " & Me!txtID

のようにしてみてください。

この回答へのお礼

うまくいきました。すばやい回答ありがとうございました。

お礼日時：2004/11/18 11:39

No.1 回答者： Gin_F 回答日時： 2004/11/18 11:09

CurrentProject.Connection.Execute _

　　"UPDATE [tbl_D_売上] " _
　　& "SET [入金方法] = 2, [入金方法名称] = '分割' " _
　　& "WHERE [ID] = 5"

ではどうでしょうか？

この回答への補足

すいません、WHERE [ID] = 5　の"5"の部分をMe!txtIDを入れることはできないでしょうか。
そのまま代入してもうまくいきませんでした。

補足日時：2004/11/18 11:29