I have a Select Case statement that populates a text box based on the user's selection from a list box. It works fine as long as the value selected is one listed specifically in the case statement. But several values require exactly the same formula, and rather than listing each of them out, I thought I could use Case Else to call this for all the ones that did not meet the criteria. When I do this, however, the value does not change. Here is my statement. What am I doing wrong?
Code:
Dim Formula As String
Formula = lstNG_RetGrp.Value
Select Case Formula
Case "NENUA"
txtFormO65 = "Form_O65([qryNG_Post65_Plan Options]![Monthly Full Cost]-([qryNG_Post65_RetCode]![Percentage]* [qryNG_Post65_Plan Options]![Monthly Full Cost])"
Case "NENUB"
txtFormO65 = "Form_O65([qryNG_Post65_Plan Options]![Monthly Full Cost]-([qryNG_Post65_RetCode]![Percentage]* [qryNG_Post65_Plan Options]![Monthly Full Cost])"
Case "NENUC"
txtFormO65 = "Form_O65([qryNG_Post65_Plan Options]![Monthly Full Cost]-([qryNG_Post65_RetCode]![Percentage]* [qryNG_Post65_Plan Options]![Monthly Full Cost])"
Case "NYNUNO"
txtFormO65 = "Form_O65([qryNG_Post65_Plan Options]![Monthly Full Cost]-([qryNG_Post65_RetCode]![Percentage]* [qryNG_Post65_Plan Options]![Monthly Full Cost])"
Case "NYNUNN"
txtFormO65 = "Form_O65([qryNG_Post65_Plan Options]![Monthly Full Cost])"
Case Else
RetCodeO65 = "Form_YOS_Base([qryNG_Post65_Plan Options]![Monthly Full Cost]*[qryNG_Post65_RetCode]![Percentage])"
End Select