My customer list contains geo coordinates which are retrieved with a custom function.
Occasionally, there are some errors: missing values, error messages etc. For this, I have created a userform which contains a list of all customers whose GPS data need to be 'fixed'. That is: connect to Google server and retrieve lat/lng again.
As the progress can take up to 5 seconds per query, I thought it would be nice if I could display a progress bar somewhere on the screen. Users will thank me for this if there are hundreds of customers whose data needs to be updated.
This code retrieves the data from the listbox and with a query, retrieves the coordinates from the Google servers:
Dim bCheck As Boolean Dim i As Integer For i = 0 To lstCustomers.ListCount - 1 If lstCustomers.Selected(i) Then bCheck = SetGeoData(lstCustomers.List(i)) 'true = data was updated / false = there was an error retrieving the coordinates End If Next i lstCustomers.Clear Call getcustomers
How would you integrate a progress bar which progresses whenever the new coordinates have been saved? (bChecked = true)
Thanks for your help