Access complex If Statement - ms-access

Question

Here's some background - i'm creating an access form that allows users in a call centre to select options from several combo and tickboxes and it generates the relevant call script into a textbox based on their selections.
I'm in the process of writing the VBA code that adds together various paragraphs of pre-determined text into a textbox based on the options selected. I've created a string for each of these paragraphs of text in VBA and i'm trying to write the IF statements to put them together, however there will eventually be around 50 different option variations and i'm struggling to find a way around this without writing 50 different If/ElseIf statements :|
Below is a snippet of what I've come up with so far, with the only difference in the ElseIf being that [FullRefund] is False which replaces the 'FullRef' string with 'OPLim' in the textbox value
If [PreAuthType] = "Out Patient" _
And [FullRefund] = True _
And [ExcessLimit] > 0 _
And [Text58] < 93 _
And [OpenRef] = False _
And [TxtReq] = False _
And [ClaimsBonus] = True Then
Me.GenScript.Value = Stan & FullRef & Excess & Renewal & OpenRef & NoText & BonusTxt
ElseIf [PreAuthType] = "Out Patient" _
And [FullRefund] = False _
And [ExcessLimit] > 0 _
And [Text58] < 93 _
And [OpenRef] = False _
And [TxtReq] = False _
And [ClaimsBonus] = True Then
Me.GenScript.Value = Stan & OPLim & Excess & Renewal & OpenRef & NoText & BonusTxt
End If
Any help or guidance you can offer to at least get me going would be amazing :)

Answer 1

Basically, instead of writing a separate IF statement for every possible result, build the result step by step. The very purpose of computer programs is to eliminate repetition, not to increase it. There are a number of ways you could tackle this, but here's an example of the most basic because this is (believe it or not) an extremely simple set of logic comparisons.
This is already the majority of the coding that will be required...
Sub BuildScript()
Dim scrOut As String 'a string to use to build the output
scrOut = stan 'standard beginning for all results, I assume?
If fullrefund Then 'if [full refund] is true then...
scrOut = scrOut & FullRef '...add this top the end of [scrOut]...
Else
scrOut = scrOut & opLim '...otherwise add this to [scrOut].
End If
If ExcessLimit > 0 Then
scrOut = scrOut & excess
Else
scrOut = scrOut & "___something else if excessLimit <= 0___"
End If
If Text58 < 93 Then
scrOut = scrOut & renewal
Else
scrOut = scrOut & "___something else if Text58 >= 93___"
End If
If openRef Then
scrOut = scrOut & openRef
Else
scrOut = scrOut & "___something of openRef=false"
End If
If TxtReq Then
scrOut = scrOut & " ___something if txtReq=true___"
Else
scrOut = scrOut & NoText
End If
If ClaimBonus Then
scrOut = scrOut & BonusTxt
Else
scrOut = scrOut & "___something else if ClaimBonus=False___"
End If
MsgBox scrOut 'display a message box with the result
'(don't worry about what to do with it until later)
End Sub
Edit:
Forgetting for a minute about the above code, I'll demonstrate your 3-option example:
PreAuthType (4 values), Excess (Number), and OpenRef (true/false). if option A, B, or C of PreAuthType is selected then the 'Stan' and 'Excess' strings need to be returned, however if ExcessLimit is >0 then 'Excess' needs to also be included, and if OpenRef is True then 'OpenReferral' also needs to be included.
PreAuthType: one of: A, B, C, D
Excess: numeric value from ___ to ___
OpenRef: TRUE or FALSE only
Select Case PreAuthType
Case A, B, C
scrOut = Stan & Excess
Case D
'(does this option get anything specific?)
End Select
If Excess > 0 then
scrOut = scrOut & "The Excess is $" & Excess
end if
If OpenRef the
scrOut = scrOut & "Referral " & OpenReferral & " needs to be blah blah."
End If
Note that in the IF statements above:
If OpenRef then...
is exactly the same as writing:
If OpenRef = True then...
Similarly, this:
If Not OpenRef then...
is identical to this:
If OpenRef = False then...
More Information:
Using If...Then...Else Statements
(look at a criteria and choose between 2 results.)
VBA for Beginners: VBA Case Function in a Nutshell ("Select..Case")
(look at a criteria and choose between many results)
VBA 'Like' Operator
(compare 'close matches', ie: if it starts with A then do this)