展开全部
将非绑定文本文本框里的值插入分别插入两个数据表里,必32313133353236313431303231363533e4b893e5b19e31333337393533须分别运行两个SQL追加查询才行(每张表运一次,不能混在一起)。
关于你提问中的代码,我没有你的窗体具体设计方案,这里不好发表评论。
这里给一个简化的例子代码,将主窗体非绑定文本框TEXT1中的订单号分别插入到订单总表和订单明细表里:Private Sub OK_Click()
Dim strsql As String
If IsNull(Text1) Then
MsgBox "请输入订单号", , "提示"
Text1.SetFocus
Exit Sub
End If
'拼写插入到订单总表的SQL语句
strsql="insert into 订单总表(订单号) values('" & Trim(Text1) & "')"
DoCmd.RunSql strsql '运行DoCmd对象的RunSql方法将订单号插入到总表
'拼写插入到订单详细信息表的SQL语句
strsql="insert into 订单详细信息表(订单号) values('" & Trim(Text1) & "')"
DoCmd.RunSql strsql '运行DoCmd对象的RunSql方法将订单号插入到明细表
End Sub
通过上述代码即可将订单号分别插入到总表和明细表了。但是请注意,尽管新订单号已经插入到数据表里,可是这事主窗体和子窗体是看不到刚才插入的新订单号的,怎么办?很简单,主窗体和子窗体运行一下REQUERY方法就可以看到了。