Are objects and methods the same from Access 97 to 2000?

[robert693]

I have a module that concatenates names and addresses. I built it on Access 97. When I try to run it on Access 2000 certain objects such as "Table" are not recognized. Same with "index". I was wondering if this has to do with a difference between 97 and 2000 because the module works fine on 97. This is the module:
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

 

[Databaseguy]

Access 97 and 2000 are two different animals. You can visit this page

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndao/html/daotoadoupdate.asp

And, I've compliled some of the key differences on my web page. Look for the ling Access 97 VS 2000....

That's the long answer.

The short answer is include a reference to DAO3.6 and precede your objects with DAO (DAO.Database, DAO.Recordset, etc) or re-write your code to be ADO compliant. Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[igk]

Hi,

Just go to Tools -- References and add "Microsoft DAO 3.51 Object Library". You should be able to use the same declarations as in '97.