Ｐａｇｅ 605 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼FindFirstについて たかの 04/4/26(月) 11:40 ┗Re:FindFirstについて Gin_II 04/4/26(月) 12:24 ┗Re:FindFirstについて たかの 04/4/26(月) 12:41 ─────────────────────────────────────── ■題名 ： FindFirstについて ■名前 ： たかの ■日付 ： 04/4/26(月) 11:40 -------------------------------------------------------------------------
| 以下のプログラム（Access2000）で顧客テーブルから登録番号が一致するものを更新、一致しないものは新規登録したいのですが・・・・ レコードの抽出が上手くいきません。多分検索条件が悪いと思うのですが どうしていいか？です。宜しかった教えてください。 Dim Mdb As DAO.Database Dim GetTbl As DAO.Recordset Set Mdb = CurrentDb Set GetTbl = Mdb.OpenRecordset("Q_T顧客", dbOpenDynaset) GetTbl.FindFirst GetTbl![登録番号] = Me![登録番号] If GetTbl.NoMatch = False Then '見つかったときの処理 Me![登録番号] = Format(GetTbl![登録番号], "0000") Me![氏名] = GetTbl![氏名] Me![フリガナ] = GetTbl![フリガナ] Me![郵便番号] = GetTbl![郵便番号] Me![住所1] = GetTbl![住所1] Me![住所2] = GetTbl![住所2] Me![電話番号1] = GetTbl![電話番号1] Me![電話番号2] = GetTbl![電話番号2] Me![備考] = GetTbl![備考] Else Me![氏名] = "" Me![フリガナ] = "" Me![郵便番号] = "" Me![住所1] = "" Me![住所2] = "" Me![電話番号1] = "" Me![電話番号2] = "" Me![備考] = "" End If GetTbl.Close Mdb.Close |
| > GetTbl.FindFirst GetTbl![登録番号] = Me![登録番号] GetTbl.FindFirst "[登録番号] = " & Me![登録番号] か、 GetTbl.FindFirst "[登録番号] = '" & Me![登録番号] & "'" で、どうでしょうか？ ＃登録番号フィールドの、フィールド型で使い分けてください。 上段は、数値型。下段はテキスト型の場合です。 |
| Gin_IIさん どうも、ありがとうございました。上手くいきました。 |