[ACCESS] Module oproepen

[midget]

Ik heb in Access 97 onder het tabblad modules de volgende module gemaakt:

PHP:

Option Compare Database
'Option Explicit
____________________________________________________________

Public Sub Sluit()

On Error GoTo Err_Sluit

    Dim Msg, Style, Title, Response
    'Tekst die wordt weer gegeven
    Msg = "Weet u dat u dit formulier wilt sluiten?"
    'Geeft een Ja en Nee knop
    Style = vbYesNo
    Title = "Sluiten Ja / Nee"
    Response = MsgBox(Msg, Style, Title)
    Style = vbOKOnly
    Title = "En het is geworden..."
    If Response = vbYes Then
    Msg = "Ja"
    DoCmd.Close
    Else
    Msg = "Nee"
    End If

    
Exit_Sluit:
    Exit Sub

Err_Sluit:
    MsgBox "U heeft een fout gemaakt bij het afsluiten van dit formulier." & Chr(13) & "Werk verder of probeer het opnieuw."
    Resume Exit_Sluit
    
End Sub

_____________________

Daarna heb ik in een formulier een knop gemaakt met de volgende code:

PHP:

Public Sub Sluit_Click()
    Call Sluit
End Sub

_____________________

Nu doet ie het niet krijg een foutmelding:

Compileer Fout:

Ongeldig gebruik van een eigenschap.

Wat doe ik fout?

[Verwijderd]

Je hebt zeker een button gemaakt met de naam sluit ?
Ik zou de naam van de sub in je module eens veranderen.

[Verwijderd]

Ik zou ook nog gebruik maken van naamconventies, dan heb je ook geen last van dit soort problemen.

En misschien moet je ook even kijken hoe je de msgbox nu echt gebruikt. Vaak werkt die wel als je de style ed in de aanroep gebruikt.

Als ik je goed begrijp zou ik dit afvragen mbv een functie die een boolean terug geeft en die aan de Cancel hangt.

code:

Public Sub Form_QueryUnload(Cancel as blaat) <- ongeveer ik doe het ook uit mijn hoofd
    Cancel = fncblnSluit()
end sub

Public Function fncblnSluit() as boolean
    select case msgbox("Meuk sluiten?, vbYesNo + vbInformation,"Domme vraag...")
    case vbYes
        fncblnSluit = True
    case vbNo
        fncblnSluit = False
    end select

End Function

succes