http://www.okweb.ne.jp/kotaeru.php3?q=361223
でも質問したのですが、今になってから新たなことが判明しました…
ビル区分 テナントコード
----------------------
01 100
01 101
01 102
02 100
02 101
02 103
テナントコードがダブっていないもの、例えば01、102であれば問題なく動作するのですが、ダブっている場合表示されません…
01、100も02、100のときもどちらも検索できるようにしたいのですがどうすればいいですか?
今のコードは
Private Sub btn検索_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
--------------------------------------------------
rs.FindFirst "[テナントコード]='" & Me![cbo検索テナントコード] & "'"
Me.Bookmark = rs.Bookmark
cbo検索ビル区分 = Null
cbo検索テナントコード = Null
Me.Filter = "ビル区分 = '" & Me!cbo検索ビル区分 & "' AND テナントコード = '" & Me!cbo検索テナントコード & "'"
--------------------------------------------------
End Sub
です。お願いします
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。やりたいことは、[btn検索]ボタンをクリックすると、コンボで選択したビル区分&テナントコードのレコードに移動するということでしょうか。
最初にテナントコードの条件だけで、レコードを移動しているのは何故でしょうか。
ここで、ビル区分の条件も合わせて移動すればいいと思うのですが。
また、フォーム(Me)にFilterをかける前に、各コンボにNullをセットしてしまっているので、Filterで抽出されるはずはないですよ。
コードの1行1行でどういう動作を行っているかを順を追って考えてみて下さい。
なお、以下のコードで出来ると思います。
あと、一度参照した(Setした)レコードセットは、閉じて(Close)解放(NothingをSet)するようにして下さい。
Private Sub btn検索_Click()
Dim rs As DAO.Recordset 'DAOのRecordsetオブジェクト
'フォーム(Me)のレコードを参照する
Set rs = Me.Recordset.Clone
'ビル区分とテナントコードで検索
rs.FindFirst "ビル区分 = '" & Me!cbo検索ビル区分 & "' AND テナントコード = '" & Me!cbo検索テナントコード & "'"
'フォームのカレントレコードに設定する
Me.Bookmark = rs.Bookmark
'コンボボックスを初期化
Me!cbo検索ビル区分 = Null
Me!cbo検索テナントコード = Null
'レコードセットの解放
rs.Close: Set rs = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA チェックボックスの設定について 1 2022/10/24 10:27
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access終了時の最適化が失敗?
-
SQLの実行結果が異なる
-
沿線コード
-
SQL 特定のカラムが最大値のレ...
-
SQLServer 日付が直前のレコー...
-
CREATE テーブルでの複数外部...
-
困っています。ORACLE_SQL 複数...
-
GROUP BYを行った後に結合した...
-
Oracleでの文字列連結サイズの上限
-
レコードが存在しなかった場合
-
Accessで別テーブルの値をフォ...
-
ADO VBA 実行時エラー3021
-
SQL文で右から1文字だけ削除す...
-
select insertで複数テーブルか...
-
SELECTで1件のみ取得するには?
-
レコードが選択されないときの...
-
GROUP BYを使ったSELECT文の総...
-
JSPのNULLレコード表示について...
-
Excelでセルの書式設定を使用し...
-
最新の日付とその金額をクエリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access終了時の最適化が失敗?
-
CREATE テーブルでの複数外部...
-
Order by句でバインド変数を使...
-
沿線コード
-
SQLServer 日付が直前のレコー...
-
10営業日前の日付を取得したい...
-
Excelファイルのデータをテーブ...
-
SQLの実行結果が異なる
-
【SQL】またぎデータの検索の仕方
-
SQLに関して
-
SQLにて縦を横へ展開
-
ヤマト急便のチェックデジット...
-
SQL GROUP BY
-
スペシャリストの方! 助けてく...
-
娘の学校から出た暗号解読です...
-
SQLで<>を使用するとき、
-
GROUP BYを行った後に結合した...
-
Accessで別テーブルの値をフォ...
-
Oracleでの文字列連結サイズの上限
-
SELECTで1件のみ取得するには?
おすすめ情報