No.2ベストアンサー
- 回答日時:
あまりこういう処理にしないので今考えましたが・・。
クエリー1のレコード件数を取得して0の場合は別フォームを開く
Function Sample()
Dim db As Database
Dim rs As Recordset
Dim stDocName As String
Dim stLinkCriteria As String
Set db = CurrentDb
Set rs = db.OpenRecordset("クエリー1")
rs.MoveLast
If rs.RecordCount = 0 then
stDocName = "別フォーム"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Function
これで行けるのではないかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Access(アクセス) アクセス フォームの自動入力 1 2023/03/20 00:18
- Access(アクセス) Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです 1 2023/02/08 13:29
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(データベース) 20万行あるデータを動かしたい 2 2023/06/13 15:21
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) Access DAOのExecuteメソッドのオプション(RecordsetOptionEnum)に 1 2022/09/19 07:34
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
Access クエリの結果が0件だった場合、エラーを表示させる方法
Access(アクセス)
-
-
4
ACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです
Access(アクセス)
-
5
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
9
Access 入力規則で設定できる数字桁数は?
Excel(エクセル)
-
10
【Accessクエリ】存在しないデータを0として計算させるには?
その他(データベース)
-
11
アクセスのテキストボックスの初期値を空白に
Access(アクセス)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
14
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
15
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
16
アクセスの初心者の質問です(空白の場合に他のフィールドを表示させたい。)
Access(アクセス)
-
17
ACCESSのテーブルの行と列を入れ替えたい
Excel(エクセル)
-
18
クエリ実行結果0件の場合のフォーム展開中止とメッセージ表示
Access(アクセス)
-
19
Access チェックボックスでチェックしたデータのみフォームで表示
Access(アクセス)
-
20
アクセスで#エラーを表示させない方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
Access非連結フォームから複数...
-
フィルタ後のフォームの件数の...
-
新規レコード行を非表示にしたい
-
ACCESSフォームのリストボック...
-
Accessで新しいレコードに規定...
-
ACCESS起動時に所定フォームを...
-
Access2010、値を入力したら自...
-
ACCESSでフォームを使って、テ...
-
Accessでレコードの保存をせず...
-
アクセスの自動保存解除はでき...
-
accessのクエリで、該当するデ...
-
アクセス データの競合を非表...
-
異なるフォームに属する関数間...
-
Access サブフォームにフィルタ...
-
アクセス帳票フォームのループ...
-
Access 更新キャンセルするには?
-
ACCESS リストボックス...
-
AccessVBA RecordSourceのリセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
ACCESSでフォームを使って、テ...
-
新規レコード行を非表示にしたい
-
フィルタ後のフォームの件数の...
-
Accessでレコードの保存をせず...
-
Accessでフォーム上に 直前の...
-
Accessで上の行を自動でコピー...
-
AccessVBA RecordSourceのリセ...
-
レコード削除時に(サブ)フォー...
-
アクセスの自動保存解除はでき...
-
Accessで新しいレコードに規定...
-
ACCESS起動時に所定フォームを...
-
Access 「このレコードを保存す...
-
Access:フォームプロパティ「...
-
Access2010、値を入力したら自...
-
レコードをダブルクリックする...
-
ACCESSのクエリで抽出したデー...
-
アクセス データの競合を非表...
-
Accessでのデータ消滅に...
おすすめ情報