[access XP] recordset wil niet herkend worden

[Verwijderd]

hoi, mijn access geeft wat problemen met mijn recordset. hij stop metteen met uitvoeren vanaf hij aan mijn variablen komt.

code:

Dim dbs As database, rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.openrecordset("tbl_artikels_verkoop", dbopendynaset)

hierdus, ik snap niet waarom hij dit doet want ik heb het opgezocht en normaal zou dit toch moeten kloppen, ik denk dat ik iets niet geactiveerd heb in mijn access instellingen want ik vind dit probleem raar want die eerste drie regels werken in school wel.
hieronder zie je nog mijn volledige code
[code]

Private Sub Geleverd__AfterUpdate()

Dim dbs As database, rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.openrecordset("tbl_artikels_verkoop", dbopendynaset)

If [tables]![TBL_Bestellingen]![geleverd 1] = 0 Then
rst.findfirst "[code artikel]='" & Me!

code:

 & "'"

            If rst.nomatch = False Then
               rst.edit
                 If IsNull(Me![Aantal bestelde artikels].OldValue) Then
                    rst!voorraad = rst!voorraad - Me![Aantal bestelde artikels]
                  Else
                     rst!voorraad = rst!voorraad - Me![Aantal bestelde artikels] + Me![Aantal bestelde artikels].OldValue
                  End If
             rst.Update
            End If
        [tables]![TBL_Bestellingen]![geleverd 1] = 1
    Else
    [tables]![TBL_Bestellingen]![geleverd 1] = 0
End If


End Sub

[Woudloper]

Wat gaat er precies fout? Ben je al eens aan het debuggen geweest? Krijg je een foutmelding?

[Verwijderd]

een door de gebruiker gedefineerd gegevenstype is niet gedefineerd

dat zegt hij en selecteert

dbs As database

[ Voor 17% gewijzigd door Verwijderd op 24-01-2005 20:48 ]

[Pyrowired]

In Access 2k2 e.v. werkt het definieren van een recordset iets anders dan je in eerste instantie in de help van access vind.
DAO (wat jij gebruikt ) wordt niet standaard gebruikt, ADO is hetgene wat als nieuwste standaard wordt gebruikt in access 2k2 en verder.

Op de volgende manier zou het moeten werken (zie help in access)

code:

dim rs as new ADODB.recordset

rs open "tabel oid", Currentproject.Connection, AdOpenKeyset, AdLockOptimistic

Als het goed is zou je nu ook kunnen vinden wat je moet doen om de gegevens te gebruiken