troubleshooting Question

help with loop

Avatar of cdb424ttm
cdb424ttm asked on
Visual Basic Classic
1 Comment1 Solution213 ViewsLast Modified:
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
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros