is there an easier way to write the following If Statement?

[Ottoprantl]

If Me.PD = 0 And Me.GA = 0 And Me.BO = 0 And Me.EL = 0 And Me.CH = 0 Then
    Me.Cover = ""
    Me.CPPrice = 0
ElseIf Me.PD = 0 And Me.GA = 0 And Me.BO = 0 And Me.EL = -1 And Me.CH = 0 Then
    Me.Cover = ""
ElseIf Me.PD = 0 And Me.GA = -1 And Me.BO = 0 And Me.EL = -1 And Me.CH = 0 Then
    Me.Cover = ""
    Me.CPPrice = 0
ElseIf Me.PD = -1 And Me.GA = 0 And Me.BO = 0 And Me.EL = 0 And Me.CH = -1 Then
    Me.Cover = ""
    Me.CPPrice = 0
ElseIf StrPD = -1 And StrGA = 0 And StrBO = 0 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "PD"
    Me.CPPrice = 119.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = 0 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "PDG"
    Me.CPPrice = 143.88
ElseIf StrPD = -1 And StrGA = 0 And StrBO = 0 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "PDE"
    Me.CPPrice = 167.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = 0 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "PDEG"
    Me.CPPrice = 179.88
ElseIf StrPD = -1 And StrGA = 0 And StrBO = -1 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "PDB"
    Me.CPPrice = 227.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = -1 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "PDBG"
    Me.CPPrice = 239.88
ElseIf StrPD = -1 And StrGA = 0 And StrBO = -1 And StrEL = 0 And StrCH = -1 Then
    Me.Cover = "PDBCH"
    Me.CPPrice = 251.88
ElseIf StrPD = -1 And StrGA = 0 And StrBO = -1 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "PDBE"
    Me.CPPrice = 263.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = -1 And StrEL = 0 And StrCH = -1 Then
    Me.Cover = "PDBCHG"
    Me.CPPrice = 275.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = -1 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "PDBEG"
    Me.CPPrice = 275.88
ElseIf StrPD = -1 And StrGA = 0 And StrBO = -1 And StrEL = -1 And StrCH = -1 Then
    Me.Cover = "PDBCHE"
    Me.CPPrice = 287.88
ElseIf StrPD = -1 And StrGA = -1 And StrBO = -1 And StrEL = -1 And StrCH = -1 Then
    Me.Cover = "PDBCHEG"
    Me.CPPrice = 299.88
 
ElseIf StrPD = -0 And StrGA = 0 And StrBO = -1 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "B"
    Me.CPPrice = 119.28
ElseIf StrPD = -0 And StrGA = -1 And StrBO = -1 And StrEL = 0 And StrCH = 0 Then
    Me.Cover = "BG"
    Me.CPPrice = 143.28
ElseIf StrPD = -0 And StrGA = 0 And StrBO = -1 And StrEL = 0 And StrCH = -1 Then
    Me.Cover = "BCH"
    Me.CPPrice = 167.16
ElseIf StrPD = -0 And StrGA = 0 And StrBO = -1 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "BE"
    Me.CPPrice = 167.28
ElseIf StrPD = -0 And StrGA = -1 And StrBO = -1 And StrEL = 0 And StrCH = -1 Then
    Me.Cover = "BCHG"
    Me.CPPrice = 191.16
ElseIf StrPD = -0 And StrGA = -1 And StrBO = -1 And StrEL = -1 And StrCH = 0 Then
    Me.Cover = "BEG"
    Me.CPPrice = 191.28
ElseIf StrPD = -0 And StrGA = 0 And StrBO = -1 And StrEL = -1 And StrCH = -1 Then
    Me.Cover = "BCHE"
    Me.CPPrice = 215.16
ElseIf StrPD = -0 And StrGA = -1 And StrBO = -1 And StrEL = -1 And StrCH = -1 Then
    Me.Cover = "BCHEG"
    Me.CPPrice = 239.16
 
   Else
End If

[Killer42]

One possibility here might be to set up multi-dimensional arrays holding the values to be placed in various things for each combination.

Let's say you create an array x with 5 dimensions. Load the values you want into it. Then instead of checking the combinations, just use array entry x(Me.PD, Me.GA, Me.BO, Me.EL, Me.CH). People tend not to consider arrays with more than 2 or 3 dimensions, simply because 2 and 3 are easily thought of (and drawn) as a square or cube.

Hm...

Not sure this could be made to work easily, since you're not just using different values depending on the combination of inputs, but placing them in different fields.



Another approach might be something like this:

Dim s As String
s = Format$(Me.PD + 1,"0") _
  & Format$(Me.GA + 1,"0") _
  & Format$(Me.BO + 1,"0") _
  & Format$(Me.EL + 1,"0") _
  & Format$(Me.CH + 1,"0")
 
Select Case s
  Case "11111"
    Me.Cover = ""
    Me.CPPrice = 0
  Case "11101"
    Me.Cover = ""
  Case "10101"
    Me.Cover = ""
    Me.CPPrice = 0
  Case "01110"
    Me.Cover = ""
    Me.CPPrice = 0
  ...

I stopped here because I'd assumed it was the same five controls being checked each time, but they changed at that point. But hopefully you get the general idea. (I just added 1 to them all at the start because negative numbers made my string look messy).

A third alternative woukld be to look into nested IF statements, along the lines of:

If Me.PD = 0 Then
  If Me.GA = 0 Then
    If Me.BO = 0 Then
      If Me.EL = 0 Then
        If Me.CH = 0 Then
          Me.Cover = ""
          Me.CPPrice = 0
        End If
      ElseIf Me.EL = -1 Then
        Me.Cover = ""
      End If
    ElseIf Me.BO = -1 Then
      If Me.EL = 0 Then
        If Me.CH = 0 Then
          Me.Cover = "B"
          Me.CPPrice = 119.28
        ElseIf Me.CH = -1 Then
          Me.Cover = "BCH"
          Me.CPPrice = 167.16
...
 

However, as you can see this rapidly becomes confusing.

In the end, you might find that your original ElseIf code is actually about the easiest to understand.