With End with If end if On error

[redbull]

I have a statement that is not always true in my code.

  With oServMan.Document.frames(0).Document.all
    Client = .Item("X12").Value
    End With

The problem is Client could also be

  With oServMan.Document.frames(0).Document.all
    Client = .Item("X12").Value
    Client = .Item("X14").Value
    Client = .Item("X18").Value
    End With

I am having a hard time getting the code to handle this correctly. I want it see if X12 is true, if so continue on.. if not try x14 etc etc. I have tried if statements but have not came up with anything. Also tried error handling, and that worked to an extent, but would ultimately give an error..

This also will apply to this bit as well

  With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X57").Value
    End With

  With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X57").Value
    ProbLoc = .Item("X41").Value
    ProbLoc = .Item("X64").Value
    End With

Any assistance would be greatly appreciated.

[RuralGuy]

How about posting the If statement you used? What if none are true?

[redbull]

The if Statement failed horribly

  With oServMan.Document.frames(0).Document.all
    Client = .Item("X12").Value
        If Client = "" Then
       Client = .Item("X14").Value
       End If
        If Client = "" Then
        Client = .Item("X18").Value
        End If
      
  End With
  With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X57").Value
        If ProbLoc = "" Then
        ProbLoc = .Item("X41").Value
        End If
        If ProbLoc = "" Then
        ProbLoc = .Item("X64").Value
        End If

The error handler did sort of work...but VBA gives the same error for both the client and probloc so it does not seem like a very good way of handling it.

On Error GoTo ErrHandler:


  With oServMan.Document.frames(0).Document.all
    Client = .Item("X12").Value
        
      
  End With
  With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X57").Value
  End With
  
ErrHandler:
      With oServMan.Document.frames(0).Document.all
    Client = .Item("X14").Value
      End With
      With oServMan.Document.frames(0).Document.all
    Client = .Item("X18").Value
      End With
      With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X41").Value
      End With
      With oServMan.Document.frames(0).Document.all
    ProbLoc = .Item("X64").Value
      End With

I know know, it seems like the "X" value should be set as a variable and handled that way... saying this is easy, don't think I have the knowledge to pull it off successfully.

[RuralGuy]

You were never testing for the source value not being True. I'm not sure we yet understand what you need.