Help with a variable

[robert693]

I already posted this query in Access Other Topics but it seems more apropriate here. I converted a database from 97 to 2000 and I haven't been able to get a variable from the 97 database to work in 2000. It is: Dim Tb1 as Table. I have tried Dim Tb1 as DAO.Table and Dim Tb1 as ADOX.Table but nothing I have tried works. The module concatenates names and addresses from a table and places the concatenated address in a field. The module goes like this:
Function Mashit()
Dim CRLF As Variant, TheDB As Database, Tb1 As Table
Dim N1 As String, N2 As String, N3 As String
Set TheDB = CurrentDb()
Set Tb1 = TheDB.OpenTable("LEADS&quot
Tb1.Index = "Last Name"
Tb1.MoveFirst
CRLF = Chr(13) & Chr(10)
Do Until Tb1.EOF
If IsNull(Tb1("Mashed&quot) Then
If Not IsNull(Tb1("First Name&quot) Then
If Not IsNull(Tb1("Company&quot) Then
If Not IsNull(Tb1("Address 2&quot) Then
N1 = Tb1("First Name&quot & " " & Tb1("Middle Initial&quot & " " & Tb1("Last Name&quot
N2 = Tb1("Company&quot & CRLF & Tb1("Address 1&quot
N3 = Tb1("Address 2&quot & CRLF & Tb1("City&quot & ", " & Tb1("State&quot & " " & Tb1("Zip&quot & " " & Tb1("Country&quot
Tb1.Edit
Tb1("Mashed&quot = N1 & CRLF & N2 & CRLF & N3
Tb1.Update
Else
N1 = Tb1("First Name&quot & " " & Tb1("Middle Initial&quot & " " & Tb1("Last Name&quot
N2 = Tb1("Company&quot & CRLF & Tb1("Address 1&quot
N3 = Tb1("City&quot & ", " & Tb1("State&quot & " " & Tb1("Zip&quot & " " & Tb1("Country&quot
Tb1.Edit
Tb1("Mashed&quot = N1 & CRLF & N2 & CRLF & N3
Tb1.Update
End If
Else
If Not IsNull(Tb1("Address 2&quot) Then
N1 = Tb1("First Name&quot & " " & Tb1("Middle Initial&quot & " " & Tb1("Last Name&quot
N2 = Tb1("Address 1&quot & CRLF & Tb1("Address 2&quot
N3 = Tb1("City&quot & ", " & Tb1("State&quot & " " & Tb1("Zip&quot & " " & Tb1("Country&quot
Tb1.Edit
Tb1("Mashed&quot = N1 & CRLF & N2 & CRLF & N3
Tb1.Update
Else
N1 = Tb1("First Name&quot & " " & Tb1("Middle Initial&quot & " " & Tb1("Last Name&quot
N2 = Tb1("Address 1&quot
N3 = Tb1("City&quot & ", " & Tb1("State&quot & " " & Tb1("Zip&quot & " " & Tb1("Country&quot
Tb1.Edit
Tb1("Mashed&quot = N1 & CRLF & N2 & CRLF & N3
Tb1.Update
End If
End If

End If
End If
Tb1.MoveNext
Loop
Tb1.Close
End Function

I hope somebody can help make this work! Thank you very much!

 

[THoey]

You need to check your references. Open a module and select Tools --> References. Look for any that say missing... Terry
**************************
* General Disclaimor - Please read *
**************************
Please make sure your post is in the CORRECT forum, has a descriptive title, gives as much detail to the problem as possible, and has examples of expected results. This will enable me and others to help you faster...