CurrentDb().Execute "UPDATE W1 SET " & _ "W1.[ Prg Name] = '" & RS.Fields("[Card Pgm Name]") & _ "', W1.[Prg Amt] = " & RS.Fields("[Trans Amt]") & ", " & _ "W1.[Prg Count] = " & RS.Fields("[Trans Count]") & _ " WHERE [Level Name] = '" & RS.Fields("[Program Name]") & "'" & _ " AND [Period] = '" & cmdPeriod.Value & "'" & _ " AND [Tran Post Date] = #" & RS.Fields("[Posted Date]") & "#"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)