共同學(xué)習(xí)共同進步
我是個access的初學(xué)者，學(xué)習(xí)過程中遇到的問題相信大家有過類似的經(jīng)歷，現(xiàn)在我把我學(xué)習(xí)中感覺常用的東西和大家一起分享，可能不很好資料但是我想會給需要的朋友節(jié)省不少時間，希望能對你有幫助！
這一行代碼是通用聲明在vba窗體里是第一行，打開就有
Option Compare Database
A:
打開窗體最大化法1：
在vba代碼的面聲明下面輸入以下代碼即可：
Private Sub Form_Load() ：打開窗體就有Form_Load代碼，是聲明打開窗體，然后下面的代碼是要執(zhí)行的代碼
DoCmd.Maximize ：窗口最大化
End Sub
打開窗體彈出及最大化法2
Private Sub Form_Load()
MsgBox "歡迎使用本軟件！"
DoCmd.Maximize
End Sub
Private Sub Form_Load()
MsgBox "歡迎使用本軟件！"
End Sub
打開窗體最大化法3：
在窗體的屬性 事件 激活 在激活欄處輸入：=DoCmd.Maximize，就行了
B:
注意：主窗體開頭用的是DOCMD 打開子窗體開頭用的是ME.
用命令按鈕打開主窗體或子窗體代碼：
方法一：
Private Sub Image0_Click() 打開 窗體
DoCmd.OpenForm "窗體1"
End Sub
方法二：
Private Sub Image0_Click() 退出當(dāng)前窗體打開 新窗體
DoCmd.Close
DoCmd.OpenForm "窗體1"
End Sub
方法四：
Private Sub 退出窗體_Click()
DoCmd.Close
DoCmd.OpenForm "注冊界面"
MsgBox "確定退出？", vbYesNo
End Sub
方法五：
Private Sub Command3_Click() .點擊查找按鈕就打開 子窗體
Me.子窗體.Requery
End Sub
方法六：
Private Sub Command4_Click() '查找文本框空白就打開 子窗體
Me.[Text1] = ""
Me.子窗體.Requery
End Sub
C:
退出當(dāng)前窗體代碼
Private Sub 退出窗體_Click()
DoCmd.Close
End Sub
D:
退出系統(tǒng)代碼：
Private Sub 退出_Click() '退出代碼
DoCmd.Quit acQuitPrompt
End Sub
E：
彈出帶標(biāo)題的歡迎窗口：
Private Sub Form_Load() 這行代碼是表示打開窗口
MsgBox "歡迎使用本軟件！", vbOKCancel, "上海邁實驗設(shè)備！" 這行代碼是彈出顯示的內(nèi)容和彈出窗體的標(biāo)題
End Sub
F:
彈出帶 “問號” 和 “是否” 兩個按鈕的彈出窗口
MsgBox("你真的要退出社會撫養(yǎng)費征收管理系統(tǒng)嗎？", vbQuestion + vbYesNo + vbDefaultButton2, "提醒您！") = vbYes Then
G:
彈出帶黃色感嘆號的彈出窗口
MsgBox "注意，您忘了輸入密碼！", vbExclamation + vbOKOnly, "提醒您！"
