Need Access 2000 code to Add record to a table. Have working 97 code.

[Cybernetic2002]

The following is code I used in a previous Access 97 app to add a new record to a table. When I put this code into my Access 2000 app it fails with the error: "Compile error: User defined type not defined".

Anyway here is my 97 code, if anyone could translate this into 2000 code or knows a better way of doing this the help would be a appreciated.

Dim dbs As Database, rst As Recordset
Dim fldContactID As Field, fldAttention As Field

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Attention&quot
Set fldContactID = [rst!ContactID]
Set fldAttention = [rst!Attention]


With rst
.AddNew
!ContactID = cboContact
!Attention = NewData
.Update
End With

rst.Close

Thanks in advance.

Steve

 

[gwinn7]

I don't recall seeing brackets placed like the ones in your code. Perhaps the compiler is having trouble with them. Here is a excerpt from your code...


Set fldContactID = [rst!ContactID]
Set fldAttention = [rst!Attention]

Change to...

Set fldContactID = rst("ContactID&quot
Set fldAttention = rst("Attention&quot

Remember that Access 2000 is primarily focused on the ADO interface. So, it may be wise to predicate your DAO declarations with "ADO.". This is just so you are specific as to which library model you are attempting to program against.

Gary
gwinn7
A+, Network+

 

[cmmrfrds]

You should be able to use the code as is. Just explicitly define the data objects so Access does not confuse with ADO data objects as it is doing and make sure you have a reference set to the DAO library.

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim fldContactID As DAO.Field, fldAttention As DAO.Field

After closing
Set rst = Nothing

Let us know if you want to do it in ADO instead and an example could be provided.

 

[Cybernetic2002]

Thanks alot. That was exactely what the problem was.

Thanks again.