🚀 go-pugleaf

"Jos" <joske.vermeulen@hotmail.com> wrote in message
news:X%P98.132815$rt4.12594@afrodite.telenet-ops.be...
> Enkele simpele vraagjes:
> Hoe sluit ik een form, ik heb een functie exit, maar wanneer je daarop
klikt
> sluit mijn hele programma.

"Unload Me" als je die code aanroept van in de form zelf (bijv. dmv. een
knop
op die form), of "Unload FormX" als je de code van ergens anders oproept
(het laatste werkt ook van in de form zelf, maar als je die form dan ooit
van
naam verandert dan moet je die laatste code aanpassen; de eerste niet).

> Bij die functie staat dus ook db.close, wanneer ik nu zou klikken op het
> kruisje om dat form te sluiten
> wordt die database dan ook gesloten?

Neen.

> Zo nee, hoe moet ik dat oplossen zodat deze toch ook gesloten wordt?

Als je op het Xje van een form klikt of als je "Unload ..." gebruikt, dan
wordt
de event Form_Load geraised. Je kan dus je lijn "db.Close" in die
Form_Unload event zetten en dan wordt die telkens uitgevoerd (of je nu
op het Xje klikt of als je form afgeloten wordt dmv. code of eender wat).

> Private Sub Exit_Click()
> db.Close
> End
> End Sub

Nog een kleine opmerking: meestal probeert men zoveel mogelij 'End' te
vermijden
aangezien End je programma nogal bruusk stopt. (bijvoorbeeld, Unload events
worden
niet geraised).
Een betere methode om af te sluiten is alle Forms unloaden. Dan stopt je
applicatie
vanzelf.

Hier is een methode die automatisch alle Forms zal unloaden:

Public Sub UnloadAllForms()
    Dim Form As Form
    For Each Form In Forms
        Unload Form
        Set Form = Nothing
    Next Form
End Sub


Mvg,
Pieter Philippaerts