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