Luk Databasen

Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click

    If msgBox("Do you want to exit ?", vbYesNo, "Exit System?") = vbYes Then DoCmd.Quit

Exit_cmdExit_Click:
    Exit Sub

Err_cmdExit_Click:
    msgBox Err.Description
    Resume Exit_cmdExit_Click
   
End Sub

You can place this code in a forms unload event. Then you need to have the form loaded as soon as you start the program. You could also hide the form if you dont want to see it.
When you try to close Access it will attempt to close all open forms but thsi code Cancels  it.

Private Sub Form_Unload(Cancel As Integer)

    If MsgBox("Do you want to exit ?", vbYesNo, "Exit System?") = vbYes Then
   
    Else
        Cancel = True
    End If

End Sub

Lige det jeg skal bruge TAK ;-)