資源描述：
《ACCESS-VBA編程.doc》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、ACSSESS-VBAACCESS-VBA編程第一章控件1常量控件acBoundObjectFrame綁定對象框acCheckBox復選框acComboBox組合框acCommandButton命令按鈕acCustomControlActiveX（自定義）控件acImage圖像acLabel標簽acLine線條acListBox列表框acObjectFrame未綁定對象框或圖表acOptionButton選項按鈕acOptionGroup選項組acPage頁acPageBreak分頁符acRectangle矩形acSubform子窗體/子報表acTabCtl選項卡acTextBox
2、文本框acToggleButton切換按鈕在VB中對窗體控件的引用鍵入包含控件的窗體或報表的標識符，后面緊接!運算符和控件的名稱。例如，下列標識符將引用“訂單”窗體上“訂單ID”控件值：Forms![訂單]![訂單ID]引用子窗體或子報表上的控件，不必使用“窗體”或“報表”屬性為窗體或報表指定完整的標識符。例如，可以使用下列標識符來引用“訂單”子窗體上的“數量”控件：Forms![訂單]![訂單子窗體]![數量]判斷窗體或報表中控件的數目，然后將該數目賦給一個變量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerint
3、FormControls=Forms!Employees.CountintReportControls=Reports!FreightCharges.Count設置控件可見性Dimi,iiAsIntegerForii=3To10Me.Controls.Item(ii).Visible=TrueNextFori=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在VBA中設置控件的可見性：Fori=27To87-87ACSSESS-VBA47IfMe.Controls.Item(i).NameLike"A*"ThenMe.Controls.
4、Item(i).Visible=FalseEndIfNext指定一個控件能否接受焦點Enabled屬性：me.控件.Enabled=true'能=false'不能指定一個控件能否被編輯：locked如：me.控件.Locked=trueme.控件.Locked=false設置控件標題顯示的文字Me.控件.Caption="顯示窗體"設置標簽顏色：Me.LabelColor=200獲得焦點及失去焦點時字段變更顏色。如果你的控件是文本框，名稱為“txt字段”，寫如下代碼：PrivateSubtxt字段_GotFocus()Me.txt字段.BackColor=12632256EndSu
5、b當中“12632256”是灰色，你可以自己選擇希望的顏色，如果想在失去焦點時改為原來的顏色，寫如下代碼：PrivateSubtxt字段_LostFocus()Me.txt字段.BackColor=16777215EndSub使標簽閃爍以引人注意設置窗體的TimerInterval值為1000(1秒).formsOnTimer加入代碼:SubForm_Timer()YourTextLabel.Visible=NotYourTextLabel.VisibleEnd_Sub設置標簽字體顏色：Me.Label1.ForeColor=設置文本框顏色：Me.TextColor=300設置文本
6、框字體顏色：Me.TextFontColor=500標簽等左邊距離：Me.Label2.Left=2200定位控件Me.控件.Top=8290VBA編程Me.控件.Left=87-87ACSSESS-VBA100標簽等字體粗細：Me.Label2.FontWeight=20000控件邊框顏色：Me.Label2.BorderColor=0控件邊框線條BorderStyle屬性使用以下設置：透明0（僅對于標簽、圖表和子報表而言是默認值）透明的實線1（默認值）實線虛線2虛線短虛線3短虛線點線4點線稀疏點線5點距較寬的點線點劃線6虛線與點線組合的點劃線點點劃線7虛線-點線-點線組合的點點
7、劃線雙實線8雙實線指定控件的邊框寬度使用BorderWidth屬性可以指定控件的邊框寬度取值：0或1－6指定控件是否透明使BackStyle屬性可以指定控件是否透明。True、False解除子窗體鎖定Me.進_子窗體.Locked=False'解除子窗體鎖定將窗體上所有控件的輸入法關掉!來源:不祥PrivateSubForm_Open(CancelAsInteger)DimctlAsAccess.ControlForEachctlInMe.ControlsDebug.
