Finding Column Letters

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

On opening a form, 6 txtboxes are populated with column letters IF a field
name is found in data with a variable number of columns and field names in
varying order.

This code seemed to work fine but not always
Sub FindCols()
On Error Resume Next
txtFax.Text = Split(Rows(1).Find("Fax").Address, "$")(1)
txtSalut.Text = Split(Rows(1).Find("Salutation").Address, "$")(1)
txtFirstName.Text = Split(Rows(1).Find("FirstName").Address, "$")(1)
txtLastName.Text = Split(Rows(1).Find("LastName").Address, "$")(1)
txtJob.Text = Split(Rows(1).Find("Job").Address, "$")(1)
txtCompany.Text = Split(Rows(1).Find("Company").Address, "$")(1)
On Error GoTo 0
End Sub

yields:
txtFax = AB
txtSalut = ""
txtFirstName = ""
txtLastName = M
txtJob = A
txtCompany = CA

with this data
A M AB CA
Job LastName Fax Company

but with this data
A C M AB CA
Job Christian Name LastName Fax Company

yields:
txtFax = AB
txtSalut = ""
txtFirstName = ""
txtLastName = M
txtJob = A
txtCompany = C NOT CA ***********************

Find appears to search for capitals and not whole words?
How should my code be amended to make this work?

Geoff
 
So sorryyyyyyyy to waste time.
The code does work correctly. In testing I had failed to remove the
previous results from the txtboxes and the rest was sheer coincidence.
dohhh, shame:(

Geoff
 
Back
Top