こんにちは。
フォーム上で、データベースを検索するものを作っています。
SELECT ~ WHERE ~ で条件に合致するレコードを、サブフォームを連続表示しています。
リセットボタンを作成して、検索結果を消したい(カラにしたい)と思うのですが、
Me![subform].Form.RecordSource = ""
Me![subform].Requery
上記のVBAを実行すると、1レコードだけ表示され、コントロール上では「#Name?」が出てしまっています。
参照するテーブルが無いためにこういうことが起きているのだと思うのですが、防ぐ方法が分かりません。
教えてください。
宜しくお願いします。
No.1
- 回答日時:
tab1:
ID_fld1
01_AAAA
02_BBBB
03_CCCC
04_DDDD
' ------------------------------
' WHERE節で検索対象ゼロを指示
' ------------------------------
Private Sub コマンド4_Click()
Me.RecordSource = "SELECT * FROM tab1 WHERE ID<1"
End Sub
' ------------------------------
' Filterで検索対象ゼロを指示
' ------------------------------
Private Sub コマンド5_Click()
Me.FilterOn = False
Me.Filter = "ID<0"
Me.FilterOn = True
End Sub
' ------------------------------
' WHERE節で検索対象有りを指示
' ------------------------------
Private Sub コマンド6_Click()
Me.RecordSource = "SELECT * FROM tab1 WHERE ID>1"
End Sub
レコードソースを空にしたらコントロールソースも空にしないとエラーが出るでしょう。
が、この場合は、復活のコードも必要となるのでややこしいと思います。
Private Sub コマンド7_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.ControlSource = ""
End If
Next
Me.RecordSource = ""
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
-
4
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
【Access】サブフォームのソースオブジェクトを入れ替えたい
Access(アクセス)
-
9
レコードセットで得た結果をサブフォームに出力したい
その他(データベース)
-
10
新規レコード行を非表示にしたい
Access(アクセス)
-
11
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
14
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
15
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
16
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
-
17
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
18
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
19
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
20
accessの自動更新処理をできないようにするにはどうすれば良いですか?
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
Access2010、値を入力したら自...
-
アクセスでフォームビューがみ...
-
新規レコード行を非表示にしたい
-
Accessでフォーム上に 直前の...
-
レコード削除時に(サブ)フォー...
-
Accessで上の行を自動でコピー...
-
フィルタ後のフォームの件数の...
-
フォームから離れる際にテーブ...
-
ACCESS起動時に所定フォームを...
-
Access レコード移動時イベント...
-
アクセスの自動保存解除はでき...
-
AccessVBA RecordSourceのリセ...
-
Accessで新しいレコードに規定...
-
Accessでレコードの保存をせず...
-
アクセスのフォームで立ち上げ...
-
Accessでチェックボックスで抽...
-
accessのクエリで、該当するデ...
-
ACCESSのクエリで抽出したデー...
-
Access レポート印刷するときに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
ACCESSでフォームを使って、テ...
-
新規レコード行を非表示にしたい
-
フィルタ後のフォームの件数の...
-
Accessでレコードの保存をせず...
-
Accessでフォーム上に 直前の...
-
Accessで上の行を自動でコピー...
-
AccessVBA RecordSourceのリセ...
-
レコード削除時に(サブ)フォー...
-
アクセスの自動保存解除はでき...
-
Accessで新しいレコードに規定...
-
ACCESS起動時に所定フォームを...
-
Access 「このレコードを保存す...
-
Access:フォームプロパティ「...
-
Access2010、値を入力したら自...
-
レコードをダブルクリックする...
-
ACCESSのクエリで抽出したデー...
-
アクセス データの競合を非表...
-
Accessでのデータ消滅に...
おすすめ情報