1. <wbr id="m8vu6"></wbr>

      <del id="m8vu6"><center id="m8vu6"><source id="m8vu6"></source></center></del>
        <p id="m8vu6"><sub id="m8vu6"></sub></p>

        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 數據庫 > Access數據庫 >
        • 【Access教程】 VBA變量聲明中Static關鍵字妙用

         

        正 文:

        我們在寫VBA程序的時候都需對變量進行聲明,這是因為ACCESS的默認模式是“顯式聲明”,也就是在新增的模塊最前面加上“Option Explicit”,這一行,也就是要求在使用變量前一定要先聲明,如果你不進行事先聲明,則執行時會出現編譯錯誤。 
             當然我們也可以刪除“Option Explicit”,也就是允許變量不必經過聲明就可以直接在程序使用。我們把這叫“隱式聲明”,這種方式使用時非常方便,但是因為不知何處會突然冒出新的變量,對日后的程序查錯及維護會產生不少困擾.因此我們還是養成"聲明變量"的好習慣。 
             我們在聲明變量的時候必須用到關鍵字,如“Dim”、“Private”、“Public”,使用“Dim”關鍵字就是“Private”,兩 個關鍵字聲明的變量,稱之為局部變量,表示變量只能在同一模塊內使用或是聲明的模塊內使用,“Public”的關鍵字聲明的 變量,稱之為全局變量,則表示變量在整個VBA工程(或是數據庫)中都可以使用。 

             以上所說的這些變量聲明是我們常用的,下面我所要說的是聲明變量“Static”關鍵字。我們把用“Static”關鍵字聲明的變量稱之為靜態變量,之所以稱為靜態變量,是因為其值不會因為程序的結束而消失,即會一直保留其變量,直到程序完全結束后才會消失。

        例程試驗一:如果用“Dim”聲明變量,無論此過程執行多少次,你會發現“mCounter”變量值不會發生變化。

         

        Sub Counter() 
            Dim mCounter as integer 
            mCounter= mCounter+1 
            Msgbox  mCounter 
        End sub 
        例程試驗二:當我們用“Static”關鍵字時,“mCounter”變量值會隨著程序執行次數進行累加。

         

         

        Sub Counter() 
            Static mCounter as integer 
            mCounter= mCounter+1 
            Msgbox  mCounter 
        End sub 
        利用“Static”關鍵字聲明變量的這一特性,我們可以用來實現對數據庫系統登陸次數限制,如三次登陸錯誤則退出系統。 

        例程如下:

         

         

        Static intCounter as integer 
        If  txtPass <> “密碼” then 
            intCounter =intCounter+1 
        Else 
            DoCmd.OpenForm “主窗體” 
        End if 
        
        If  intCounter > 3  then 
            Msgbox "你已三次輸錯密碼,系統將退出!" 
            DoCmd.Quit 
        End if  
        轉自:http://accesshome.5d6d.net/thread-3186-1-1.html

         

         
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看