Access VBA質問箱 IV

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

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


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

7448 / 9994

←次へ　｜　前へ→


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

安久 - 05/8/3(水) 12:40 -


	引用なし

	パスワード

お返事ありがとうございました。
>
>クエリに「検査日」があります。
今、
>Private Sub データ入力1　Click()
If　MsgBOX("追加","vbOKCancel + vbDefaultButton1)=vbOK Then
DoCmd.Hourglass True
>Dim a As Date
If Dlloup("[検査日]", "Ka検査ｑ", "[検査コード]='010092'")=NotNull Then
>　　a = DMax("[検査日]", "Ka検査ｑ", "[検査コード]='010092'")
>　　Forms!患者名!TG = DLookup("[検査結果]", "Ka検査ｑ", "[検査コード]='010092' " _& "AND [検査日]=#" & a & "#")
End If
Dim b As Date
If Dlloup("[検査日]", "Ka検査ｑ", "[検査コード]='020010'")=NotNull Then
>　　a = DMax("[検査日]", "Ka検査ｑ", "[検査コード]='020010'")
>　　Forms!患者名!WBC = DLookup("[検査結果]", "Ka検査ｑ", "[検査コード]='020010' " _& "AND [検査日]=#" & b & "#")
End If
後、これと同じようなやつが20個ぐらいあります。

DoCmd.Hourglass False
End If
>End Sub
>というふうに変えました。
　（お返事いただいたやつでしたらa = DMax("[日付]", "Ka検査ｑ", "[検査コード]='010092'")　ここで　データがなかったらNullになりいかなかったので変えてみました。）
しかし、エラーはでないのですが凄く重くてデータの移動を確認できません。
　（30分ぐらいしても無理でした）
これでできるか教えて下さい。
また、何か別の方法があるのでしたら教えて下さい。
お願いします。

813 hits

▼

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