掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6とAccess (ID：83932)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Public Sub Dtput() Set DB = OpenDatabase(Mdb_fail, False, False, ";PWD=m2m10") Set Rs = 清算DB.OpenRecordset("DT", dbOpenTable) Rs.Index = "KEY" cnt = 1 do Rs.Seek "=", Range("b" & cnt) If 割賦Rs.NoMatch = False Then Rs.Edit Rs![ ] = Range("j" & cnt) 割賦Rs.Update End If cnt = cnt + 1 loop DB.Close 編集は出来ます----実際してます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.