VBA issue on click for command button and Save function

I have a form that is driven by a query to display data based on a numeric value passed from a hidden form. Once my users input data into this form, in the footer of the form are a series of command buttons each driven by VBA code. One button is "Save" the other is "Open Ticket". I have included the code for both buttons below.

The problem I am having is that when the users enter the data and press "Open Ticket" sometimes and not always they system shows all the data fields as ##DELTED##. However the data was stored to the database table. The secondary code then sends a blank report to me. Also some times the form doesn't reflect the new entry and sends a blank record.

If the user inputs the data and presses "Save" then presses "Open Ticket" then the process works great 9 times out of 10. However the 1 time it doesn't the form is not storing the systemid to the table. This is how we know what type of ticket it is and it is a criteria in returning these thickets to the screen in the future.

As you can see in the code from the "Save" button and the "Open Ticket" button they both are calling for the save record the same way. However it is hit and miss if this is getting completed. I am at my wits end with this I have been looking at this and running over 100 tickets thru the system today to try and fix this. Any help would be greatly appreciated.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

---- Save command button ----
 
DoCmd.RunCommand acCmdSaveRecord
frm.Recalc 'To reset txtRecordNos
 
---- Open Ticket command button ----
 
txt_tt_sysid = Forms!frmissuesselection!txtsystemid
DoCmd.RunCommand acCmdSaveRecord
If Forms!frmissuesselection!txtsystemid = 1 Then
DoCmd.SendObject acSendReport, "rptttfssissueopen", acFormatHTML, "", "", , "New FSS Trouble Ticket # " & [Forms]![frmissues]![TroubleTicket], "", False, ""
End If
If Forms!frmissuesselection!txtsystemid = 2 Then
DoCmd.SendObject acSendReport, "rptttauthissueopen", acFormatHTML, "", "", , "New Auth Ticket # " & [Forms]![frmissues]![cmdIssueNumber], "", False, ""
End If
If Forms!frmissuesselection!txtsystemid = 3 Then
DoCmd.SendObject acSendReport, "rpttttechissueopen", acFormatHTML, "", "", , "New Network Ticket # " & [Forms]![frmissues]![txtTicketNumber], "", False, ""
End If
If Forms!frmissuesselection!txtsystemid = 4 Then
DoCmd.SendObject acReport, "rptttreseissueopen", acFormatHTML, Forms!frmissues!txtresemail, Forms!frmissues!txtacctmangemail, "", [Forms]![frmissues]![txtRes] & " Reference # " & [Forms]![frmissues]![txtresissuenumber], "", False, ""
End If