ＷＥＢで希望を実現できる記述を見つけられませんでしたので、ご指導を宜しくお願いします。
［現状の設定］
フォーム「名前：マスター」上のテキスト窓「名前：時計」を配置してコントロールソースに「=Time()」を書き込んであります。
［感じている不具合］
フォームを開いた瞬間はＰＣ時刻になっていますが、その後は時刻が止まったままになります。
［実施した事］
ＷＥＢで下記の記述の紹介がありましたので、そのまま流用しそのまま貼り付けましたが、アクティブ「止まったまま」にはなりませんでした。
、「アクティブ時」
Private Sub Form_Activate()
Me.TimerInterval = 1000
Me.Caption = Time
Me.時計.Caption = Time
End Sub
、「非アクティブ時」
Private Sub Form_Deactivate()
Me.TimerInterval = 0
End Sub
［実現したい希望］
テキストボックス窓の時刻表示をアクティブにし、使用しているパソコンの時計時刻と同じにしたい。
以上ですが、アドバイスをお願いします。
お世話になります。ご報告です。「ＷＥＢでやっと見つけました」
「フォーム（名前：マスター）」に配置した「テキスト窓（名前：時刻、レコードソース（=Time()」に対して、下記の記述でリアルタイムで時刻が表示されました。実際のところ、タイマ間隔の設定「デフォルト0のまま」をしていなかったのが今回の質問に繋がってしまいました。すいません。
１，マスター（フォーム）のプロパティー ⇒ イベントタブ ⇒ タイマ時（イベント名）
Private Sub Form_Timer()
Me.時刻「=Time()設定のテキストボックス名」.Requery
End Sub
２，イベントタブ ⇒ タイマ間隔（イベント名）
一応、ＷＥＢに紹介されていた「1000（デフォルト値0）」と設定しました。
以上ですが、ヒントを頂きましたので貴方をベストアンサーにいたしました。有難うございます。
質問者
補足
ご報告します。以下の記述が記載されていましたが。
私のケース「フォーム（名前：マスター）上のテキスト窓（名前：時計）を配置してコントロールソースに（=Time()）を書き込んだだけで、閲覧用のみの使用です。」では、どの様なＶＢＡ記述になるのでしょうか。
ちなみに「マスター（フォーム）」の読み込み時イベントにカレンダーコントロールのＶＢＡが書き込まれていますので、その直下に（Sub Form_Load() Me.TimerInterval = 1000 End Sub）をコピーしてみましたがエラ―になりました。※ちなみに、同じ名前のイベントに２つのＶＢＡを書込（コピペ）んだ経験（可能か否かも知らないスキル）はありませんでした。
Sub Form_Load()
Me.TimerInterval = 1000
End Sub
Sub Form_Timer()
Static intShowPicture As Integer
If intShowPicture Then
' アイコンを表示します。
Me!btnPicture.Picture = "C:\Icons\Flash.ico"
Else
' アイコンを非表示にします。
Me!btnPicture.Picture = ""
End If
intShowPicture = Not intShowPicture
End Sub
私のケースでのＶＢＡの記述をアドバイス願えませんでしょうか。
お礼
お世話になります。ご報告です。「ＷＥＢでやっと見つけました」 「フォーム（名前：マスター）」に配置した「テキスト窓（名前：時刻、レコードソース（=Time()」に対して、下記の記述でリアルタイムで時刻が表示されました。実際のところ、タイマ間隔の設定「デフォルト0のまま」をしていなかったのが今回の質問に繋がってしまいました。すいません。 １，マスター（フォーム）のプロパティー ⇒ イベントタブ ⇒ タイマ時（イベント名） Private Sub Form_Timer() Me.時刻「=Time()設定のテキストボックス名」.Requery End Sub ２，イベントタブ ⇒ タイマ間隔（イベント名） 一応、ＷＥＢに紹介されていた「1000（デフォルト値0）」と設定しました。 以上ですが、ヒントを頂きましたので貴方をベストアンサーにいたしました。有難うございます。
補足
ご報告します。以下の記述が記載されていましたが。 私のケース「フォーム（名前：マスター）上のテキスト窓（名前：時計）を配置してコントロールソースに（=Time()）を書き込んだだけで、閲覧用のみの使用です。」では、どの様なＶＢＡ記述になるのでしょうか。 ちなみに「マスター（フォーム）」の読み込み時イベントにカレンダーコントロールのＶＢＡが書き込まれていますので、その直下に（Sub Form_Load() Me.TimerInterval = 1000 End Sub）をコピーしてみましたがエラ―になりました。※ちなみに、同じ名前のイベントに２つのＶＢＡを書込（コピペ）んだ経験（可能か否かも知らないスキル）はありませんでした。 Sub Form_Load() Me.TimerInterval = 1000 End Sub Sub Form_Timer() Static intShowPicture As Integer If intShowPicture Then ' アイコンを表示します。 Me!btnPicture.Picture = "C:\Icons\Flash.ico" Else ' アイコンを非表示にします。 Me!btnPicture.Picture = "" End If intShowPicture = Not intShowPicture End Sub 私のケースでのＶＢＡの記述をアドバイス願えませんでしょうか。