【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 · ベストアンサー

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

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

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

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

お礼

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

回答No.1

Gin_F

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

ではどうでしょうか？

補足

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