以下のテーブルがあります。
フィールドA=受注日付 (日付型 yyyy/mm/dd)
フィールドB=申込日付 (日付型 yyyy/mm/dd)
フィールドC=着手日付 (日付型 yyyy/mm/dd)
フィールドD=”ここに関する質問です。”(日付型 yyyy/mm/dd)
フィールドA~Cの中で、一番昔の日付レコードをフィールドDに表示させるための関数の入れ方が分かりません。
単一フィールドにあるレコードで、最古日、最新日を抽出する方法はほかの質問でも挙がっているのですが、複数フィールドの中から選択肢、新たなフィールドに表示させる方法が中々見当たらず質問させていただきました。
例)
[A] [B] [C] [D]
2011/11/1 2012/1/1 2012/3/1 → 2011/11/1
※A~Cの中で一番古いのは「A」なので、DにAの日付を表示させる。
何方かご教授、よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
最新日なら簡単なのに・・
以下を標準モジュールに置いて
クエリで
フィールドA|フィールドB|フィールドC|最古日:oldest([フィールドA],[フィールドB],[フィールドC])
のように比較したいフィールドを好きなだけ入れてみてください。
A,B,C が全て未記入なら1900/1/1 が返ります 。
投稿用にタブインデントを全角スペースに変換しています。
Function Oldest(ParamArray aryX() As Variant) As Date
'日付型要素の中で最小(古)値を求めます(未記入は除外)
'oldest(null,#2000/1/1#,#1999/12/31#) → 1999/12/31
Dim v As Variant
Oldest = #12/31/2999#
For Each v In aryX
If Not IsNull(v) Then
If v < Oldest Then
Oldest = v
End If
End If
Next
If Oldest = #12/31/2999# Then
Oldest = 2 '#1900/1/1#
End If
End Function
hatenaさんのとの違いは返り値が日付時刻型かVariant型かの違いです。
今日はkiku さんの追っかけです (^^ゞ ご容赦のほどを。
No.1
- 回答日時:
返信遅くなり大変申し訳ございません。
モジュールを使うんですね。試しにやってみたら上手くいきました。
ご回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Access(アクセス) Accessのデータ型の日付/時刻型について 1 2023/04/02 17:03
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Access(アクセス) エクセルのVBAについて教えてください。 4 2023/01/21 10:21
- Access(アクセス) アクセスで教えてください。 クエリで2日前を抽出する計算式を 入力して表示させると ちゃんとyyyy 1 2023/06/08 21:05
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- MySQL SQLについて質問です。 SELECT TO_CHAR(TO_DATE('90-10-08.'YY- 4 2022/05/13 20:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差込印刷での全角表示について...
-
エクセルデータをワードで差し...
-
エクセルにおける「フィールド...
-
ACCESS 重複データを1...
-
Word差し込み印刷のハイフン(...
-
レコードの内容にハイフンをつ...
-
実行時エラー '3464': 抽出条件...
-
フィールドの更新がない
-
【Access】レポートでテキスト...
-
奇数・偶数ページごとに差し込...
-
アクセスのオートレポートで罫...
-
ACCESSのデータに自動で半角ス...
-
Accessのハイパーリンクをクリ...
-
クエリで割り算する方法を教え...
-
Null値を並べ替えで・・・
-
Acsess アクセス のクエリで...
-
列を移動させるvbaコードを教え...
-
ACCESSで条件によってフォーム...
-
ACCESS2000でExcelから特定フィ...
-
アクセス2007 複数フィールド...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
差込印刷での全角表示について...
-
エクセルにおける「フィールド...
-
フィールドの更新がない
-
ACCESS 重複データを1...
-
エクセルデータをワードで差し...
-
クエリで割り算する方法を教え...
-
ACCESSのデータに自動で半角ス...
-
Acsess アクセス のクエリで...
-
Word差し込み印刷のハイフン(...
-
Accessのハイパーリンクをクリ...
-
実行時エラー '3464': 抽出条件...
-
Null値を並べ替えで・・・
-
sqlserverにはグループ集計のfi...
-
Access 複数のフィールドの平均...
-
「Access2007」でレポートが作...
-
ACCESSで条件によってフォーム...
-
アクセスでのテキストデータ取...
-
アクセスのクエリでパラメータ...
-
クエリーで、全角混じりデータ...
-
datetime型のUpdate文
おすすめ情報