Private Sub txt印刷日_AfterUpdate()
'テキストボックスの更新後にカレンダーの値も変更したいので
If IsDate(Me!txt印刷日) Then '日付と認識できる？
Me!OLE_Calendar.Value = Me!txt印刷日
Else
MsgBox "日付として認識できませんよ・・・"
End If
End Sub
口直しのデザートじゃないけど、
カレンダーコントロールってコントロールなので、
フォームに配置します。
わけわかんないけど、それでいいんじゃないの？
ですよね、言い方が悪かった。
えっと、画面上に表示したくない（日付のボタンが押されたら選択画面を起動）
開始日、終了日など複数のテキストボックスで選択を使いたい
なんて用途があると勝手に思い込んで、
カレンダー選択フォームを作ってみます。
オレは使わないけど、勝手に作るなら作ったら？
冷たいなぁみんな（笑）
チョット前、ダイアログフォームを使用して、
INPUT BOX もどきを作成しました。
No.91 Access ダイアログフォームって？何？ acDialogとPublic変数を使用
http://www.ken3.org/backno/backno_vba19.html#91
↑そのまんまなんだけど、ただ、カレンダーコントロールを使っただけ(笑)
関数仕様 Function INPUT_HIZUKE_Form() As String
カレンダーコントロール付きのフォームを表示して、日付を選択させる。
選択されたらCDateで変換した日付文字列を返す。
キャンセルだったら""の空文字列を返します。
Option Compare Database
Option Explicit
Public INPUT_HIZUKE_RET As String 'グローバルにリターン値受取り用
Function INPUT_HIZUKE_Form() As String
Dim stDocName As String
Dim stLinkCriteria As String
INPUT_HIZUKE_RET = "" 'リターン値を初期化
'ダイアログモードでフォームを開く
stDocName = "日付選択"
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
'リターン値をセットして、関数を終わる
'フォーム側でpublic変数にセットされていることを信じて（笑）
INPUT_HIZUKE_Form = INPUT_HIZUKE_RET
End Function
Private Sub btn開始_Click()
Dim strWORK As String
strWORK = INPUT_HIZUKE_Form() '日付の入力フォームを起動
If strWORK <> "" Then '入力されていたら
Me!txt開始日 = strWORK 'フォームのリターン値をセット
End If
End Sub
Private Sub btn終了_Click()
Dim strWORK As String
strWORK = INPUT_HIZUKE_Form() '日付の入力フォームを起動
If strWORK <> "" Then '入力されていたら
Me!txt終了日 = strWORK 'フォームのリターン値をセット
End If
End Sub
って感じで、
strWORK = INPUT_HIZUKE_Form() '日付の入力フォームを起動
で日付選択フォームを起動、
リターン値を判断して選択されていたら自分のテキストボックスに代入
If strWORK <> "" Then '入力されていたら
Me!txt終了日 = strWORK 'フォームのリターン値をセット
End If
と、
共通に使うことが出来ます。
日付の入力処理の隠し味として、使えそうなら使ってみてください。
)
おっ、それらしいのが表示されましたね。
プロパティを見ると、
イベントもあるし、いろいろと操作できそうですね。
おっ、それらしいのが表示されましたね。
プロパティを見ると、
イベントもあるし、いろいろと操作できそうですね。
~~~~~~~~
なんて、言ってました。
一番簡単な利用方法は、
印刷指示画面なんて画面があった時、
日付の入力・表示エリアを作成 [txt印刷日]と名前を付けました、
カレンダーコントロールを配置 [OLE_Calendar]と名前付け
その後、
[OLE_Calendar](カレンダーコントロール)
の
イベントで、
me!txt印刷日 = me!OLE_Calendar.Value
と、入力用のテキストボックスへデータを代入でＯＫだろう
※考えが、甘かったんだけど（笑）
参照
VBAの編集画面では、いつものイベント群が選択できた。
参照
これで、カレンダーコントロールをクリック後、
テキストボックスに無事代入できた。
今度は、テキストボックスの値を直接入力して変えた時、
上のカレンダーも変わらないとなんかねぇと思いますよね。
これは、いつものように、
イベントは、決定・中止の各ボタンが押されたら、
リターン値をPublic変数にセットして、フォームを閉じます
)
テストで、Access2002で、今回のdb97-095.mdbを開いてみます。
※変換してみます。
あれ、、、そのまま変換できた・・・動いてるよ・・・
予定では、変換エラーの説明をするつもりが・・・逆になぜ?って感じだけど。
カレンダーコントロール８．０
から
カレンダーコントロール１０．０
はなんとか、無事でした。
でも、９７で動作したコントロールが動作しない、
新しいのに変更するなど、移植問題で苦労されている話をよく聞きます。
そういった意味でも、特殊なコントロールを使用するときは、
将来のバージョンアップを含め、注意が必要です。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba095.lzh
にdb97-095.mdb(Access97版)が保存されています。
Access2000,Access2002をお持ちの人は、
変換して動作させてみてください、動くかなぁ・・・