Automatic Status Chgs based on answered questions

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Would like to have a status automatically change based on answers to
questions. Some of the "If, Then" statements are working and the status is
changing as expected. Others are not. Any help that can be provided is
appreciated.

Here is current code:

Private Sub CA_Completion_Acceptable__AfterUpdate()

If Me.[CA Completion Acceptable?] = -1 And Me.[CA Completion Notification
Submitted?] = -1 And Me.[CA Response Acceptable?] = -1 And Me.[CAR Response
Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Closure"

End Sub

Private Sub CA_Completion_Notification_Submitted__AfterUpdate()

If Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "CA Verification"
End If

End Sub

Private Sub CA_Ready_to_Close__AfterUpdate()

If Me.[CA Ready to Close?] = -1 And Me.[CA Completion Acceptable?] = -1 And
Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "Closed"
End If

End Sub

Private Sub CA_Response_Acceptable__AfterUpdate()

If Me.[CA Response Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1
And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Completion Notification"
End If

End Sub

Private Sub CAR_Issued__AfterUpdate()

If Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response"
Else
Me.CAR_Status = Null
End If

End Sub

Private Sub CAR_Response_Submitted__AfterUpdate()

If Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response Evaluation"
End If

End Sub
 
Would like to have a status automatically change based on answers to
questions. Some of the "If, Then" statements are working and the status is
changing as expected. Others are not. Any help that can be provided is
appreciated.

Here is current code:

Private Sub CA_Completion_Acceptable__AfterUpdate()

If Me.[CA Completion Acceptable?] = -1 And Me.[CA Completion Notification
Submitted?] = -1 And Me.[CA Response Acceptable?] = -1 And Me.[CAR Response
Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Closure"

End Sub

Private Sub CA_Completion_Notification_Submitted__AfterUpdate()

If Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "CA Verification"
End If

End Sub

Private Sub CA_Ready_to_Close__AfterUpdate()

If Me.[CA Ready to Close?] = -1 And Me.[CA Completion Acceptable?] = -1 And
Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "Closed"
End If

End Sub

Private Sub CA_Response_Acceptable__AfterUpdate()

If Me.[CA Response Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1
And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Completion Notification"
End If

End Sub

Private Sub CAR_Issued__AfterUpdate()

If Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response"
Else
Me.CAR_Status = Null
End If

End Sub

Private Sub CAR_Response_Submitted__AfterUpdate()

If Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response Evaluation"
End If

End Sub
Click to expand...

Which ones are working and which ones aren't?
 
Hi,

Thanks for responding.

The top four aren't working; bottom two are. I have a record in which the
conditions for the state to become CA Verfication; however, it is not. It is
stuck at CAR Response Evaluation". Perhaps I have too many sequences that
cancel out each other?

KidSensation said:
Would like to have a status automatically change based on answers to
questions. Some of the "If, Then" statements are working and the status is
changing as expected. Others are not. Any help that can be provided is
appreciated.

Here is current code:

Private Sub CA_Completion_Acceptable__AfterUpdate()

If Me.[CA Completion Acceptable?] = -1 And Me.[CA Completion Notification
Submitted?] = -1 And Me.[CA Response Acceptable?] = -1 And Me.[CAR Response
Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Closure"

End Sub

Private Sub CA_Completion_Notification_Submitted__AfterUpdate()

If Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "CA Verification"
End If

End Sub

Private Sub CA_Ready_to_Close__AfterUpdate()

If Me.[CA Ready to Close?] = -1 And Me.[CA Completion Acceptable?] = -1 And
Me.[CA Completion Notification Submitted?] = -1 And Me.[CA Response
Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?]
= -1 Then
Me.CAR_Status = "Closed"
End If

End Sub

Private Sub CA_Response_Acceptable__AfterUpdate()

If Me.[CA Response Acceptable?] = -1 And Me.[CAR Response Submitted?] = -1
And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CA Completion Notification"
End If

End Sub

Private Sub CAR_Issued__AfterUpdate()

If Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response"
Else
Me.CAR_Status = Null
End If

End Sub

Private Sub CAR_Response_Submitted__AfterUpdate()

If Me.[CAR Response Submitted?] = -1 And Me.[CAR Issued?] = -1 Then
Me.CAR_Status = "CAR Response Evaluation"
End If

End Sub
Click to expand...

Which ones are working and which ones aren't?
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Automatic statsus changes based on answered questions 10
Trying to run excel vba code when cell value changes from empty to entered value. 1
Search form 2
Create a yes no message on a command button on click 0
Display message if form on Tab-Control is Blank 2
ComboBox 2
Prevent duplicates based on two criteria 0
ComboBoxes ? 1

Back
Top