从1种表格填充2个访问表

问题描述 投票:0回答:1

我正在使用Microsoft Access 2010来简化我的小型团队的某些流程。我有一个链接到表(表A)的表格,用户填写该表格即可记录信息。我还有第二个表(表B),我想将信息复制到提交或GoToRecord.acNewRec上。我要在第一个表中的第一列中输入特定的值,例如“ Type A”。我尝试使用连接到表单A的表单上的Click()执行以下操作:

Private sub ButtonSave_Click()
DoCmd.RunSQL ' INSERT INTO Table B (Item1, Item2, Item3) VALUES (FormItem1.Value, FormItem2.Value, FormItem3.Value)', True
DoCmd.GoToRecord , , acNewRec

这给了我DoCmd.RunSQL的语法错误我也尝试了以下方法:

Private sub ButtonSave_Click()
Dim SQL As String
SQL = "INSERT INTO Table B (Item1, Item2, Item3) VALUES (" & FormItem1.Value & "," & FormItem2.Value & "," & FormItem3.Value & ");"
DoCmd.RunSQL SQL, True
DoCmd.GoToRecord , , acNewRec

这也表示INSERT TABLE行上的结束表达式。我感到很困惑。我在整个Stack Exchange上进行了Google搜索,并尝试了所有其他问题建议,但我不断收到语法或表达式错误。我在做什么错?

vba ms-access-2010
1个回答
0
投票

似乎在执行此操作时,我遇到了一些语法问题,因此我不得不进行更多研究,并向以VB为中心的朋友问。

这里的想法是,当您单击保存按钮并打开一个新记录时,使用SQL将表单中的数据插入到另一个表中。我需要在正确的区域输入正确的[]和“”。

Dim sSQL As String
sSQL = "INSERt INTO [table2] (Item1, Item2, Item 3) VALUES (FormItem1.Value, FormItem2, Value, 'Title')"
DoCmd.RunSQL (sSQL)
DoCmd.GoToRecord , , acNewRec
© www.soinside.com 2019 - 2024. All rights reserved.