[VB/Access] variabele op 1 form in elke functie bruikbaar

[Boy]

Bovenaan het form heb ik staan

code:

Option Compare Database
Option Explicit

Dim Rs_Result As Recordset
Dim mlngItems As Long
Dim mlngSize As Long
Dim TemplateItems() As String
Dim mvarNewItem As Variant
Dim CompDB As Database

Het gaat over deze laatste...CompDB

ik zet deze bij 'Form_Load' als volgt:

code:

Private Sub Form_Load()
DoCmd.SetWarnings False
Set CompDB = CurrentDb
End Sub

Vervolgens wil ik 'm in een andere functie gebruiken, maar dan krijg ik de melding 'Object invalid or no longer set'.

wat doe ik verkeerd? Waarom is zijn waarde opeens weg?

edit:

Als ik dit met een string doe ipv een database, onthoudt hij de waarde wel?

[ Voor 10% gewijzigd door Boy op 30-01-2003 11:47 ]

[Verwijderd]

Is dit misschien van toepassing :
http://support.microsoft....spx?scid=kb;EN-US;Q200592

Ik heb jouw code getest, maar geen problemen mee ondervonden. Kan je misschien wat meer informatie geven over de andere functie?

[Boy]

Ik denk wel dat dat het probleem is. Maar eigenlijk heb ik m'n code aangepast zodat ik niet meer hier gebruik van maak, maar door middel van een string opsla waar de database die ik dan gebruik opgeslagen staat.

Het gaat erom dat de gebruiker zelf kan ingeven welk db hij gebruikt.

Ik moet nu gewoon verder gaan met anderen dingen, want veel tijd heb ik jammergenoeg niet meer. Toch bedankt voor je hulp!

[OZ-Gump]

Je dimt de database binnen je form. Zodra je buiten dat form probeert die database aan te spreken is die variabele niet bekend meer (hij valt buiten zijn scope).
Dim de database niet zo:

code:

Dim CompDB As Database

maar zo:

code:

Public CompDB As Database

[OZ-Gump]

Beetje verkeerd gelezen.
Probeer het toch eens zoals in mijn post hierboven? Mocht dat niet lukken is het een idee om de database te declareren in een aparte module. Zo werk ik (meestal) ook en dat werkt vlotjes...

[ Voor 48% gewijzigd door OZ-Gump op 30-01-2003 17:02 ]

[Boy]

Public werkte btw ook niet. had ik al geprobeerd.

Helaas kan ik op dit moment niet wat gaan spelen ermee om dit uit te proberen, omdat het binnenkort af moet zijn. Maar ik zal het es wat verder proberen als ik wat meer tijd heb.