G
Guest
Dim dbNewdb As DAO.Database
Dim rdcDept As DAO.Recordset
Dim sSQL As String
sbudget = "111aaa"
saccount = "222bbb"
sSQL = "insert into MyTable(Account, Budget) values('" & sAccount & "',
'" & sBudget & "')"
Set dbNewdb = CurrentDb
DoCmd.RunCommand sSQL
rdcDept.Close
Dim rdcDept As DAO.Recordset
Dim sSQL As String
sbudget = "111aaa"
saccount = "222bbb"
sSQL = "insert into MyTable(Account, Budget) values('" & sAccount & "',
'" & sBudget & "')"
Set dbNewdb = CurrentDb
DoCmd.RunCommand sSQL
rdcDept.Close