Date: Fri, 28 Jan 2005 10:41:55 +0900
From: no@ann.co.jp
Subject: [pasml 80796] Re: 「Access2003」の「イベントプロシージヤ」
To: pasml@ann.co.jp
Message-Id: <200501280141.j0S1ftm20717@ns.pas2.jp>
X-Mail-Count: 80796
--
お名前 : しん 困りごと掲示板から
URL :
質問URL: http://pasokoma.jp/?num=232898&ope=v
ツリートップ: http://pasokoma.jp/cgi/tree.cgi?num=232898
--
しんさんは No.232424「「Access2003」の「イベントプロシージヤ」」で書きました。
>メーカー名:東芝
>OS名:WindowsXp HomeEdition
>パソコン名:PAEX522PDE3
>ソフト関連:ソフトを組み込んだが動かない
>使用回線:ADSL
>--
>下記は抜粋したものですが、その中で
>
>+++++++++++++++++++++++++++++++++++++
早速の御指導有難うございます。
色々試してみました、結果、基本的には下記のコーテイングで行ってみます。
Sub Clock_4()
Dim myfrm As Form
Dim myModule As Module
Dim myLabel As Control
'*****************************************************
' フオームを描く
Set myfrm = CreateForm
With myfrm
.TimerInterval = 1000
End With
'*****************************************************
' 表示枠を描く(時刻表示)
Set myLabel = CreateControl(myfrm.Name, acLabel)
With myLabel
.Name = "時刻"
.Caption = "00000000"
.FontSize = 127
.SizeToFit
End With
'*****************************************************
' フオームにイベントを組み込む
Set myModule = myfrm.Module
myModule.InsertText "Private Sub Form_Timer()" & vbCrLf & _
"時刻.Caption = Time" & vbCrLf & "End Sub"
'*****************************************************
' フオームを開く
DoCmd.OpenForm myfrm.Name
End Sub
++++++++++++++++++++++++++++++++++++
(1)「pHour」 の部分 を 「時刻」に変更
(2)Me!時刻 は 時刻 だけでも 正常に作動する
こんな事を学びました。
色々有難うございました
+++++++++++++++++++++++++++++++++++
また、下記の方法でも正常に作動しました
Private pmyFrm As Form
Private pHour As Control '時刻表示
Sub Clock_3()
Dim myfrm As Form
Dim ctlLabel As Control
Dim myctl As Control
Dim frmName As String
'*****************************************************
'フオームを描く
Set myfrm = CreateForm
With myfrm
.OnTimer = "=myff()"
.TimerInterval = 1000
End With
'*****************************************************
' 表示枠を描く(時刻表示)
Set ctlLabel = CreateControl(myfrm.Name, acLabel)
With ctlLabel
.Name = "時刻"
.Caption = "00000000"
.FontSize = 127
.SizeToFit
End With
'*****************************************************
' フオームを開く
frmName = myfrm.Name
DoCmd.OpenForm myfrm.Name
DoCmd.Maximize
'*****************************************************
' 開いたFormからフオーム名とコントロール名を得る
Set pmyFrm = Forms(frmName)
For Each myctl In pmyFrm.Controls
If myctl.Name = "時刻" Then Set pHour = myctl
Next
End Sub
Function myff()
pHour.Caption = Time
End Function
--
== 掲示板URL: http://pasokoma.jp/ ==
配信の停止: http://pasokoma.jp/taikai.shtml
本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===