非連結のtxtBoxのデータをcmdボタンで検索
いつもお世話になります。<m(__)m>
「T顧客管理」を基に「F顧客管理入力」を作成し「F顧客管理入力」
には非連結の「txtBox」と「cmd検索」があります。
「T顧客管理」に追加クエリにて「商品管理_ID・管理番号・商品名」
が入力済みになっております。
そこで「txtBox」に管理番号を入力して「cmd検索」を押して検索
されたレコードに顧客のデータを入力したいのですが、レコードが
検索されません。
「cmd検索」のイベントに
Private Sub cmd検索_Click()
DoCmd.SearchForRecord , , acFirst, "管理番号 Like '*" & Me!txt検索 & "*'"
Me!txt検索 = Null
End Sub
としています。
追加クエリは
INSERT INTO T顧客管理 ( 商品管理_ID, 管理番号, 商品名 )
SELECT T商品説明.商品管理_ID, T商品説明.管理番号, T商品説明.商品名
FROM T商品説明
WHERE (((T商品説明.商品名) Is Not Null));
として「T商品説明」には、他にフィールドがいくつかあります。
--「T顧客管理」--
商品管理_ID ---- 数値型(主キー)
管理番号 ------- テキスト型
商品名 --------- テキスト型
販売日時 ------- 日付/時刻型
販売価格 ------- 通貨型
お名前 --------- テキスト型
・
・
・
-----------------
コード等間違いがありますでしょうか?
初歩的な事と思いますが宜しくお願い致します。<m(__)m>
No.1
- 回答日時:
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
ご回答頂き有難うございます。<m(__)m>
>DoCmd.SearchForRecord はAccess2007から追加されたメソッドですが、
>Accessのバージョンは2007 または 2010 ですか。
Accessのバージョンは2010です。
>代わりに、Recordset.FindFirstメソッドを使えばどうでしょうか。
>Private Sub cmd検索_Click()
> With Me.RecordSet
> .FindFirst "管理番号 Like '*" & Me!txt検索 & "*'"
> If .NoMatch Then MsgBox "該当するデータはありません。"
> End With
> Me!txt検索 = Null
>End Sub
教えて頂いたコードを書いて試してみましたら「該当するデータはありません。」
とメッセージが出てしまいます。
No.2ベストアンサー
- 回答日時:
> 教えて頂いたコードを書いて試してみましたら「該当するデータはありません。
」> とメッセージが出てしまいます。
コードは正常に動作していると言うことですね。
txt検索に、実際に存在する管理番号を入力していますか。
ちゃんと入力しているのに「該当するデータはありません」と出るのなら、
"管理番号 Like '*" & Me!txt検索 & "*'"
の部分が間違っていることになります。
管理番号というフィールド名に間違いはないですか。
データ型はテキスト型で間違いないですか。
上記部分を、下記のように書き直した場合どうなるか試してもらえますか。
"管理番号 = '123456'"
123456 は実際に存在する管理番号で。
hatena1989 様
返答が遅くなりまして申し訳ありません。<m(__)m>
急に入院してしまったので・…
>"管理番号 Like '*" & Me!txt検索 & "*'"
>の部分が間違っていることになります。
ご回答のとおりコードを書き間違えていました。
コードを訂正しまして検索できるようになりました。
本当に初歩的なミスでお忙しいところ時間をとらせてしまい申し訳
ありません。
また質問等するかと思いますのでこれに懲りずに、宜しければまた
宜しくお願い致します。<m(__)m>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) accessについて 2 2022/05/31 16:58
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- その他(データベース) c言語の問題です。これを踏まえてコーディングしたいのでおしえていただきたいです。 3 2023/08/03 09:27
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- その他(ビジネス・キャリア) スポット取引とは? 1 2023/04/06 15:23
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- その他(ネットショッピング・通販・ECサイト) 今年購入した制汗クリームで自分の肌には合わなかったのでフリマアプリで出品をしました。 そしたらその日 2 2023/08/09 04:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データベースのINT型項目にNULL...
-
passwordが入れられません・・・・
-
アクセスで数値型のフィールド...
-
sqlldrの使用方法について
-
日付のテキストボックスに(例...
-
フォームで入力しても反映されない
-
エクセル 自動入力
-
Accessで小数の入力について
-
Access(office)のマクロの「値...
-
ACCESS2000にて「うるう年」の...
-
MA ACCESSデータベースに詳しい...
-
アクセスのテキストボックスの...
-
Accessフォームのコントロール...
-
入力規則違反-任意のエラーメ...
-
このオブジェクトに値を代入す...
-
ファイルメーカー 一ヵ月後の...
-
ファイルメーカー:フィールド...
-
Access2000VBAでEscキーを禁止!
-
Access2007、フォームのテキス...
-
PostgreSQLでのクエリ登録
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
アクセスで数値型のフィールド...
-
フォームで入力しても反映されない
-
Access(office)のマクロの「値...
-
Excelで入力したデータを自動的...
-
日付のテキストボックスに(例...
-
Access2007 textboxに入力でき...
-
このオブジェクトに値を代入す...
-
アクセスのテキストボックスの...
-
ファイルメーカー 一ヵ月後の...
-
ユーザーフォームで数字にカン...
-
sqlldrの使用方法について
-
ACCESS 時間の入力方法
-
入力規則違反-任意のエラーメ...
-
Access2007、フォームのテキス...
-
Accessで主キーの最終番号を取...
-
ファイルメーカで経過月数を出...
-
Accessで所要時間の足し算
-
Accessのパラメータクエリに入...
おすすめ情報