四、窗体的设计

建立窗体在Access中，您可以使用多种方法来创建窗体，包括以下几种：创建向导： Access提供了创建窗体向导，可以快速创建一个基本的窗体，根据您选择的表格和字段来生成窗体的设计。使用该方法可以快速创建窗体，但灵活性可能有限。基于表格创建： 您可以基于一个表格来创建一个窗体。在窗体中，将显示与该表格中的每个字段相对应的控件，可以根据需要自定义窗体的设计。基于查询创建： 您还可以基于查询来创建窗体。查询可以根据多个表格中的数据生成结果集，并且可以自定义查询的设计，以便在窗体中显示所需的数据。窗体设计器： 如果您需要更大的灵活性和控制权，则可以使用窗体设计器创建窗体。在窗体设计器中，您可以添加控件、排列布局、应用格式和样式，并自定义窗体的交互逻辑。

无论您选择哪种方法，都可以使用Access创建自定义窗体以满足您的需求。最终选择哪种方法取决于您的需求、时间和技能水平。

下面是基于表格自动创建的窗体，稍微经过调整。

货品资料表格

货品输入窗口

在创建和设计Access录入窗体时，需要注意以下事项：窗体布局：应该尽可能使用直观的布局和易于理解的标签和控件，以便用户可以轻松地录入数据。确保控件和标签对齐，并使用颜色和线条来分组和强调相关控件。数据验证：必须确保用户录入的数据符合要求，例如数据类型、字符长度、范围等等。您可以使用Access提供的验证规则或自定义VBA代码来验证数据。应该在提交数据之前验证数据，并向用户提供有关任何错误或警告的提示。数据格式：确保输入控件的格式与数据类型相匹配，例如日期选择器应该只接受日期值，而文本框应该只接受文本值。键盘快捷键：考虑使用键盘快捷键来增强用户体验，例如使用Tab键或Enter键在控件之间导航。数据库安全性：要确保您的数据库和窗体受到保护，例如设置密码和权限以防止未经授权的访问和更改。窗体命名：应该为窗体选择一个易于识别和理解的名称，并确保它与其他对象名称相区分。

总之，在创建和设计Access录入窗体时，应该考虑到用户的需求和使用情况，并尽可能地简化和优化录入过程。

窗体按钮的设计

在上面的窗体上有二个按钮，“添加”、“关闭”，是利用向导自动建立的。为了使用的灵活方便，我们用VBA代码重写按钮的点击事件。

【添加】按钮事件

自动化生成的添加按钮的事件是一个“嵌入的宏”，现在我们把它用事件过程改写：

Private Sub 添加_Click()    '定义变量    Dim db As Database    Dim rs As Recordset    Dim strSQL As String    Dim 货品编码 As String    Dim 货品名称 As String    Dim 货品规格 As String    Dim 货品单位 As String    Dim 货品单价 As Double        '获取表单控件的值    货品编码 = Me.货品编码.Value    货品名称 = Me.货品名称.Value    货品规格 = Me.货品规格.Value    货品单位 = Me.货品单位.Value    货品单价 = Me.货品单价.Value        '创建SQL语句    strSQL = "INSERT INTO tblHpzl (货品编码, 货品名称, 货品规格, 货品单位, 货品单价) VALUES ('" & 货品编码 & "', '" & 货品名称 & "', '" & 货品规格 & "', '" & 货品单位 & "', " & 货品单价 & ")"        '打开数据库和记录集    Set db = CurrentDb()    Set rs = db.OpenRecordset("tblHpzl", dbOpenDynaset)        '添加记录    With rs        .AddNew        !货品编码 = 货品编码        !货品名称 = 货品名称        !货品规格 = 货品规格        !货品单位 = 货品单位        !货品单价 = 货品单价        .Update    End With        '关闭记录集和数据库连接    rs.Close    Set rs = Nothing    Set db = Nothing        '清空表单控件    Me.货品编码.Value = ""    Me.货品名称.Value = ""    Me.货品规格.Value = ""    Me.货品单位.Value = ""    Me.货品单价.Value = ""        '显示添加成功的消息框    MsgBox "添加成功！", vbInformationEnd Sub

添加新记录

货品资料表

【关闭】按钮事件

现在我们把改写为：

Private Sub 关闭_Click()		DoCmd.Close acForm, Me.NameEnd Sub

说明：在窗口关闭按钮事件中，需要关闭当前窗口。上面的代码使用DoCmd.Close命令，指定关闭的对象为acForm（窗体），并指定关闭的窗体名称为当前窗体的名称（Me.Name）。这样就可以关闭当前窗口。

系列文章链接系统登录窗口的设计

数据备份和数据恢复

窗体的事件类型

内容创作不容易，转载请注明出处，谢谢！

下一篇将给大家介绍建立ACCESS查询窗体的基本功能。