質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

2回答

529閲覧

アクセス 日付指定をしたグラフが表示されるようにしたい

susls

総合スコア8

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2022/08/18 07:05

前提

アクセスで見積システムを作成しています。

実現したいこと

フォーム上で、日付指定をしたグラフが表示されるようにしたいです。
テキストボックスに検索したい日付を入力し、検索ボタンを押したら
動くようにしたいです。

発生している問題・エラーメッセージ

from句の構文エラーですと表示されてしまいます。

該当のソースコード

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim vsql As String

vsql = "select 発行日 from Qグラフ"
vsql = vsql & "where 発行日 between #" & Me!日付終わり & "# and #" & Me!日付終わり & "#"

Set db = CurrentDb
Set rs = db.OpenRecordset(vsql)

この後、どのような処理が必要になるか分かりませんでした。

試したこと

クエリで抽出条件にbetween関数を入力して動作させようとしましたが、抽出条件を入力するとグラフが全く表示されなくなってしまいました。
抽出条件は下記の通りです。
Between [Forms]![Frmグラフ]![日付はじめクエリ用] And [Forms]![Frmグラフ]![日付終わりクエリ用]

別の方法が無いかと探したところvbaだったら出来るかもと思い相談しました。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hatena19

2022/08/18 07:57

コードは一部ではなく、処理全体のコードを提示してください。 提示のコードにはグラフの設定部分がなにもありません。
hatena19

2022/08/18 08:31

抽出条件を設定してない状態ではグラフは表示できていますか。 できているなら、そのときのグラフの「値集合ソース」の設定を質問に追記してください。 ウィザードで作成したなら、SQLが設定されているはずです。
guest

回答2

0

ベストアンサー

テーブルからウィザードでグラフを作成したと仮定して回答します。

フォーム上のグラフの名前を「グラフ0」
テキストボックスが2つのテキストボックスの名前を「日付はじめ」、「日付終わり」、
コマンドボタンの名前を「検索」とします。

デザインビューで「グラフ0」の「値集合ソース」にSQLが設定されているので、
そのSQLに下記のように抽出条件を設定します。

sql

1SELECT T_売上.顧客名, Sum(T_売上.売上額) AS 売上額の合計 FROM T_売上 2WHERE T_売上.発行日 Between [日付はじめ] And [日付終わり] 3GROUP BY T_売上.顧客名;

提示のSQLは当方で作成したサンプルのものなので、
WHERE句以外は、そちらのSQLのままにしてください。

検索ボタンのクリック時のイベントプロシージャを下記のように設定します。

vba

1Private Sub 検索_Click() 2 Me.グラフ0.Requery 3End Sub

これで、
テキストボックスに日付を入力して、検索ボタンのクリック時すれば、
抽出条件が反映されます。

投稿2022/08/18 08:43

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

susls

2022/08/19 00:25

ありがとうございます! 舌足らずの質問でしたがご丁寧に回答頂けて出来るようになりました!
guest

0

from句の構文エラーですと表示されてしまいます。

生成されたSQL文でQグラフwhereの間が区切られていないからでしょう。
間に空白とか改行を挟んでください。

以下はQグラフの後ろに空白を入れています。

VBA

1vsql = "select 発行日 from Qグラフ " 2vsql = vsql & "where 発行日 between #" & Me!日付終わり & "# and #" & Me!日付終わり & "#"

投稿2022/08/18 08:11

sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

susls

2022/08/19 00:27

ご回答ありがとうございました! ケアレスミスでしたね。失礼しました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問