When converting access 2000 --> 97 my addnew wont work

[powelly]

Hi i Know this looks weird by i done a database in 2000 all worked well than i had to convert it to 97. I had to redo all my code that was fine but i can not get the form to addnew when OnOpen runs just won`t except it

In access 2000 all i needed was recordset.addne w how do you do this in 97 ???

Thankyou for any help

[NeoPa]

What library are you using for Access 97.
Have you checked that it's Reference has been added in the VBA window?

[MMcCarthy]

Hi i Know this looks weird by i done a database in 2000 all worked well than i had to convert it to 97. I had to redo all my code that was fine but i can not get the form to addnew when OnOpen runs just won`t except it

In access 2000 all i needed was recordset.addne w how do you do this in 97 ???

Thankyou for any help

You shouldn't have had to redo all your code. How did you do the converstion. The way to do it is while in 2000 convert to previous version. Then open in '97 and allow it to convert to current version. Then you should open the vba editor and compile the code and as Ade (NeoPa) says you should check that there are no missing libraries from the library list.

Mary

[powelly]

My code is there but does not seem compatable with 97
Eg. this error, run time error '424':
Object Required

[code]
Private Sub Form_Open(Cance l As Integer)
Recordset.AddNe w
End Sub
[code]

I Have Found 1 (Microsoft Access 10.0 Object Library) missing which won`t let me put it in because name conflicts with existing module,project, or object library.
There is one older version (Microsoft Access 8.0 Object Library)
how do i fix it??

[MMcCarthy]

My code is there but does not seem compatable with 97
Eg. this error, run time error '424':
Object Required

[code]
Private Sub Form_Open(Cance l As Integer)
Recordset.AddNe w
End Sub
[code]

I Have Found 1 (Microsoft Access 10.0 Object Library) missing which won`t let me put it in because name conflicts with existing module,project, or object library.
There is one older version (Microsoft Access 8.0 Object Library)
how do i fix it??

You need to replace the Microsoft Access 10.0 with the 8.0 library. Just unclick the 10.0 and tick the 8.0 instead. This should solve the problems with incompatible code.

Mary

[powelly]

there is only 1 of the objects library in 97(ver 8) or 2000 (ver 10.0)
I can`t untick either--> Error (Microsoft Access Needs this reference in order to work properly)
I can not install the one missing won`t let me even tryed replacing and renaming the files but did not work only played up and said file was missing.

the main errors are
1. Compile Error :
Method or Data member not found

Private Sub Combo33_AfterUpdate()
   Dim rs As Object
    Set rs = Me.Recordset.Clone  --------------------------Gives Error
    rs.FindFirst "[ID] = " & Str(Nz(Me![Combo33], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

I have fixed error about OnOpen recordset.addne w

I had to do this seems to work so far

Private Sub Form_Open(Cancel As Integer)
    If Dirty Then
        Recordset.AddNew
    End If
End Sub

[MMcCarthy]

You are only going to continue to have problems unless you can get the correct library working.

My best suggestion is to create a new '97 database and import all objects. Hopefully this will solve the problem.

Mary

[NeoPa]

there is only 1 of the objects library in 97(ver 8) or 2000 (ver 10.0)
I can`t untick either--> Error (Microsoft Access Needs this reference in order to work properly)
I can not install the one missing won`t let me even tryed replacing and renaming the files but did not work only played up and said file was missing.

the main errors are
1. Compile Error :
Method or Data member not found

Private Sub Combo33_AfterUpdate()
   Dim rs As Object
    Set rs = Me.Recordset.Clone  --------------------------Gives Error
    rs.FindFirst "[ID] = " & Str(Nz(Me![Combo33], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

I have fixed error about OnOpen recordset.addne w

I had to do this seems to work so far

Private Sub Form_Open(Cancel As Integer)
    If Dirty Then
        Recordset.AddNew
    End If
End Sub

I've updated the code tags on your post.
This enabled me to see more clearly what was missed before :-

    Set rs = Me.Recordset.Clone  --------------------------Gives Error
should be :
    Set rs = Me.RecordsetClone  <--------Probably doesn't any more :)

The Clone object doesn't exist as an attribute of Recordset but the RecordsetClone object is an attribute of the Me object.
Your other code will still have problems but let's deal with them singly to avoid complications.. .

[NeoPa]

BTW Another problem with the question was that you implied this was a port from one version to another.
Naturally we looked there for the problem.
However, this code never ran correctly anywhere. This is a very different problem from that which we we searching for.

Please don't see this as criticism (I also know you tried to get the code tags to work on your own) but as an illustration, for yourself and others, of how important the phrasing of a question really is.

[powelly]

BTW Another problem with the question was that you implied this was a port from one version to another.
Naturally we looked there for the problem.
However, this code never ran correctly anywhere. This is a very different problem from that which we we searching for.

Please don't see this as criticism (I also know you tried to get the code tags to work on your own) but as an illustration, for yourself and others, of how important the phrasing of a question really is.

I don`t see this as criticisim only help

The

Set rs = Me.RecordsetClone

that Fixed the problem thank you.

But

Do you mean this code never worked

 Set rs = Me.Recordset.Clone 

the reason i ask is that this code is in my other database (2000 Access) and it has no problem??

Private Sub Combo9_AfterUpdate()
 
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Supplier & Product ID] = " & str(Nz(Me![Combo9], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
 

The only problem i have is recordset.addne w how is this done in 97 becouse i can get it to work fine in 2000 in another data base but it won`t accept this in 97

Private Sub Form_Open(Cancel As Integer)
Recordset.AddNew
End Sub