TOP > Up > Today

Re: 「Access2003」の「イベントプロシージヤ」


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 = &quot;時刻&quot;
            .Caption = &quot;00000000&quot;
            .FontSize = 127
            .SizeToFit
        End With
'*****************************************************
'   フオームにイベントを組み込む
    Set myModule = myfrm.Module
    myModule.InsertText &quot;Private Sub Form_Timer()&quot; &amp; vbCrLf &amp; _
        &quot;時刻.Caption = Time&quot; &amp; vbCrLf &amp; &quot;End Sub&quot;
'*****************************************************
'   フオームを開く
    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 = &quot;=myff()&quot;
            .TimerInterval = 1000
        End With
'*****************************************************
'   表示枠を描く(時刻表示)
    Set ctlLabel = CreateControl(myfrm.Name, acLabel)
        With ctlLabel
            .Name = &quot;時刻&quot;
            .Caption = &quot;00000000&quot;
            .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 = &quot;時刻&quot; Then Set pHour = myctl
    Next
End Sub
Function myff()
    pHour.Caption = Time
End Function
--
== 掲示板URL: http://pasokoma.jp/ ==
   配信の停止: http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
    


TOP > Up > Today