...
Code: Select all
DBEngine.Workspaces(0).BeginTrans
Set QRY = DB.QueryDefs("TAB_ANA")
QRY.Parameters("[INIZIO]").Value = CDate(DATA1)
QRY.Parameters("[FINE]").Value = CDate(DATA2)
QRY.Parameters("[OP1]").Value = RSA.Fields("OP").Value
QRY.Parameters("[NG1]").Value = RSA.Fields("NG").Value
QRY.Parameters("[DESCRIZIONE1]").Value = RSA.Fields("DESCRIZIONE").Value
QRY.Execute [b]'<<<< i think here the count records(?) or not[/b]
DBEngine.Workspaces(0).CommitTrans