如何用代码把FORM窗口中的值追加到二个表中?

如果你是想同时在两个表中添加数据只要打开两个recordset就可以了。但是要注意一点的是如果你用recordset添加的话，应该把你表中的数据源清掉，或者建立空白窗体来做。

Private Sub add_Click()
Dim rsa As DAO.Recordset
Dim rsb As DAO.Recordset

Set rsa = CurrentDb.OpenRecordset("aa", 1, 3)
Set rsb = CurrentDb.OpenRecordset("bb", 1, 3)
rsa.AddNew
rsa!P_ID = Me.P_ID
rsa!P_Qty = Me.P_Qty
rsa!P_Price = Me.P_Price
rsa!P_date = Me.P_date
rsa.Update

rsb.AddNew
rsb!P_ID = Me.P_ID
rsb!P_date = Me.P_date
rsb.Update
rsa.Close
rsb.Close

Set rsa = Nothing
Set rsb = Nothing

End Sub