Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7474 / 9994

←次へ　｜　前へ→


	【5710】Re:最終項目の最後の移動

小僧 - 05/8/1(月) 10:33 -


	引用なし

	パスワード

▼安久さん：
こんにちは。

元のテーブルに「日付」フィールドがあるとすると、

1) クエリを作成して（Ka検査ｑという名前が既にクエリのようですが）、
　日付で降順にソートする。

2) DMax関数を使って最大日付を求めてからDLookup関数を使う。

2) の方法ですと、

Private Sub Test()
Dim MyDate As Date
　　MyDate = DMax("[日付]", "Ka検査ｑ", "[検査コード]='010092'")
　　Forms!患者名!TG = DLookup("[検査結果]", "Ka検査ｑ", "[検査コード]='010092' " _
　　　　　　　　　　& "AND [日付]=#" & MyDate & "#")
End Sub

「日付」に該当するフィールドが無い場合は厳しいと思われます。

810 hits

▼

【5707】最終項目の最後の移動 安久 05/7/30(土) 16:19