|
▼ichinose さん:
こんばんは。ご回答ありがとうございます。
早速、ご指摘どおり試してみましたが、やっぱり変わりせん。そこで他の
記述内容もチェックしていたのですが、下記のところが少しおかしいかなと
思いましたので、その内容を見ていただけますか。
カレンダーより4つのテキストボックスに日付を入力していますが、その方法は
各チェックボックスに連動したオプションボタンを4つ配置して、そのボタンを押したところのチェックボックスに日付を入力できるようにしています。
そのプログラムは下記の通りです。なにか足りない記述があるのかも知れません。
Private Sub 入力フォーム_Initialize()
Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
If (OptionButton10.Value = True) Then
TextBox4.Value = Format(Calendar1.Value, "yyyy/m/d")
ElseIf (OptionButton11.Value = True) Then
TextBox5.Value = Format(Calendar1.Value, "yyyy/m/d")
ElseIf (OptionButton12.Value = True) Then
TextBox6.Value = Format(Calendar1.Value, "yyyy/m/d")
ElseIf (OptionButton13.Value = True) Then
TextBox7.Value = Format(Calendar1.Value, "yyyy/m/d")
Else
End If
End Sub
一度チェックをしていただけますか。よろしくお願いいたします。
|
|