お世話になります
現在Access2000で、営業週報のレポートを作成しています。
営業が毎日入力するデータを一週間毎に週報としてAccessのレポートで出したいのですが、行き詰まってる個所があります。
やりたいことは、
===================
営業週報 7/5~7/9
山田太郎
※日付 |※行動
7/5(月) |挨拶
7/6(火) |商談
7/7(水) |見積もり
7/8(木) |見積もり
7/9(金) |納入
==================
※はフィールド名
↑のように、ごくごく簡単なレポートです。(説明の為フィールドは省略してあります。)
一週間の日付と、その日に何をしたかという事がわかればOKなんです。しかし、営業も日報を入力しない日というのがありますので、全ての曜日にデータが埋まるこということがなかなかりません。
ここで例えば、7/6(火)の日報がない場合は
===================
営業週報 7/5~7/9
※日付 |※行動
7/5(月) |挨拶
7/7(水) |見積もり
7/8(木) |見積もり
7/9(金) |納入
==================
当然ですが、7/6レコードが丸々抜けてしまうのです。
これだとNGなので、7/6日の日報がない場合でも
===================
営業週報 7/5~7/9
※日付 |※行動
7/5(月) |挨拶
7/6(火) |
7/7(水) |見積もり
7/8(木) |見積もり
7/9(金) |納入
==================
このように日付だけは表示されて
「ああ、7/6はどこも行かなかったのね」
とわかるようにしたいのですが、
何かよい方法はありませんでしょうか?
説明が長くなりましてすみません、
足りない部分があれば補足いたします。
どうぞよろしくお願いします。
No.3ベストアンサー
- 回答日時:
VBA を使わないでもできるのかもしれないですが、やはり VBA を使った方が簡単になるように思います。
フォーム上のテキスト0に 2004/08/16 のように日付が入っていてた場合、2004/08/16 ~ 2004/08/20 をテーブル T_日付(日付フィールドが主キー)に追加するなら、例えば
Private Sub コマンド4_Click()
Dim s As String
Dim d As Date
Dim i As Integer
Dim db As Database
Set db = CurrentDb
d = CDate(Me.テキスト0)
For i = 0 To 4
s = "INSERT INTO T_日付 ( "
s = s & "日付 ) "
s = s & "VALUES ( "
s = s & "#" & Format(d, "yyyy/mm/dd") & "#)"
On Error Resume Next
db.Execute s
On Error GoTo 0
d = DateAdd("d", 1, d)
Next i
End Sub
にようにすればできます。
( ↑のコードは DAO を使用してますので、VBA のメニューのツール→参照設定で DAO にチェックを入れてください。)
他にも、パラメータクエリーにするとか、いろいろな方法があると思います。
素晴らしいです!これでなんとかできそうです
VBAは初心者なのですが、使いこなせればずいぶん楽になりそうですね。
ご丁寧なアドバイスありがとうございました。
No.2
- 回答日時:
> ↑の部分はやはりVBAを使わないとできない処理でしょうか?
事前に1年分とかの日付のみデータを作成しておいて、期間で抽出してやれば
大丈夫だと思いますよ。
Excelなどを使えば、簡単に作成できますので。
No.1
- 回答日時:
(1) 日付だけのテーブルと
(2) 日付、行動のフィールドを持つテーブル
の二つのテーブルに分け、
(1) と (2) を元にクエリーを作成し、(1) → (2) の向きの外部結合( (1) のレコードを全て含む)にしてやってはどうでしょか。
(1) のレコードを作成するタイミングは、レポートの出力実行時(イベントプロシージャの先頭)とかにし、登録されていない日付だけ登録するようにするなどしなければならないと思います。
さっそくのご解答ありがとうございます。
さっそく実行してみます!と言いたいのですが・・
>登録されていない日付だけ登録するようにするなどしなければならないと思います。
↑の部分はやはりVBAを使わないとできない処理でしょうか?
重ね重ねで恐縮ですがよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 財務・会計・経理 税理士からのメールについて 2 2022/03/26 14:35
- 会社・職場 言うことがコロコロ変わる上司 6 2022/11/02 21:01
- 中途・キャリア 相談に乗って下さい。 4 2022/09/23 21:23
- 会社・職場 メーカーの営業担当の方に質問です。商談の情報はどのように管理していますか?例えばシステム等で一元管理 1 2022/04/21 22:06
- その他(ビジネス・キャリア) 事業復活支援金の事前確認での売上高チェックについて 2 2022/03/26 13:47
- 政治 日野自動車がこんな事に成ったのは、内部通報制度が機能してなかったからではないですか? 2 2022/08/23 11:51
- 営業・販売・サービス 建築系の商社勤務です。 私は営業所長です。3日ほど前に得意先へ年末挨拶に行ったときに当社の担当者とう 4 2022/12/23 17:32
- コンサルティング・アドバイザー 台湾内での商談反故への対応策を教えて下さい。 2 2022/08/01 07:42
- その他(ビジネス・キャリア) 勤怠管理について(備えておくべきもの) 3 2022/09/08 10:51
- その他(就職・転職・働き方) 転職先決断について 以下、どちらがやるべき、やったほうがいい、かを意見ください 47歳独身男性 現在 5 2022/10/22 10:59
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
Excleピボットでデータのない部...
-
Access クエリで、レコードの無...
-
ACCESS フォームの非連結の日...
-
【vba】日付の形式が勝手に変わ...
-
accessのレポートで重複データ...
-
アクセスの昇順並び替えで空白...
-
【エクセル】指定した日付に一...
-
Accessの日付時刻型から日付、...
-
Access2000 週報のレポート作成
-
SQLサーバにある日付型のデータ...
-
ビュー定義をプログラムで動的...
-
アクセスのクエリー作成
-
Accessで日付の比較がうまくい...
-
指定日付を起点にして最新日付...
-
ACCESSの空白をカウントする
-
VBA 別シートの同じ日付の欄に...
-
エクセルでこのような事できますか
-
Excel→Accessへの日付データの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
Excleピボットでデータのない部...
-
Access クエリで、レコードの無...
-
VBA 別シートの同じ日付の欄に...
-
Accessのデータ型の日付/時刻型...
-
Accessの日付時刻型から日付、...
-
Excel→Accessへの日付データの...
-
指定日付を起点にして最新日付...
-
BCPでCSV内の文字列をテーブル...
-
アクセスで月単位の抽出
-
アクセス:既定値に土日含まず...
-
【エクセル】指定した日付に一...
-
アクセス97のVBAで日付項目をヌ...
-
【vba】日付の形式が勝手に変わ...
-
前のレコードの合計に現レコー...
-
エクセル-過去6カ月分の合計を...
-
Accessで日付の比較がうまくい...
-
ACCESSの空白をカウントする
-
【Accessで困っています...
おすすめ情報