access如何将一个窗体中输入的内容保存在多个表中？

2024-11-08 07:49:32

推荐回答（1个）

回答（1）：

可以用vba代码一次执行多个SQL追加查询语句将在窗体输入的值分别插入到多张里。

下面是一个简单的示范代码，单击命令按钮可
将窗体中两个文本框输入的值分别保存到t1和t2表里，供题主参考。

Private Sub Command1_Click()
Dim strSQL As String

strSQL="insert into t1(col1,col2) values('"
strSQL=strSQL & Text1 & "','" & Text2 &"')"
DoCmd.RunSql strSQL '向t1追加一条记录

strSQL="insert into t2(col1,col2) values('"
strSQL=strSQL & Text1 & "','" & Text2 &"')"
DoCmd.RunSql strSQL '向t2追加一条记录

End Sub