Access VBA質問箱 IV

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

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


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

3522 / 9994

←次へ　｜　前へ→


	【9731】Re:findfirstの使い方

メイ子 - 07/8/3(金) 18:46 -


	引用なし

	パスワード

▼ちょっちネさんご教示ありがとうございます。

>スレタイの通りFindFirstで戻ってるのですから、それを止めれば
>とりあえず、無限ループは回避できるかと。

そうですね、FindFirstだと最初に戻ることになるのですね。

>DlookUpで代用すると良いかと思います。

はい、DlookUpで代用したら、無限ループはなくなりましたが、
　　　　ElseIf DLookup("休日", "休日一覧基本", "休日= #" & _
　　　　　　　 DateSerial(Year(Date) + 1, Month(shukujitsu), _
　　　　　　　 Day(shukujitsu)) + 1 & "#") <> Null Then

5月4日のところで、参照元テーブルに5月5日があるかどうかを検索する形には
なりましたが、5月5日があるはずなのに、nullを返してきます。
どこを直したらよいでしょうか？

>祝祭日データは手入力の方が手っ取り早いかと。

外部ユーザーが全くのパソコン初心者であることを想定してコード作成しております。自分が使う分には手入力で済ませますが・・。

>その場合は、５月３日が日曜日の場合も考えてみると良いかと思います。

そうですね、まだいろいろなパターンがあって複雑なコードになりそうです。

581 hits

▼

【9726】findfirstの使い方 メイ子 07/8/2(木) 12:45