access学习过程中收集的一些常用的代码，一起分享学习！

                                                                共同学习共同进步

我是个access的初学者，学习过程中遇到的问题相信大家有过类似的经历，现在我把我学习中感觉常用的东西和大家一起分享，可能不很好资料但是我想会给需要的朋友节省不少时间，希望能对你有帮助！

 

 

这一行代码是通用声明在vba窗体里是第一行，打开就有
Option Compare Database

 

 

A:
  
打开窗体最大化法1：

在vba代码的面声明下面输入以下代码即可：

Private Sub Form_Load()    ：打开窗体就有Form_Load代码，是声明打开窗体，然后下面的代码是要执行的代码
    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()                     退出当前窗体打开 新窗体
 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:
退出当前窗体代码
Private Sub 退出窗体_Click()
DoCmd.Close
End Sub

D:
退出系统代码：
Private Sub 退出_Click()    '退出代码
 DoCmd.Quit acQuitPrompt
End Sub

E：
   弹出带标题的欢迎窗口：
Private Sub Form_Load()                                              这行代码是表示打开窗口
MsgBox "欢迎使用本软件！", vbOKCancel, "上海迈实验设备！"        这行代码是弹出显示的内容和弹出窗体的标题
        End Sub

F:
弹出带 “问号” 和 “是否” 两个按钮的弹出窗口
MsgBox("你真的要退出社会抚养费征收管理系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "提醒您！") = vbYes Then

G:
弹出带黄色感叹号的弹出窗口
MsgBox "注意，您忘了输入密码！", vbExclamation + vbOKOnly, "提醒您！"