Ｐａｇｅ 418 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼非連結で修正したら、元の1行目に反映され... naru 03/10/27(月) 17:22 ┗Re:参考リンク イケガミ 03/10/27(月) 23:03 ┗Re:参考リンク naru 03/10/28(火) 10:18 ─────────────────────────────────────── ■題名 ： 非連結で修正したら、元の1行目に反映され... ■名前 ： naru ■日付 ： 03/10/27(月) 17:22 -------------------------------------------------------------------------
| 初めて投稿します。１ヵ月前にEXCELのVBAをちょくちょく拝見させていただいておりました。そのときはホントに助かりました。 ありがとうございました。 さて、現在、私は発注に関する管理を行うデータベースを作成しています。 次のようにテーブルとフォームを作って試してるのですが、上手くいきません。 たとえば、10個目のデータの[契約内容]を修正しても、マスタデータに反映させたら、 1個目の[契約内容]が変更されてしまいます。 正しく目的のデータを修正する方法を教えてください。 ACCESS2000 on WIN2000 です。 できれば、ADODBでの方法も教えていただけるとありがたいです。なんせ、 独学で調べたのでDAOでの方法しか参考にできるものが見つからなかったんです。 多分、EditModeを使うのだとは思うのですが･･･。 テーブルd1、d2がマスタデータの入ったテーブルです。 非連結フォームのテーブルは、"TQ発注手続き修正"です。 d1の項目は、[発_契約番号]、[発_契約内容]、[発_パートナーコード]、[発_PJコード]の４つです。 d2の項目は、[P契約番号]、[P見積書受取日]、[P注文書手配日]の３つです。 d1とd2は、[発_契約番号]と[P契約番号]の1対1リレーションシップの関係です。 フォーム[発注手続き修正]は、テーブル作成クエリでd1とd2を１つにしたもの（"TQ発注手続き修正"）を単票形式で表示しています。 Private Sub マスタ更新ボタン_Click() On Error GoTo Err_マスタ更新ボタン_Click Dim db As DAO.Database Dim d1 As DAO.Recordset Dim d2 As DAO.Recordset Set db = CurrentDb Set d1 = db.OpenRecordset("発注内容") Set d2 = db.OpenRecordset("手続き") d1.Edit d1![発_契約内容] = Forms![発注手続き修正]![発_契約内容] d1![発_パートナーコード] = Forms![発注手続き修正]![発_パートナーコード] d1![発_PJコード] = Forms![発注手続き修正]![発_PJコード] d1.Update d2.Edit d2![P見積書受取日] = Forms![発注手続き修正]![P見積書受取日] d2![P注文書手配日] = Forms![発注手続き修正]![P注文書手配日] d2.Update Exit_マスタ更新ボタン_Click: Exit Sub Err_マスタ更新ボタン_Click: MsgBox Err.Description Resume Exit_マスタ更新ボタン_Click End Sub 以上が、自分で作成したものです。HELPも探しましたが分かりませんでした･･･。 お手数ですが、よろしくお願いします。 |
| DAO から ADO への移植 http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado.asp こちらが参考になると思いますよ。 |
| ありがとうございます。 このサイトの使い方がやっと掴めたような気がします。 ADOで作り直してみます。 過去に何度か検索したのですが欲しい情報が見つからず、「問い合わせ先」に「こういうことがやりたいのですが〜」と送っても返事も来ず･･･、『素人には使えない』という思いがありました。 これからは、このサイトもチェックするようにします。 |