VB6.0 レコードの更新について

みなと 2005-09-29 19:00:55 No: 125863

過去の更新欄を見てもいまいちわからなかったので
ご指導お願いします。

今、VBのフォーム上に「更新」コマンドボタンを加えて
Access内にあるデータを参照した後に、「更新」を押すと
その場（VBのテキストボックスで）で書き込み、つまり
更新を実行したいのです。

現在

Private Sub Command4_Click()
    '**  新しく更新結果を出力する
   Set rs = db.OpenRecordset
   With rs
       Do While rs.EOF = False
          .Edit
          !FIELD1 = "XYZ"
          .Update
          .MoveNext
       Loop
  End With

End Sub

を作ってみたのですが作動してくれません。
それと、更新は一つのレコードを更新するのではなく
ときには一つ、時には複数更新したいのです。

書き忘れましたが、フォーム上にあるテキストボックスは
四つで、上か順番に、氏名、住所、電話番号、誕生日というのを
作っています。

葉月α 2005-09-29 22:06:56 No: 125864

そりゃ動作しないわな
一言で済むないようだけど・・・とりあえず・・・

まずここんところどの板でも記述されている内容から・・・

環境は書きましょう
多分ＶＢ６．０ＳＰ５とＡｃｃｅｓｓ２０００であるとは思うけど

次に作動しませんではなく

どのように作動しないかを書きましょう
エラーメッセージが出るならメッセージも
貴方のコードをデバッグする掲示板じゃないので
デバッグの結果を書くようにするとありがたいレスがつくようになると思います

またこの辺の関連はＷｅｂ上に入門用（初めてＶＢとＡＣさわる人用）から
腐るほどあるので
それ読んでわからなければ、ここで聞いても理解できないかも

なんか最近質問というよりは
こうしたんだけどコード教えてください・・・的な内容多いよね

シティーハンター呼びたければ新宿の掲示板だっけ？
貴方のそのコードだとどこの掲示板にXYZ書きたいのかわかんないよね
OpenRecordsetをもう一度過去ログやｗｅｂから調べなおしてみてください

葉月α 2005-09-29 22:08:43 No: 125865

すみませんな
表題に６．０って書いてありましたな
ごめん