TOP > Up > Today

「Ａｃｃｅｓｓ２００３」の「イベントプロシージヤ」

Date:  Wed, 26 Jan 2005 13:15:36 +0900
From:  no@ann.co.jp
Subject:  [pasml 80328] 「Ａｃｃｅｓｓ２００３」の「イベントプロシージヤ」
To:  pasml@ann.co.jp
Message-Id:  <200501260415.j0Q4Fa213722@ns.pas2.jp>
X-Mail-Count: 80328

■□ ｈｐ　Ｓｅｒｖｅｒ　Ｏｕｔｌｅｔ　Ｓｈｏｐ-------------------
■■ ｈｐサ―バー旧モデルが驚きのプライス！
すぐにアクセス----＞http://px.a8.net/svt/ejp?a8mat=O4FQW+AJUKQA+7O4+NWJXV
--
お名前   : しん　困りごと掲示板から
URL      : 
質問URL: http://pasokoma.jp/?num=232424&ope=v
ツリートップ: http://pasokoma.jp/cgi/tree.cgi?num=232424
--
メーカー名：東芝 
ＯＳ名：WindowsXp HomeEdition
パソコン名：ＰＡＥＸ５２２ＰＤＥ３
ソフト関連：ソフトを組み込んだが動かない 
使用回線：ADSL 
--
下記は抜粋したものですが、その中で
「'   フオームにイベントを組み込む」この部分を使用しなければ
プログラムは正常に作動します。
しかし
「'フオームを描く」の中の
            .OnTimer = &quot;=my()&quot;
の部分を削除して
先ほどの
「'   フオームにイベントを組み込む」を生かすと正常に作動しません
原因、対処方法をどなたか聞かせて下さい。
お願いいたします。
＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
Option Compare Database
Option Explicit
Private pmyFrm As Form
Private pHour As Control                  '時刻表示
Sub CLOCK()
    Dim myfrm As Form
    Dim myModule As Module
    Dim ctlLabel As Control
    Dim myctl As Control
    Dim frmName As String
    Dim frmEvent As String
'*****************************************************
'フオームを描く
    Set myfrm = CreateForm
        With myfrm
            .OnTimer = &quot;=my()&quot;
            .TimerInterval = 1000
        End With
'*****************************************************
'   表示枠を描く（時刻表示）
    Set ctlLabel = CreateControl(myfrm.Name, acLabel)
        With ctlLabel
            .Name = &quot;時刻&quot;
            .Caption = &quot;00000000&quot;
            .FontSize = 72
            .SizeToFit
        End With
'*****************************************問題の部分ここから******
'   フオームにイベントを組み込む
'frmEvent = &quot;Private Sub Form_Timer()&quot; &amp; vbCrLf &amp; _
&quot;    Me!pHour.Caption = Time&quot; &amp; vbCrLf &amp; _
&quot;End Sub&quot;
'    Set myModule = myfrm.Module
'    myModule.InsertText frmEvent
'    myModule.InsertLines 3, vbTab &amp; &quot;Private pHour As Integer&quot;
'******************************************問題の部分ここまで******
'   フオームを開く
    frmName = myfrm.Name
    DoCmd.OpenForm myfrm.Name
    DoCmd.Maximize
'*****************************************************
'   開いたFormからフオーム名とコントロール名を得る
    Set pmyFrm = Forms(frmName)
    For Each myctl In pmyFrm.Controls
        If myctl.Name = &quot;時刻&quot; Then Set pHour = myctl
    Next
End Sub
＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
Function my()
    pHour.Caption = Time
End Function 
--
== 掲示板ＵＲＬ： http://pasokoma.jp/ ==
   配信の停止： http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today