[sand]

Hi,

I have written the follwoing code.

Dim clientName As String 
    Dim clientNameArray() 
    Dim count1 As Integer 
    Dim NumberOfClients As Integer 
    NumberOfClients = 0 
    ReDim clientNameArray(NumberOfClients) 
    clientNameArray(0) = "test" 
    count1 = 1 
    Dim count2 As Integer 
    Do 
       If.... 

          clientName = RecordArray(cnt1, 0) 
                    'clientNameArray(count1) = clientName 
                    MsgBox "Test1" + clientName 
                    'IDAccFSEB = IDAccFSEB + 1 
                    'count1 = 1 
                    'count2 = 0 
                    For count2 = 0 To count1 
                    MsgBox "Test" + clientNameArray(count2) 
                    MsgBox "Test2" + clientName 
                        If Not LCase(clientNameArray(count2)) <> LCase(clientName) Then 
                            IDAccFSEB = IDAccFSEB + 1 
                            clientNameArray(count2) = clientName 
                            MsgBox "Test" + clientNameArray(count1) 
                            count1 = count1 + 1 
                        End If 
                    Next 
       End If 
Loop

What happens is i retrieve the clientName from an array.
I have instantiated the array with one record so as it not being empty. If the client'sName is not the same as in the array, then i should the client's name shpuld be inserted into the array and increment a counter. This counter keeps track of the number of clients. However, i keep getting zero for the following variable "IDAccFSEB". y? I hope someone can help. Its urgent. Thanx

[Advertisements]

put Option Explicit at the top to see if you have any spelling errors and is this vb6 cause i dont understand why your if statement has If........

[TwiztidNinja]

put Option Explicit at the top to see if you have any spelling errors and is this vb6 cause i dont understand why your if statement has If........

[paper]

NumberOfClients = 0
ReDim clientNameArray(NumberOfClients)

but later you used clientNameArray(1) ??