Ｐａｇｅ 606 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼非連結では 賢太 04/4/26(月) 8:45 ┗Re:非連結では ちいたま 04/4/26(月) 14:18 ┗Re:非連結では ちいたま 04/4/26(月) 14:33 ┗Re:非連結では たかの 04/4/26(月) 15:09 ─────────────────────────────────────── ■題名 ： 非連結では ■名前 ： 賢太 <kentarou_1120@hotmail.com> ■日付 ： 04/4/26(月) 8:45 -------------------------------------------------------------------------
| 初心者でどのように書いたらよいか分かりませんが・・・ 非連結のフィールドで入力した値をＶＢＡを使って テーブルに書き込む（更新・追加）方法を教えてください。 よろしくお願いします。 access2000を使用しています。 |
| ▼賢太 さん： >初心者でどのように書いたらよいか分かりませんが・・・ >非連結のフィールドで入力した値をＶＢＡを使って >テーブルに書き込む（更新・追加）方法を教えてください。 >よろしくお願いします。 > >access2000を使用しています。 はじめまして こういうことがしたいのでしょうか？ 追加の場合 Dim rs As Recordset Dim db As Database Set db = CurrentDb Set rs = db.OpenRecordset("テーブル1", dbOpenDynaset)'書き込みたいテーブル名 rs.AddNew rs!aa = Me.txt '非連結のテキストボックスの値をテーブル１のaaのフィールドの書き込む rs.Update db.Close rs.Close Set db = Nothing Set rs = Nothing 更新の場合はaddnewをeditに変えればいいだけだと思います。 もし質問の内容と違っていたらごめんなさいね。 がんばって！ |
| ▼ちいたま さん： >▼賢太 さん： >>初心者でどのように書いたらよいか分かりませんが・・・ >>非連結のフィールドで入力した値をＶＢＡを使って >>テーブルに書き込む（更新・追加）方法を教えてください。 >>よろしくお願いします。 >> >>access2000を使用しています。 > >はじめまして >こういうことがしたいのでしょうか？ > >追加の場合 >Dim rs As Recordset > Dim db As Database > > Set db = CurrentDb > Set rs = db.OpenRecordset("テーブル1", dbOpenDynaset)'書き込みたいテーブル名 > rs.AddNew > rs!aa = Me.txt '非連結のテキストボックスの値をテーブル１のaaのフィールドの書き込む > rs.Update > db.Close > rs.Close > > Set db = Nothing > Set rs = Nothing > > >更新の場合はaddnewをeditに変えればいいだけだと思います。 > >もし質問の内容と違っていたらごめんなさいね。 >がんばって！ レコードセットをクローズさせる順番を間違っています。 正確には rs.close db.close set rs = nothing set db =nothing |
| ありがとうございました。 この方法で解決できるみたいです。 大変、助かりました。 |