ＡＣＣＥＳＳ２００３でクエリの質問です

質問

クエリを教えて下さい。

ＡＣＣＥＳＳ２００３でクエリを作成したいのですが
テーブルに以下のようにデータが入っています。

ID　　　日付　　　項目あ　項目い　項目う　項目え　項目お
001　2009/08/27　　Ａ　　　　　　　　　Ｂ　　　　Ｃ
001　2008/08/27　　Ｄ　　　　Ｅ　　　　　　　　　Ｆ　　　　Ｇ
002　2009/08/27　　　　　　　Ｈ　　　　　　　　　Ｉ
002　2008/08/27　　Ｋ　　　　Ｌ　　　　　　　　　Ｍ
002　2007/08/27　　Ｋ　　　　Ｌ　　　　Ｏ　　　　Ｍ

同一IDで日付の新しいレコードを抽出するのですが、
もしＮＵＬＬの項目があれば、日付の古いレコードから編集したいです。

結果としては以下のようなテーブルを作成したいです。
[002]の[項目お]の様に過去日付のものがＮＵＬＬであれば編集はしません。

ID　　　日付　　　項目あ　項目い　項目う　項目え　項目お
001　2009/08/27　　Ａ　　　　Ｅ　　　　Ｂ　　　　Ｃ　　　　Ｇ
002　2009/08/27　　Ｋ　　　　Ｈ　　　　Ｏ　　　　Ｉ

また以下のように過去日付のデータが異なる場合は
事前のチェックでエラーとして別テーブルに出すように考えていますが、
こちらも合わせて教えていただけると助かります。

ID　　　日付　　　項目あ　項目い　項目う　項目え　項目お
003　2009/08/27　　Ｎ　　　　Ｏ　　　　Ｐ　　　　　　　　　Ｑ
003　2009/08/27　　Ｎ　　　　Ｏ　　　　Ｐ　　　　Ｒ　　　　Ｑ
003　2009/08/27　　Ｎ　　　　Ｏ　　　　Ｐ　　　　Ｓ　　　　Ｑ

ＳＱＬが苦手で困っています。
宜しくお願いします。

回答No.1

noname#192382

エクセルではこの種の問題は楽と考えやってみました。このデータをエクセルにエクスポートし、データのないところには「ZZZ」を入れると、次のマクロで実行できました。計算結果は表の右側に出てきます。期日が同じときはdoubleddateのエラーメッセージが出てきます。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/8/27 ユーザー名 :
'
Dim myid1 As String, myid2 As String, mydate1 As Date, mydate2 As Date, aa As String, bb As String, cc As String, dd As String, ee As String, mygyo As Integer, mygyo2 As Integer, myarray(8) As String, myclm As Integer, mymyclm As Integer, hajimegyo As Integer, zzz As String, mygyo3 As Integer, myid3 As Integer, mydate3 As String
For mygyo = 2 To 9
myid1 = Cells(mygyo, 1)
mydate1 = Cells(mygyo, 2)
mygyo2 = mygyo + 1
myid2 = Cells(mygyo2, 1)
mydate2 = Cells(mygyo2, 2)
'IDが同じか調査
If myid2 = myid1 Then
hajimegyo = mygyo
' MsgBox (myid2)
'期日が同じか調査
If mydate2 = mydate1 Then
'期日が同じ
MsgBox ("date doubled")
MsgBox (mydate2)

Else
'期日が同じでない
For myclm = 3 To 7
'データがZZZか調査
'MsgBox (Cells(mygyo, myclm))
If Cells(mygyo, myclm) = "zzz" Then
'データがZZZである
myarray(myclm) = Cells(mygyo2, myclm)
'MsgBox (mygyo2)
Else
myarray(myclm) = Cells(mygyo, myclm)
End If
Next
For myclm = 3 To 7
mymyclm = myclm + 7
Cells(mygyo, mymyclm) = myarray(myclm)
Next
End If
Else
End If
'次のIDが同じか調査
mygyo3 = mygyo + 2
myid3 = Cells(mygyo3, 1)
'MsgBox (mygyo3)
mydate3 = Cells(mygyo3, 2)
If myid3 = myid1 Then

'期日が同じか調査
If mydate3 = mydate1 Then
'期日が同じ
MsgBox ("date doubled")
MsgBox (mydate3)
Else
'期日が同じでない
For myclm = 3 To 7
'データがZZZか調査
mymyclm = myclm + 7
'MsgBox (Cells(mygyo, mymyclm))
If Cells(mygyo, mymyclm) = "zzz" Then
'データがZZZである
myarray(myclm) = Cells(mygyo3, myclm)
'MsgBox (mygyo3)
Else
myarray(myclm) = Cells(mygyo, mymyclm)
End If
Next
For myclm = 3 To 7
mymyclm = myclm + 7
Cells(mygyo, mymyclm) = myarray(myclm)
Next
End If
End If

'MsgBox (myid1)
Next
'
End Sub

お礼

ありがとうございます。
そうですね、エクセルで事前に処理するといった考えでも良いですね。
参考にさせていただきます。