And there's a lot of code there for something that should be quite simple. I guess you've been adding lines trying to get it to work.
Does this work:
Private Sub Save_and_Close_Form_Click()
DoCmd.RunSQL "INSERT INTO [ClosedTktT] SELECT * FROM [ChronicTkt# T] WHERE [Chronic Tkt Number] = " & Me![Chronic Tkt Number]