G
Guest
I have the following code in the after update of four combo boxes. It
calculates a final yes or no and displays it in a text box. I want that value
displayed in the text box on the form to save to a field called TaskCompleted
in a Table called ImplementationMain
If Me.ComboAApplicable.Value = "Yes" And Me.ComboVApplicable.Value = "Yes"
And Me.ComboARemoved.Value = "Yes" And Me.ComboVApplied.Value
= "Yes" Then Me.ReadyStatus.Value = "Yes"
If Me. ComboAApplicable.Value = "Yes" And Me. ComboVApplicable.Value
= "No" And Me. ComboARemoved.Value = "Yes" Then
Me.ReadyStatus.Value = "Yes"
If Me. ComboAApplicable.Value = "No" And Me. ComboVApplicable.Value
= "Yes" And Me. ComboVApplied.Value = "Yes" Then
Me.ReadyStatus.Value
= "Yes"
If Me. ComboAApplicable.Value = "Yes" And Me. ComboARemoved.Value = "No"
Then Me.ReadyStatus.Value = "No"
If Me. ComboVApplicable.Value = "Yes" And Me. ComboVApplied.Value = "No"
Then Me.ReadyStatus.Value = "No"
If Me. ComboVApplicable.Value = "Unsure" Then Me.ReadyStatus.Value = "No"
End
ComboAApplicable saves to a field called AApplicable in table
ImplementationMain
ComboVApplicable saves to a field called VApplicable in table
ImplementationMain
ComboARemoved saves to a field called ARemoved in table ImplementationMain
ComboVApplied saves to a field called VApplied in table ImplementationMain
Any help would be greatly appreciated.
Many Thanks.
calculates a final yes or no and displays it in a text box. I want that value
displayed in the text box on the form to save to a field called TaskCompleted
in a Table called ImplementationMain
If Me.ComboAApplicable.Value = "Yes" And Me.ComboVApplicable.Value = "Yes"
And Me.ComboARemoved.Value = "Yes" And Me.ComboVApplied.Value
= "Yes" Then Me.ReadyStatus.Value = "Yes"
If Me. ComboAApplicable.Value = "Yes" And Me. ComboVApplicable.Value
= "No" And Me. ComboARemoved.Value = "Yes" Then
Me.ReadyStatus.Value = "Yes"
If Me. ComboAApplicable.Value = "No" And Me. ComboVApplicable.Value
= "Yes" And Me. ComboVApplied.Value = "Yes" Then
Me.ReadyStatus.Value
= "Yes"
If Me. ComboAApplicable.Value = "Yes" And Me. ComboARemoved.Value = "No"
Then Me.ReadyStatus.Value = "No"
If Me. ComboVApplicable.Value = "Yes" And Me. ComboVApplied.Value = "No"
Then Me.ReadyStatus.Value = "No"
If Me. ComboVApplicable.Value = "Unsure" Then Me.ReadyStatus.Value = "No"
End
ComboAApplicable saves to a field called AApplicable in table
ImplementationMain
ComboVApplicable saves to a field called VApplicable in table
ImplementationMain
ComboARemoved saves to a field called ARemoved in table ImplementationMain
ComboVApplied saves to a field called VApplied in table ImplementationMain
Any help would be greatly appreciated.
Many Thanks.