Swapping lines of code changes results and error.

[Dave44000]

I have a form called Main, and a second form called Create.... I open the Create form from a combobox. Then, just click SAVE, which creates a record, and tries to set a text box to the ID for the new record and set the name of the entity of that new record to another text box.

I have many of these. They all work, except one. It is slightly different from the rest. Those two lines of assignments have worked while I was debugging. The first one encountered works. The second one does not work. So at times one of the text boxes has a value and the other is NULL. Both are supposed to have values.

Here is the sub

Private Sub cmbSaveClose_Click()
Dim x As Integer
 
x = MsgBox("Are you sure you want to save changes?", 4, "Exit?")
 
'VbNo constant throws back #7
'VbYes constant throws back #6
 
Me.Txt32 = DLookup("InsuranceCarrierContractID", "ICCDupRecordCheckQ")
 
If x = 7 Then
    Exit Sub
    End If
 
If IsNull(Me.Txt32) Then
    Me.Txt31 = Form_frmMain.Txt65
    DoCmd.RunCommand acCmdSaveRecord
 
' The preceding code works fine. 
' Each of the following lines work individually, but only the one executed first works. The other does not appear to execute. I end up with a null in the text box.
 
 
     Forms!frmMain.cboInsuranceCarrierContract = Me.InsuranceCarrierContractID
 
    Forms!frmMain.Txt66 = Me.InsuranceCarrierContractID
 
'The following code works fine. 
 
    DoCmd.Close
 
    Forms!frmMain!cboInsuranceCarrierContract.RowSource = " SELECT InsuranceCarrierContract.ContractNumber " & _
                                                 " FROM InsuranceCarrierContract " & _
                                                 " ORDER BY InsuranceCarrierContract.ContractNumber;"
 
 
 
    Form_frmMain.cboInsuranceCarrierContract.Locked = False
    Form_frmMain.cboInsuranceCarrierContract.BackColor = Form_frmMain.cboInsuranceCarrier.BackColor
 
Else
    Me.Undo
    DoCmd.Close
 
 
End If
End Sub

[topher23]

Without a LOT more context, I can't make a specific suggestion, but I will make some general observations.

First, ensure that neither Forms!frmMain.cboInsuranceCarrierContract or Forms!frmMain.Txt66 are doing anything that could cause a change to Me.InsuranceCarrierContractID or each other. If everything looks okay there, try changing the periods in the reference to exclamation points. Although Access allows it (and IntelliSense makes it easy to do it), using the period can cause confusions with properties, whereas using an exclamation point (!) tells Access that you're referencing the default collection and not a property.