Problem with Case Statement? (a2k (9.0.6926) SP-3 Jet 4.0 SP-8)

Topic

New Reply

I have the following code that works OK

Now I want to make the code dynamic and want to replace: Case “701”, “702”

With: Case strCPRevCodes ‘”701″, “702”

The above statement does not work, what am I doing wrong?

Thanks, John

Dim strCPRevCodes As String
    
strCPRevCodes = GetPref("Default CP Revenue Code")
MsgBox "strCPRevCodes: " & strCPRevCodes

Reply | Quote

Replies

Case strCPRevCodes results in a single case, not in two. You cannot do it this way.

Reply | Quote

After further review you and Charlotte gave me the solution in

Help With Case Statement? (a2k (9.0.6926) SP-3 Jet 4.0 SP-8) post 533,289

I knew I saw it somewhere!

If Contains(GetPref("Default CP Revenue Codes"), Me.lngRevGLDescID.Column(1)) = True Then
            
        strFilter = "[lngID]=" & Me.lngID                       
        If Me.Dirty Then
            DoCmd.RunCommand acCmdSaveRecord
        End If

        DoCmd.OpenForm "frm_POS_CommonsUsePermit", , , strFilter, , _
                            acDialog, Me.Form.Name
End If

Thanks, John

Reply | Quote