![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
よろしくお願いします。
Access2010のマクロビルダーを使って以下を作成しています。
-----------------------------------
●やりたいこと
1.フォーム内にあるリスト(項目は"1"か"2")から選択する。
2.リストを選択した後、マクロ実行ボタンをクリックする。
3.リストで!”1”を選べばクエリ1がExcel出力される。
リストで!”2”を選べばクエリ2がExcel出力される。
●フォーム
フォーム名:フォーム1
リスト名:リスト1 (項目:"1","2")
●マクロビルダー
If [Forms]![フォーム1]![リスト1]=1 Then
アクション:「書式設定を保持したままエクスポート」
オブジェクト名:クエリ1
出力ファイル形式:*.xlsx
自動起動:いいえ
出力品質:画面
Else If [Forms]![フォーム1]![リスト1]=2 Then
アクション:「書式設定を保持したままエクスポート」
オブジェクト名:クエリ2
出力ファイル形式:*.xlsx
自動起動:いいえ
出力品質:画面
If文の最後:メッセージ「リストから選択してください」
-----------------------------------
以上を実行すると「エラー13 型が一致しません」とエラーが出てしまいます。
If文でつまずいている状況で、
検索してもなかなか有効な解決方法が見つかりません・・・。
どこを間違えているのでしょうか。
No.3ベストアンサー
- 回答日時:
回答者1です。
フォーム内にリストを設置して
リストの
プロパティシートで、
値集合ソースは、1;2
値集合タイプは、値リスト
で、リストを選択してマクロが問題なく動きました。
リストの
値項目 "1","2"
の意味がよくわかりません。
項目を増やさずに、
値集合ソースのみ設定すれば良いのではないでしょうか。
> 値項目 "1","2"
リストの項目追加画面で、1、2と入力したら、このような表示になっていました。
数値とテキストを混ぜて入力していたようで、
回答者様のを、そのままコピペしたところ問題なく動きました。
拙すぎるミスで、お恥ずかしいかぎりです。
この度は大変お手数をおかけしまして、すいませんでした。
No.2
- 回答日時:
リストボックスコントロールのプロパティの「その他」タブ中の
複数選択→しない
にしたらどうなりますか?
最終的に10個くらいになるのなら、
Select Case やFor Next が使えるVBAの方が良さそうにも思えます。
No.1
- 回答日時:
データ型のエラーという質問の回答ではありませんが、
フォームでマクロを使って、複数のリストをエクセル形式でエクスポート表示したいということですよね。
フォーム内にコマンドボタンを複数作られてはどうでしょうか。
コマンドボタン1に
書式設定を保持したままエクスポート
オブジェクトの種類 クエリ
オブジェクト名 クエリ1
出力ファイル形式 エクセルブック(*.xlsx)
自動起動 いいえ
出力品質 画面
コマンドボタン2に
書式設定を保持したままエクスポート
オブジェクトの種類 クエリ
オブジェクト名 クエリ2
出力ファイル形式 エクセルブック(*.xlsx)
自動起動 いいえ
出力品質 画面
として、2つのボタンを作れば、IF文を使う必要はないのではないでしょうか
この回答への補足
早速のご回答ありがとうございます!
実行させたいクエリごとに、
ボタンを複数用意するんですね。
今回は2つのクエリしか出していませんが、
今後は「10種類のクエリを選択して出力」を考えているため、
フォーム内にあまり実行ボタンが増えるのは避けたいな、と思っています・・・。
せっかく案をいただいたのに、すいません。
このまま行き詰まるようだったら、回答者様の案を使わせていただきたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) データ入力規則リスト 空白を無視 3 2022/07/13 15:11
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる(続) 4 2023/03/21 21:28
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Access(office)のマクロの「値の代入」を使用するとき、式に
その他(データベース)
-
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
-
4
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
5
ACCESS で マクロの中でフィルタを使用する方法
その他(データベース)
-
6
Access2010 マクロのIF条件式(合計値の判定)
その他(Microsoft Office)
-
7
2つのテーブルに共通するレコードを削除したい
Access(アクセス)
-
8
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
9
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
10
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
11
access別のテーブルを参照してテキストボックスに値を表示、編集したい
Access(アクセス)
-
12
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
13
Access IF文でテーブルに存在しない場合の処理について
Access(アクセス)
-
14
Accessのクエリでデータの入力ができません
Access(アクセス)
-
15
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
16
AccessのフォームのテキストボックスにLOOKUPで表示したい
Access(アクセス)
-
17
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
18
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
19
アクセスで『0の値以外』を表示する方法
Access(アクセス)
-
20
レコードを保存するコード アクセスvba
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
中出しをするとお腹が痛い・・・。
-
EXCELで式からグラフを描くには?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
エクセルのグラフで、値0のとき...
-
リンク先のファイルを開かなく...
-
これって喉仏ですか? 私は女性...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報