Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1689 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5734】レポート内のガンチャート じーや 05/8/3(水) 10:35 質問[未読]
【5736】Re:レポート内のガンチャート 小僧 05/8/3(水) 11:15 発言[未読]
【5740】Re:レポート内のガンチャート じーや 05/8/3(水) 14:07 質問[未読]
【5741】Re:レポート内のガンチャート 小僧 05/8/3(水) 14:26 発言[未読]
【5742】Re:レポート内のガンチャート じーや 05/8/3(水) 14:31 質問[未読]
【5743】Re:レポート内のガンチャート 小僧 05/8/3(水) 14:41 発言[未読]
【5744】Re:レポート内のガンチャート じーや 05/8/3(水) 16:35 お礼[未読]
【5745】Re:レポート内のガンチャート じーや 05/8/3(水) 17:14 発言[未読]
【5746】Re:レポート内のガンチャート 小僧 05/8/3(水) 17:42 回答[未読]
【5749】Re:レポート内のガンチャート じーや 05/8/4(木) 11:51 お礼[未読]
【5734】レポート内のガンチャート
質問  じーや  - 05/8/3(水) 10:35 -
引用なし
パスワード
   レポートでガンチャートを作成しているのですが、
表示したい日付を今日からに指定することは可能でしょうか？

xWidth1 = Me.LINE_1.Left + (DateDiff("d", "ｘｘｘｘｘ", Me.開始日) * sWidth)

本来、上の式のｘｘｘｘｘでは、日付を指定するのですが、
ここに自動的にその日の日付を入れて表示させたいのです。

よろしくお願いします。
【5736】Re:レポート内のガンチャート
発言  小僧  - 05/8/3(水) 11:15 -
引用なし
パスワード
   ▼じーや さん：
こんにちは。

Sub Test()
　　Debug.Print DateDiff("d", #2005/01/01#, Date)
End Sub

で今日が今年の何日目かが求められますが…。

外していたらすみません。
【5740】Re:レポート内のガンチャート
質問  じーや  - 05/8/3(水) 14:07 -
引用なし
パスワード
   小僧さん、有難うございます。

私の説明が下手なようでして、すみません。。。

レポートを表示する際、あらかじめ何月何日〜というのを
指定しなければなりませんが、それを自動で今日の日付にしたいのです。

例えば今日、そのレポートを表示するとガンチャートの左端は今日の日付になり、
明日そのレポートを表示するとガンチャートの左端は明日の日付に自動的に変化するというものです。
このような説明でお分かり頂けますでしょうか？
【5741】Re:レポート内のガンチャート
発言  小僧  - 05/8/3(水) 14:26 -
引用なし
パスワード
   ▼じーや さん：
こんにちは。

>レポートを表示する際、あらかじめ何月何日〜というのを
>指定しなければなりませんが

ここが当方には良く解りません。

A) 固定の日付でしたら問題なくレポートが開けるところまでは
　 完成されているのでしょうか？

B) 固定の日付をどこで指定されていますか？
　 (フォーム上にテキストボックスがある、
　　レポートを開いたらメッセージボックスで聞かれる等)
【5742】Re:レポート内のガンチャート
質問  じーや  - 05/8/3(水) 14:31 -
引用なし
パスワード
   ▼小僧 さん：

xWidth1 = Me.LINE_1.Left + (DateDiff("d", "2005/05/06", Me.開始日) * sWidth)

コードを抜粋したものですが、上のように2005/05/06からという指定では
問題なく表示されています。

この日付はマクロ上で指定しています。

このような形でお分かり頂けますでしょうか？
【5743】Re:レポート内のガンチャート
発言  小僧  - 05/8/3(水) 14:41 -
引用なし
パスワード
   ▼じーや さん：
こんにちは。

>この日付はマクロ上で指定しています。

がちょっと解らないのですが、

>xWidth1 = Me.LINE_1.Left + (DateDiff("d", "2005/05/06", Me.開始日) * sWidth)

xWidth1 = Me.LINE_1.Left + (DateDiff("d", Date, Me.開始日) * sWidth)

で行けませんでしょうか？
【5744】Re:レポート内のガンチャート
お礼  じーや  - 05/8/3(水) 16:35 -
引用なし
パスワード
   ▼小僧 さん：

なんだか自分でも分からなくなってきてしまいました。
ちょっと考え直してみます。すみません。。。
【5745】Re:レポート内のガンチャート
発言  じーや  - 05/8/3(水) 17:14 -
引用なし
パスワード
   ▼小僧 さん：

整理がつきました。小僧さんの教えて頂いた方法で出来ました。
有難うございます。テキストで1日〜31日までを表示させていたため、
混乱していました。。。

あと一点お聞きしたいのですが、
今日の日付の日だけを表示させる関数はありますでしょうか。
【5746】Re:レポート内のガンチャート
回答  小僧  - 05/8/3(水) 17:42 -
引用なし
パスワード
   ▼じーや さん：
こんにちは。

>今日の日付の日だけを表示させる関数はありますでしょうか。

Help も有効に使いましょうね。

Day(Date)

Format(Date,"d")

→"03"で出したければ Format(Date,"dd")
【5749】Re:レポート内のガンチャート
お礼  じーや  - 05/8/4(木) 11:51 -
引用なし
パスワード
   ▼小僧 さん：
お世話になりました。なんとか出来ました、有難うございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1689 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078256
(SS)C-BOARD v3.8 is Free