| |
初めまして。
今まで使用していたＤＢで一部手直しがあるのですが、方法がうまくいきません
ご教授お願いいたします。
「今までのやり方」（ソースは下記のとおり）
フォームにチェックＢＯＸとテキストＢＯＸはあり、チェックＢＯＸにチェック
を入れると当日の日付が入力されます。
ただしＰＭ5：00を超えてチェックされたものは翌日を入力させます。
[ソース]（マクロをVBAに変換したものです）
＊cb1=チェックBOX名
TEXT1=テキストBOX
Private Sub cb1_Click()
On Error GoTo cb1_Click_Err
If (Forms!一括更新!cb1 = True) Then
Forms!一括更新![TEXT1] = Date
End If
If (Time() >= "17:00:00") Then
Forms!一括更新![TEXT1] = Date + 1
End If
If (Forms!一括更新!cb1 = False) Then
Forms!一括更新![TEXT1] = Null
End If
cb1_Click_Exit:
Exit Sub
cb1_Click_Err:
MsgBox Error$
Resume cb1_Click_Exit
End Sub
上記で今までは動作させていたのですが、上記ではチェックＢＯＸにチェックを
入れたとき当然当日か翌日した入力できませんでした。これが正常動作だったの
ですが例外的に過去日を入力する要求があり、フォームのフォームヘッタに
テキストBOXを作りそのテキストBOXに日付が入力されていればその月日を
[TEXT1]に入力し、そのテキストBOXがnull(何も入力されていなければ）今まで
のように当日、PM5:00以降は翌日を入力させたいのですが、うまく出来ません
ご教授願います。
|
|
たなか
- 05/1/29(土) 2:10 -
