koolwaters
Active Member
- Joined
- May 16, 2007
- Messages
- 403
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:
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.
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:
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.