access_vba編程(使用技巧大全)

1、ACCESSVBA編程1ACCESSACCESS－VBAVBA編程編程.控件：控件：常量常量控件控件acBoundObjectFrame綁定對象框acCheckBox復(fù)選框acComboBox組合框acCommButton命令按鈕acCustomControlActiveX（自定義）控件acImage圖像acLabel標(biāo)簽acLine線條acListBox列表框acObjectFrame未綁定對象框或圖表acOptionButton選項(xiàng)

2、按鈕acOptionGroup選項(xiàng)組acPage頁acPageBreak分頁符acRectangle矩形acSubfm子窗體子報(bào)表acTabCtl選項(xiàng)卡acTextBox文本框acToggleButton切換按鈕在VBVB中對窗體控件的引用中對窗體控件的引用鍵入包含控件的窗體或報(bào)表的標(biāo)識符，后面緊接!運(yùn)算符和控件的名稱。例如，下列標(biāo)識符將引用“訂單”窗體上“訂單ID”控件值：Fms![訂單]![訂單ID]引用子窗體或子報(bào)表上的控件，不必

3、使用“窗體”或“報(bào)表”屬性為窗體或報(bào)表指定完整的標(biāo)識符。例如，可以使用下列標(biāo)識符來引用“訂單”子窗體上的“數(shù)量”控件：Fms![訂單]![訂單子窗體]![數(shù)量]判斷窗體或報(bào)表中控件的數(shù)目，然后將該數(shù)目賦給一個變量。判斷窗體或報(bào)表中控件的數(shù)目，然后將該數(shù)目賦給一個變量。DimintFmControlsAsIntegerDimintReptControlsAsIntegerintFmControls=Fms!Employees.CountC

4、ountintReptControls=Repts!Freightges.CountCount設(shè)置控件可見性設(shè)置控件可見性DimiiiAsIntegerFii=3To10Me.Controls.Item(ii).Visible=TrueNextFi=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在按特殊名在VBAVBA中設(shè)置控件的可見性：中設(shè)置控件的可見性：Fi=27To47IfMe.Co

5、ntrols.Item(i).NameLike“A“ThenMe.Controls.Item(i).Visible=FalseEndIfACCESSVBA編程3設(shè)置控件寬度設(shè)置控件寬度高度高度Me.考生答案.Width=10000Me.考生答案.Height=1000標(biāo)簽等字體粗細(xì)：標(biāo)簽等字體粗細(xì)：Me.Label2.FontWeight=20000控件邊框顏色：控件邊框顏色：Me.Label2.BderCol=0控件邊框線條控件邊框線

6、條BderStyle屬性使用以下設(shè)置：透明0（僅對于標(biāo)簽、圖表和子報(bào)表而言是默認(rèn)值）透明的實(shí)線1（默認(rèn)值）實(shí)線虛線2虛線短虛線3短虛線點(diǎn)線4點(diǎn)線稀疏點(diǎn)線5點(diǎn)距較寬的點(diǎn)線點(diǎn)劃線6虛線與點(diǎn)線組合的點(diǎn)劃線點(diǎn)點(diǎn)劃線7虛線點(diǎn)線點(diǎn)線組合的點(diǎn)點(diǎn)劃線雙實(shí)線8雙實(shí)線指定控件的邊框?qū)挾戎付丶倪吙驅(qū)挾仁褂肂derWidth屬性可以指定控件的邊框?qū)挾热≈担?或1－6指定控件是否透明指定控件是否透明使BackStyle屬性可以指定控件是否透明。True、Fa

7、lse解除子窗體鎖定解除子窗體鎖定Me.進(jìn)_子窗體.Locked=False解除子窗體鎖定將窗體上所有控件的輸入法關(guān)掉將窗體上所有控件的輸入法關(guān)掉!來源:不祥PrivateSubFm_Open(CancelAsInteger)DimctlAsAccess.ControlFEachctlInMe.ControlsDebug.Printctl.Name&ctl.ControlTypeIfctl.ControlType=acTextBoxTh

8、enctl.IMEMode=2EndIfNextEndSub上述代碼控制文本框，你還可以控制其他的，只要copy進(jìn)窗體就可以了列表框的值的引用列表框的值的引用如果是單選的列表框，用me.[列表框名]來引用；如果要引用不是結(jié)合型列的值，可以用me.[列表框名].column(n)（第一列n=0，第二列n=1…）引用多列組合框或列表框中特定的列或列與行的組合引用多列組合框或列表框中特定的列或列與行的組合用0引用第一列，用1引用第二列，依此類

9、推。用0引用第一行，用1引用第二行，依此類推。例如在含有一列客戶ID和一列客戶名稱的列表框中，可以使用如下方式引用第二列、第五行的客戶名稱：Fms!Contacts!Customers.Column(14)可以使用ColumnColumn屬性將組合框或列表框的內(nèi)容指定給另一控件，如文本框。例如，若要將文本框的ControlSource屬性設(shè)為列表框第二列中的值，可以使用以下表達(dá)式：=Fms!Customers!CompanyName.C