質問: null end sub としています。 追加クエリは insert into t顧客管理 ( 商品管理_id, 管理番号, 商品名 ) select t商品説明.商品管理_id, t商品説明.管理番号, t商品説明.商品名 from t商品説明 where (((t商品説明.商品名) is not null)); として「t商品説明」には、他にフィールドがいくつかあります。 --「t顧客管理」-- 商品管理_id ---- 数値型(主キー) 管理番号 ------- テキスト型 商品名 --------- テキスト型 販売日時 ------- 日付/時刻型 販売価格 ------- 通貨型 お名前 --------- テキスト型 ・ ・ ・ ----------------- コード等間違いがありますでしょうか? 初歩的な事と思いますが宜しくお願い致します。
回答: docmd.searchforrecord はaccess2007から追加されたメソッドですが、 accessのバージョンは2007 または 2010 ですか。 当方の2007で試してみましたが、1回目は検索しますが、2回目から検索できないなど、どうも不安定です。 代わりに、recordset.findfirstメソッドを使えばどうでしょうか。 private sub cmd検索_click() with me.recordset .findfirst "管理番号 like '*" & me!txt検索 & "*'" if .nomatch then msgbox "該当するデータはありません。" end with me!txt検索 = null end sub