Access VBA質問箱 IV

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

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


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

8853 / 9994

←次へ　｜　前へ→


	【4296】Re:フォームでの日付入力

たなか - 05/1/29(土) 17:47 -


	引用なし

	パスワード

Gin_II さんありがとうございます。
ご教授いただいた下記で行ってみました。
おかげさまで、txthd日付に日付が入力されてれば、その日付
入力がなければ、17時前は当日、17時以降は翌日の月日がチェックBOX
にチェックを入れることにより表示できるようになりました。

それで1つまた教えてください、チェックBOXのチェックを外すと
txthd日付に入力がない場合テキストの日付も消えてくれるのですが
txthd日付に日付が入力されている場合、チェックBOXのチェックを外しても
チェックBOXはoffになりますがテキストの日付は残ったままになってしまいます。
チェックBOXがoffの時日付も消したいのですが・・・
よろしくお願いいたします。

>フォームヘッダのテキストボックス：txthd日付
>として、
>
>If IsNull(Me!txthd日付) Then
>　　If Me!ch1 Then
>　　　　If Hour(Now()) >= 17 Then
>　　　　　　Me!TEXT1 = DateAdd("d",1,Date())
>　　　　Else
>　　　　　　Me!TEXT1 = Date()
>　　　　End If
>　　Else
>　　　　Me!TEXT1 = Null
>　　End If
>Else
>　　Me!TEXT1 = txthd日付
>End If
>
>ではどうでしょうか？

273 hits

▼

【4293】フォームでの日付入力 たなか 05/1/29(土) 2:10