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