AfterUpdate for Control

[koolwaters]

I have a form capturing client information. There may be the rare occasion when an application for a client has been rejected for some reason. On the form, there is an application status combo box with Completed, Incomplete and Rejected as the values.

If the application status is complete, I want to open a pop-up form so that I can enter the reason the application has been rejected.

I have the following code in the AfterUpdate event of the combo box but it does not work. I have also played around with it for a few days but nothing is working.

Here is the code:

Private Sub cboApplicationStatus_AfterUpdate()
Dim stdocname As String
stdocname = "fpopRejectionReason"
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    If (Me.cboApplicationStatus = "Rejected") Then
    DoCmd.OpenForm stdocname, acNormal, , acFormAdd
End If
End Sub

I have added the Save line this morning to see if that is why it is not working. Basically, when I choose "Rejected" as the application status, the record is saved and the form does not open.

 

[koolwaters]

I got it to work. Finally!

Private Sub cboApplicationStatus_AfterUpdate()
Dim stdocname As String
stdocname = "fpopRejectionReason"
    
    If (Me.cboApplicationStatus.Column(1) = "Rejected") Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenForm stdocname, acNormal, , acFormAdd
    End If
End Sub