如何在Microsoft Access单表单中插入多表数据并绑定文本框至表字段

• 打开表单的设计视图，选中需要绑定的文本框。
• 按F4调出属性表，切换到数据选项卡。
• 找到「控件来源」下拉框，直接选择目标表对应的字段。如果找不到字段，先选中表单本身，在表单的属性表「数据」选项卡设置「记录源」为目标表或查询，之后就能看到字段列表了。

Access表单默认只能绑定一个记录源，要实现多表插入，有两种常用方法：

方法1：使用子表单（适合有主外键关联的表） #

如果你的多个表之间存在主外键关系（比如一个表存客户信息，另一个表存该客户的订单记录），可以通过子表单实现联动保存：

• 进入表单设计视图，点击顶部「设计」选项卡的「子窗体/子报表」控件。
• 跟着向导选择要关联的子表，设置主表单和子表单之间的链接字段（比如主表的ID和子表的客户ID）。
• 设置完成后，在主表单输入数据时，子表单的对应外键会自动关联，保存时数据会同时存入主表和子表。

方法2：用VBA代码手动插入（灵活适配各种场景） #

如果表之间没有关联，或者需要更灵活的插入逻辑，可以写VBA代码实现：

• 在表单设计视图添加一个「保存」按钮，右键点击按钮选择「事件生成器」，进入VBA编辑界面。
• 编写类似下面的代码（替换成你的表名、字段名和文本框名称）：

Private Sub cmdSave_Click()
    ' 插入数据到第一个表
    CurrentDb.Execute "INSERT INTO 客户表 (姓名, 电话) VALUES ('" & Me.txt姓名 & "', '" & Me.txt电话 & "')"
    ' 插入数据到第二个表
    CurrentDb.Execute "INSERT INTO 订单表 (订单号, 金额) VALUES ('" & Me.txt订单号 & "', " & Me.txt金额 & ")"
    
    ' 清空所有文本框
    Me.txt姓名 = ""
    Me.txt电话 = ""
    Me.txt订单号 = ""
    Me.txt金额 = ""
    
    MsgBox "数据已保存到多个表"
End Sub

• 注意：数字类型字段不需要加单引号；如果要处理空值，可添加判断语句避免SQL报错。

内容的提问来源于stack exchange，提问作者SimplyNick