こんにちは。
フォーム上で、データベースを検索するものを作っています。
SELECT ~ WHERE ~ で条件に合致するレコードを、サブフォームを連続表示しています。
リセットボタンを作成して、検索結果を消したい(カラにしたい)と思うのですが、
Me![subform].Form.RecordSource = ""
Me![subform].Requery
上記のVBAを実行すると、1レコードだけ表示され、コントロール上では「#Name?」が出てしまっています。
参照するテーブルが無いためにこういうことが起きているのだと思うのですが、防ぐ方法が分かりません。
教えてください。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
ソースを空にしておいて再クエリなど出来ません
>SELECT ~ WHERE ~ で条件に合致するレコードを
表示している時
>リセットボタンを作成して、検索結果を消したい(カラにしたい)と思うのですが、
こうしたければWhere条件を何も抽出しないものに変えます
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
6
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
7
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
8
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
9
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
10
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
11
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
12
新規レコード行を非表示にしたい
Access(アクセス)
-
13
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
14
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
15
アクセスでレコードの内容が変更されたかどうかを調べるには
Access(アクセス)
-
16
【Access】サブフォームのソースオブジェクトを入れ替えたい
Access(アクセス)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
アクセスVBAのMe!と[ ]
Access(アクセス)
-
19
このオブジェクトに値を代入することはできません
その他(データベース)
-
20
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
新規レコード行を非表示にしたい
-
アクセス帳票フォームのループ...
-
アクセスの自動保存解除はでき...
-
アクセスでの警告について教え...
-
Accessでレコードの保存をせず...
-
レコード削除時に(サブ)フォー...
-
アクセスでフォームビューがみ...
-
Access 「このレコードを保存す...
-
Access2010、値を入力したら自...
-
Access 更新キャンセルするには?
-
Accessのデータで一問一答形式...
-
Access サブフォームにフィルタ...
-
accessのフォームを空にしたい
-
Accessでチェックボックスで抽...
-
Accessで一件の新規レコードの...
-
フィルタ後のフォームの件数の...
-
Accessで上の行を自動でコピー...
-
Accessで新しいレコードに規定...
-
レコードの移動
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
フィルタ後のフォームの件数の...
-
新規レコード行を非表示にしたい
-
アクセスの自動保存解除はでき...
-
ACCESSでフォームを使って、テ...
-
レコード削除時に(サブ)フォー...
-
Accessでレコードの保存をせず...
-
Access:フォームプロパティ「...
-
Accessでフォーム上に 直前の...
-
ACCESS起動時に所定フォームを...
-
AccessVBA RecordSourceのリセ...
-
アクセスでの警告について教え...
-
accessのクエリで、該当するデ...
-
アクセス データの競合を非表...
-
Access 「このレコードを保存す...
-
Accessで上の行を自動でコピー...
-
Access サブフォームにフィルタ...
-
Accessで新しいレコードに規定...
-
Access2010、値を入力したら自...
おすすめ情報