help with loop

I wrote this code to pull the first borr_nrb which (is 1). And the first instance of  brr-nbr (one). Once it is found I want it to fine borr_nbr (2) and give me the first instance of borr_nbr 2. I need help is setting up the loop or counter.
Thanks

Dim Result
Dim intIndex As integer
Dim strAddr As string

For intIndex = 1 To Val(CDE.LT-ADDRESS.BORR-ADDR("Count"))
      If Val(CDE.LT-ADDRESS.BORR-NBR(intIndex)) = vElementIndex Then
            strAddr = Trim(CDE.LT-ADDRESS.BORR-ADDR(intIndex))
            If Trim(CDE.LT-ADDRESS.BORR-ADDR2(intIndex)) <> "" Then
                  strAddr = strAddr & ", " & Trim(CDE.LT-ADDRESS.BORR-ADDR2(intIndex))
            End If
            If CDE.LT-ADDRESS.MILIT-FLAG(intIndex) = True Then
                  If Trim(CDE.LT-ADDRESS.MILIT-ADDR(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT-ADDRESS.MILIT-ADDR(intIndex))
                  End If
            Else
                  If Trim(CDE.LT-ADDRESS.BORR-CITY(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT-ADDRESS.BORR-CITY(intIndex))
                  End If
                  If Trim(CDE.LT-ADDRESS.BORR-ST(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT-ADDRESS.BORR-ST(intIndex))
                  End If
                  If Trim(CDE.LT-ADDRESS.BORR-ZIP(intIndex)) <> "" Then
                        strAddr = strAddr & "  "
                        If Len(Trim(CDE.LT-ADDRESS.BORR-ZIP(intIndex))) = 9 Then
                              strAddr = strAddr & LEFT(Trim(CDE.LT-ADDRESS.BORR-ZIP(intIndex)), 5) & "-"
                              strAddr = strAddr & RIGHT(Trim(CDE.LT-ADDRESS.BORR-ZIP(intIndex)), 4)
                        Else
                              strAddr = strAddr & Trim(CDE.LT-ADDRESS.BORR-ZIP(intIndex))
                        End If
                  End If
            End If
            Exit For
      End If
Next
cdb424ttmAsked:
Who is Participating?
 
GrahamSkanConnect With a Mentor RetiredCommented:
I'm guessing that this is what you want.


Dim Result
Dim intIndex As Integer
Dim strAddr As String
Dim vElementIndex As Integer

For vElementIndex = 1 To 2
    For intIndex = 1 To Val(CDE.LT - ADDRESS.BORR - ADDR("Count"))
         If Val(CDE.LT - ADDRESS.BORR - NBR(intIndex)) = vElementIndex Then
              strAddr = Trim(CDE.LT - ADDRESS.BORR - ADDR(intIndex))
              If Trim(CDE.LT - ADDRESS.BORR - ADDR2(intIndex)) <> "" Then
                   strAddr = strAddr & ", " & Trim(CDE.LT - ADDRESS.BORR - ADDR2(intIndex))
              End If
              If CDE.LT - ADDRESS.MILIT - FLAG(intIndex) = True Then
                   If Trim(CDE.LT - ADDRESS.MILIT - ADDR(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT - ADDRESS.MILIT - ADDR(intIndex))
                   End If
              Else
                   If Trim(CDE.LT - ADDRESS.BORR - CITY(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT - ADDRESS.BORR - CITY(intIndex))
                   End If
                   If Trim(CDE.LT - ADDRESS.BORR - ST(intIndex)) <> "" Then
                        strAddr = strAddr & ", " & Trim(CDE.LT - ADDRESS.BORR - ST(intIndex))
                   End If
                   If Trim(CDE.LT - ADDRESS.BORR - ZIP(intIndex)) <> "" Then
                        strAddr = strAddr & "  "
                        If Len(Trim(CDE.LT - ADDRESS.BORR - ZIP(intIndex))) = 9 Then
                             strAddr = strAddr & Left(Trim(CDE.LT - ADDRESS.BORR - ZIP(intIndex)), 5) & "-"
                             strAddr = strAddr & Right(Trim(CDE.LT - ADDRESS.BORR - ZIP(intIndex)), 4)
                        Else
                             strAddr = strAddr & Trim(CDE.LT - ADDRESS.BORR - ZIP(intIndex))
                        End If
                   End If
              End If
              Exit For
         End If
    Next
Next vElementIndex
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.