Access VBA質問箱 IV

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

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


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

7346 / 9994

←次へ　｜　前へ→


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

安久 - 05/8/11(木) 18:08 -


	引用なし

	パスワード

今は、ka検査クエリとka検査クエリ2を作っています。
そして、フォームの中のリストボックスは非連結で値集合ソースに　
　SELECT ka検査.検査日,ka検査.検査名,ka検査.検査結果,ka検査.単位 FROM ka検査　ORDER BY ka検査.検査日　DESC; というふうにしています。
　もうひとつのＦｏｒｍにはカルテＮｏだけを一致させるようにつくっています。

ka検査クエリのSQLビューには
　SELECT kek.saiday AS 検査日,kiukeno AS 受付番号,k.code AS カルテNO,k.kjnam AS 患者氏名,km.kensacode AS 検査コード,km.kensaname AS 検査名,kek.kekka AS 検査結果,km.unit AS 単位
　FROM dbo_kenmasf AS km,dbo_kenkekdt AS kek,dbo_kanmf AS k,dbo_kenirahd AS ki
WHERE AND ((ki.ukeno)=[kek].[ukeno])AND((k.code)=[Forms]![患者名]![カルテＮｏ]AND (ki.kancd)=[k].[code] And (ki.ukeymd)<`90000000`) AND ((kek.kekcode)=[km].[kensacode])AND((ki.ukeymd)=[kek].[ukeymd]))
ORDER BY kek.saiday,ki.kancd;

ka検査クエリ2のSQLビューには
　SELECT kek.saiday AS 検査日,kiukeno AS 受付番号,k.code AS カルテNO,k.kjnam AS 患者氏名,km.kensacode AS 検査コード,km.kensaname AS 検査名,kek.kekka AS 検査結果,km.unit AS 単位
　FROM dbo_kenmasf AS km,dbo_kenkekdt AS kek,dbo_kanmf AS k,dbo_kenirahd AS ki
WHERE((kek.saiday)=[Forms]![2]![テキスト2]AND ((ki.ukeno)=[kek].[ukeno])AND((k.code)=[Forms]![患者名]![カルテNo]AND ((ki.kancd)=[k].[code] And (ki.kancd)<'90000000') AND ((kek.kekcode)=[km].[kensacode]) AND ((ki.ukeymd)=[kek].[ukeymd]))
ORDER BY kek.saiday,ki.kancd;

としています。先に教えてもらったコードはどこに入力すればいいのか教えて下さい。

後、
>SELECT P.検査日, P.検査名, Ka検査.検査結果, Ka検査.単位
>FROM [
>SELECT Max(Ka検査.検査日) AS 検査日, Ka検査.検査名
>FROM Ka検査
>GROUP BY Ka検査.検査名
このコードのFROM[ の所と
2個目のSELECTがわかりません。
　お願いします。

831 hits

▼

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