Updating Omits Current Record

[ReubenPatterson]

Hi All...when running the sub below, the table is updated, but the record entered on the form is omitted from the update. I'm curious as to why. I've tried moving the Save to the On_Click before calling the Finish1 sub, but no luck.

Private Sub Finish1()
DoCmd.Save

Dim UpdateDB As String
UpdateDB = "UPDATE TblMaster, TblMarket SET TblMaster.FldMarket = TblMarket!FldMarket"
UpdateDB = UpdateDB & " WHERE ((TblMarket!FldSysprin=Left(TblMaster!FldAcctNumb, 6)));"


Dim MakeTable As String
MakeTable = "SELECT TBLMaster.FldChannelNumb, TBLMaster.FldMarket, Count(TBLMaster.FldChannelNumb) AS CountOfFldChannelName, Count(TBLMaster.FldMarket) AS CountOfChannelProblem INTO TblChannelCount"
MakeTable = MakeTable & " FROM TBLMaster WHERE (((TBLMaster.FldChannelNumb) Is Not Null) AND (TBLMaster.FldDate)=Date())"
MakeTable = MakeTable & " GROUP BY TBLMaster.FldChannelNumb, TBLMaster.FldMarket;"

DoCmd.RunSQL (MakeTable)
DoCmd.RunSQL (UpdateDB)

End Sub

Thanks in advance,
Reuben

[missinglinq]

Try replacing

DoCmd.Save

with

Me.Dirty = False

[ReubenPatterson]

Thanks, worked like a charm...not sure why but a little reading should fill in the gaps!