Ｐａｇｅ 615 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼指定した条件のレコードのみを削除したいのですが・・ たかの 04/5/6(木) 16:36 ┗Re:指定した条件のレコードのみを削除したいのですが・・ Gin_II 04/5/6(木) 18:02 ┗Re:指定した条件のレコードのみを削除したいのですが・・ たかの 04/5/6(木) 19:48 ─────────────────────────────────────── ■題名 ： 指定した条件のレコードのみを削除したいのですが・・ ■名前 ： たかの ■日付 ： 04/5/6(木) 16:36 -------------------------------------------------------------------------
| Set GetTbl = Mdb.OpenRecordset("D-見積書明細", dbOpenDynaset) GetTbl.FindFirst "[伝票番号] = " & Me![伝票番号] Do Until GetTbl.EOF GetTbl.Delete GetTbl.MoveNext Loop 上記の記述で指定した伝票番号のみのデータを削除したいのですが・・・ どうしてか？全データが削除されるので対処方法を教えてください。 よろしくお願いします。 |
| ▼たかの さん： >Set GetTbl = Mdb.OpenRecordset("D-見積書明細", dbOpenDynaset) > >GetTbl.FindFirst "[伝票番号] = " & Me![伝票番号] > Do Until GetTbl.NoMatch > GetTbl.Delete GetTbl.FindNext >Loop のようにすれば大丈夫だとは思いますが、私なら、 Set Mdb = Currentdb Mdb.Execute "DELETE FROM [D-見積書明細] WHERE [伝票番号]=" & Me![伝票番号] のようにします。 |
| どうもありがとうございました。 無事に解決できました。 |