求助:如何同一个窗体向2个表录入数据?

毒舌

如何做才能让一个表在输入数据的时候同时向2个表中录入数据啊?

我做的这个例子里"报警数量"窗体为什么没有显示啊?

kelind

用ado 另外用追加查询也可以,今天太晚了,下次给你做吧.

毒舌

Private Sub cmd1_Click()
Dim rs As New ADODB.Recordset
rs.Open "报警数量", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("名称") = Me.名称
rs.Fields("型号") = Me.型号
rs.Fields("报警数量") = Me.报警数量
rs.Update
rs.Close
Set rs = Nothing

Dim rs1 As New ADODB.Recordset
rs1.Open "购买", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1.Fields("名称") = Me.名称
rs1.Fields("型号") = Me.型号
rs1.Fields("购买数量") = Me.购买数量
rs1.Update
rs1.Close
Set rs1 = Nothing
Me.购买数量 = ""
Me.名称 = ""
Me.型号 = ""
Me.报警数量 = ""
MsgBox "存入到两表中了,不信你看看!"
End Sub

Private Sub 名称_BeforeUpdate(Cancel As Integer)

End Sub



谢谢阿~

Me.购买数量 = ""
Me.名称 = ""
Me.型号 = ""
Me.报警数量 = ""
这个是什么啊?是弹出窗口的命令吗?

kelind

Me.购买数量 = ""
Me.名称 = ""
Me.型号 = ""
Me.报警数量 = ""


控件清零.你录入的数据已经存入了,不能再保留,不然容易二次或多次重复录入.

msgbox是弹出警告窗体,""中间的内容是窗体上的信息.

zczc123

学习下