Hi everyone,
I creating an event to update the status of a field to be "open" or "close" based on a selected date. (The field name is "Status_Complaint")
If I update the field "DateClosure" the field Me.Status_Complaint should change to "Close" but If I delete the date the field should change to "Open";
I am not sure if the event would be "Change" or "AfterUpdate".... anyway anyone of my code works as I want
In fact the issue I have is when I am deleting the "selected date" the field Me.Status_Complaint is not changing to "Open",
Does someboby could help? What Should I change in my code?
Private Sub FechaC_Change()
If Me.DateClosure = "" Then
Me.Status_Complaint = "Open"
ElseIf Me.DateClosure <> """ Then
Dim MessageBox_CloseNC As Integer
MessageBox_CloseNC = MsgBox("The report " & Me.Code & " will be closed, żDo you want to continue?", vbQuestion + vbYesNoCancel, "Q-Sys Quality Management Tool")
If MessageBox_CloseNC = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Status_Complaint = "Close"
End If
End If
End Sub