複数フィールドからの最新抽出（ACCESS)

Question

MS-ACCESS(Ver2003)で売上進捗システムを作っているのですが、以下のように日付フィールドが５つあり、最終対応日に最新日が反映されるようにしたいのですが、どなたか詳しい方いらっしゃいましたら、御教授願います。クエリで何かの条件式を使うのでしょうか？
（テーブル構造）イメージです
対応日（(1)）対応日（(2)）対応日（(3)） 対応日（(4)）最終対応日　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2007 05 14  　未入力　　　未入力　　　　未入力　 2007 05 14
2007 06 102007 09 20  　未入力　　　　未入力　 2007 09 20
2007 07 202007 10 102007 10 30　　未入力   　200710 30
2007 08 022007 09 152007 10 222007 11 15　2007 11 15

noname#79209 · Accepted Answer

直してみました。
以下のコードに全て入れ替えて下さい。
その上で、
1.更新クエリの「抽出条件」欄をクリアします。
2.更新クエリの「レコードの更新」欄を
　fncGetMaxDate([テーブル名]![対応日１],[テーブル名]![対応日２],>[テーブル名]![対応日３],[テーブル名]![対応日４],[テーブル名]![最終対応日])
とし変更して下さい。（パラメータが追加になっているので．．．）

今回の変更は、全てのレコードに対して更新がかかります。
パラメータに「最終対応日」を追加しました。
対応日1～4の中から最新の日付を取り出し、それが現在の最終対応日より新しい日付なら置き換えています。
そうでない場合は、現在の最終対応日にもう一度置き換えます。
無駄のように見えますが、更新クエリを使うので、とにかく何らかのデータで置き換わります。
現在の最終対応日が最新であったとしても、もう一度同じ値を書き込む必要が有るからです。

Public Function fncGetMaxDate(paraDate1, paraDate2, paraDate3, paraDate4, paraDateLast) '最後にparaDateLastが追加されています。
Dim datDate As Date
Dim datDate1 As Date
Dim datDate2 As Date
Dim datDateLast as Date '2007/12/2 追加

datDateLast = Nz(paraDateLast,0)
datDate1 = Nz(paraDate1, 0)
datDate2 = Nz(paraDate2, 0)

If datDate1 >= datDate2 Then
datDate = datDate1
Else
datDate = datDate2
End If

datDate1 = Nz(paraDate3, 0)
datDate2 = Nz(paraDate4, 0)

If datDate1 > datDate Then
datDate = datDate1
End If
If datDate2 > datDate Then
datDate = datDate2
End If

'2007/12/2 追加/変更--ここから
If datDate > datDateLast Then
fncGetMaxDate = datDate
Else
fncGetMaxDate = datDateLast
End If
'2007/12/2 追加/変更--ここまで

End Function

noname#79209 · Answer

> クエリ式'fncGetMAxDate([テーブル名]![対応日１],[テーブル名]![対応日２]>[テーブル名]![対応日３],[テーブル名]![対応日４],[テーブル名]![最終対応日])
の
[テーブル名]![対応日２]>[テーブル名]![対応日３],
に
「>」が入っています。
多分「,」を入れようとしてミスタイプしたのでしょう。
従って、パラメータの数が少なく認識されてしまっています。
クエリの「>」を「,」に直して下さい。

noname#79209 · Answer

#4への補足に対する回答です。
#4を書いている最中に、ご質問の内容も頭によぎったのですが、
却って混乱させてしまうかと思い、敢えて書きませんでした。

解決策は、
クエリの「条件抽出」欄に「Is Null OR 0」とすればOKでしょう。

あとは、ユーザー定義関数側で対応する方法もありますが、とりあえず上記の方法で試してみて下さい。
なお、何かの原因で最終応対日に中途半端なデータが入る恐れもあるので、
それに対応するにも関数側での対応になるでしょう。

noname#79209 · Answer

> 最終対応日にデータがある場合の記述
これこそ、クエリの「抽出条件」欄を使います。
最終対応日に何も入っていないレコードだけに更新をかけたいわけですから、
「抽出条件」欄に
「Is Null」
と入れます。

noname#79209 · Answer

> 抽出条件に、
> datDate=fncGetMaxDate(対応日１,対応日２,対応日３,対応日４)
> と入力して
「抽出条件」欄ではありません。
その更新クエリをデザインモードで開き、
1.「フィールド」欄に「最終対応日」フィールドをセット
2.その列の「レコードの更新」欄に
fncGetMaxDate([テーブル名]![対応日１],[テーブル名]![対応日２],>[テーブル名]![対応日３],[テーブル名]![対応日４])
として下さい。
「テーブル名」は、更新したいテーブルの名前に読み替えて下さい。
「対応日１」等はテーブルのフィールド名を入れて下さい。
当然、「抽出条件」欄はクリア
お解りとは思いますが、スペースを入れて消したつもりになっている人もいますが、
必ずバックスペースキーやDELキーでクリアして下さいね。

> コンパイルエラーがでる
これは、多分、
> 標準モジュールに新規に”fncGetMaxDate"という名前で作成して、
> 右側のコード欄に教えていただいた記述を一字一句いじらずにコピーしました。
と言われているので、
1.「標準モジュールに新規に」は左側でその名前(fncGetMaxDate)にしていませんか？
　（まあ、その名前のモジュール名でも構わないのですが．．．）
　（モジュール名はmdlGetMaxDateなどと、頭にmdlをつけるのが一般的です）
　（頭につけているfncは関数=Function意味で、「これは関数だよ」と一目で分かるようにつけています。）
2.「一字一句いじらずにコピー」ということは、
　Public Function fncGetMaxDate(paraDate1, paraDate2, paraDate3, paraDate4)
　や、一番下の、
　End Function
　が、それぞれ2行になっていませんか？

失礼ながら、データベースやVBAの基本を余り理解されておられないようなので、説明が難しいですね。
また、日本語自体が、物を説明するのには、非常に不得手な言語なのでなおさらです。

でも、最初は皆初心者なので、少しずつで解ってくるので心配なさらないように．．．

noname#79209 · Answer

> このプロシージャを、フォーム上に貼り付けてボタンを押すことで
　実行させたいのですが、プロシージャに記述すればいいのでしょうか？
先の回答で示したのは、ユーザー定義関数です。
Public関数として定義しているので、どのフォーム、レポート、クエリからでも使えます。
「ユーザー定義関数」を作っておけば、通常の関数と同様に使えます。
Publicタイプのユーザー定義関数は「標準モジュール」を新規作成し、そこに先のコード（関数）を入れます。
ご質問の様子では、更新クエリをお使いになるようだったので、
更新クエリの「最終対応日」フィールドの更新データとして使用します。

もちろんフォームでも使えますが、フォームのコマンドボタンのプロシージャには入れません（入れてはいけません）。

> fncGetMaxDateという関数で定義する、paraDate1, paraDate2・・・は
　テーブルの名称の名称に合わせればいいのですよね？
違います。
このまま、一字一句いじらずに、「標準モジュール」に置いて下さい。
「テーブルの名称の名称に合わせれば」と言われているのは、例えば、
エクセルで用意されて関数の中身（マイクロソフトで作った中身のこと）をいじってしまうことと同じです。
使うときは、
日付型変数名=fncGetMaxDate(Me.対応日1,Me.対応日2,Me.対応日3,Me.対応日4)
といった具合に使います。

なお、フィールド名やコントロール名に括弧を「対応日（1)」などと「()」を使うのは、避けた方がよいです。
プログラムでは「()」を使うことが多いので、誤動作の元になります。

noname#79209 · Answer

未入力もあるようなので、
ユーザー定関数をつくって（fncGetMaxDate）とします。

Public Function fncGetMaxDate(paraDate1, paraDate2, paraDate3, paraDate4)
Dim datDate As Date
Dim datDate1 As Date
Dim datDate2 As Date

datDate1 = Nz(paraDate1, 0)
datDate2 = Nz(paraDate2, 0)

If datDate1 >= datDate2 Then
    datDate = datDate1
Else
    datDate = datDate2
End If

datDate1 = Nz(paraDate3, 0)
datDate2 = Nz(paraDate4, 0)

If datDate1 > datDate Then
    datDate = datDate1
End If
If datDate2 > datDate Then
    datDate = datDate2
End If

fncGetMaxDate = datDate

End Function

で最新日が算出できるのでは？

複数フィールドからの最新抽出（ACCESS)

直してみました。

> クエリ式'fncGetMAxDate([テーブル名]![対応日１],[テーブル名]![対応日２]>[テーブル名]![対応日３],[テーブル名]![対応日４],[テーブル名]![最終対応日])

#4への補足に対する回答です。

> 最終対応日にデータがある場合の記述

この回答への補足

> 抽出条件に、

> このプロシージャを、フォーム上に貼り付けてボタンを押すことで

未入力もあるようなので、

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング