VBA De functie of interface is gemarkeerd als gereserveerd*

[Verwijderd]

De functie of interface is gemarkeerd als gereserveerd, of de functie
gebruikt een automatiseringstype dat niet word ondersteund in Visual Basic.

Dit heeft altijd gewerkt, maar is ineens gestopt. Er is niets aan de
software veranderd, geen nieuwe progs geinstalleerd. Eerst liep hij vast op :
Dim dbs as Database
Hij herkende Databse niet meer.
Nu spontaan heeft hij problemen met
Set dbs = CurrentDb
En ik heb geen Missing Libraries

Iemand een idee ???

[pjvandesande]

Kun je ons iets meer informatie geven. Een beetje source enzo zou niet verkeerd zijn. Ik kan je verhaal maar moeilijk aan elkaar knopen.

[gorgi_19]

Wat is er veranderd ten opzichte van de vorige keer dat het werkte? En welke VB hebben we het over?

[ Voor 20% gewijzigd door gorgi_19 op 06-09-2005 12:00 ]

[Verwijderd]

Het betreft VBA in Access 97

Hier het stukje code

code:

Private Sub Knop0_Click()

Dim dbs As Database         ' Database
Dim rst As Recordset        ' Uitvoer van de Query
Dim SQL As String           ' Selectie Query
Dim ntb As String           ' Voor aanmaken NTB-00000 waarde
Dim ntoep As String         ' Neventoepassingcode/Transfer Code
Dim transferkey As String   ' Transfer Key
Dim veld5 As String         ' Part nr.
Dim veld6 As String         ' Trace nr.
Dim veld7 As String         ' Serie nr.
Dim veld9 As String         ' Voorraad aantal
Dim teller As String        ' Teller
Dim teller2 As String       ' Teller
Dim lineno As String        ' Line number

ntoep = "9922"              ' Neventoepassingcode die opgehaald moet worden

'Tabel leegmaken voordat deze gevuld wordt
DoCmd.SetWarnings False
DoCmd.RunSQL ("clear_tbl")

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(SQL)
rst.MoveLast

etc.........

Als ik op de knop klik krijg ik dus die melding en word de regel Set dbs = CurrentDb geel.

Maar voorheen (gisteren) werkte dit nog gewoon.

Wat er veranderd is .. niks. Geen software, hardware, instellingen!

Roep maar als je nog meer info nodig hebt.

[ Voor 12% gewijzigd door Verwijderd op 06-09-2005 13:28 ]

[Verwijderd]

Dit is dus de melding:

De functie of interface is gemarkeerd als gereserveerd, of de functie
gebruikt een automatiseringstype dat niet word ondersteund in Visual Basic

[whoami]

P&W -> OFF

[Lustucru]

- Kun je het project wel compileren?
- Welke DAO verwijzingen staan er aangevinkt?
- Toevallig ook een ADO verwijzing aangevinkt?

offtopic:
gebruik '[ code ]' tags voor stukken code, dat leest prettiger

[Verwijderd]

Krijg de error ook tijdens compileren.

- Visual Basic for Applications
- Micosoft Access 8.0 Object Library
- Microsift DAO 3.6 Object Library

- Geen ADO aangevinkt

Heb ook al :

code:

Dim dbs as DAO.Database

Geprobeerd.

[ Voor 3% gewijzigd door Verwijderd op 06-09-2005 13:27 ]

[Lustucru]

Microsoft noemt het probleem na installatie van windows2000.
Access97 blijkt probleempjes te hebben met dao3.6; m.a.w. registreer 3.51 en zet die in je verwijzing.

[Verwijderd]

Heb een machine met DAO 3.5 Deze werkt perfect.

Tnx voor de tip !!

Alles werkt nu.