Help Me! Save Record Command Button issue

[gszdwml]

I am trying to have a record saved when i click on my "Resolve Alarm and Close Tkt" button on my "ARMS Single Tkt Display" form. This process is supposed to save the record to the "ChronicTkt# T" table , then copy it to the "ClosedTktT", then delete it from the "ChronicTkt# T". The problem I have is that when I type "Yes" in the "Close Tkt" field, it does not save the text when copying over to the new table(ClosedTktT).

Also, all records are copied over to the new table, instead of the record I am currently on. How do I prevent or address these issues?
THANKS FOR ANY HELP given.

Please take a look at the attached dB File.

My VBA code,

Private Sub Save_and_Close_Form_Click()
DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_SELECTRECORD
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Save
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
DoCmd.Requery
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [ClosedTktT] SELECT * FROM [ChronicTkt# T] WHERE [Chronic Tkt Number] = [Chronic Tkt Number]"
DoCmd.SetWarnings True
DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_SELECTRECORD


DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_DELETE
DoCmd.Close
End Sub

[pbaldy]

Try

DoCmd.RunSQL "INSERT INTO [ClosedTktT] SELECT * FROM [ChronicTkt# T] WHERE [Chronic Tkt Number] = " & Me.[Chronic Tkt Number]