Discussion :

[darkspoilt]

Bonjour a tous!
j'ai un ptit souci tout bête
En fait j'ouvre naturelement une base Access a la main donc j'ai un formulaire qui s'ouvre automatiquement
et j'aimerais créer un bouton pour quitter mon application access et non que le fomulaire
donc j'ai essayé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande6_Click()
 
 Dim MonAccess As New Access.Application
 Set MonAccess = CurrentDatabase
 MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing
 
 
End Sub

Celam e met objet requit lors du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MonAccess = CurrentDatabase

Mais je pense que c'est autre chose que Current Database mais petu être un Current Access ou autre
Si quelqu'un peut m'aider je le remcie énormément d'avance

[Jean-Philippe André]

Salut,
essaie avec CurrentDb

[darkspoilt]

Je l'ai déja fait mais il me met imcompatibilité de type c'est pas ma fenêtre Access que je veux fermer alors que j'ouvre Access a la main.
On m'a demandé de créer un bouton quitter au cas ou les gens serait pas assez futé pour cliquer sur la croix

[berti]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
tout bêtement
 
Private Sub Commande6_Click()
 
docmd.quit
 
End Sub

tu peux même te créer un message qui te demande si tu es sur de vouloir quitter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande6_Click()
 
Dim reponse
 
reponse = MsgBox("Etes-vous sûr de vouloir quitter l'application ?", vbYesNo, "ATTENTION")
 
If reponse = vbYes Then
DoCmd.Quit
End If
 
End Sub

[Invité]

Bonjour

Pourquoi tu n'écris pas tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Quit

Starec

[darkspoilt]

Merci beaucoup, Je pensais pas que c'étais si simple et puis merci aussi our la boite de dialogue cela m'a permit de savoir commento n demande a oui ou un non et c'est "vbno" lorsqu'on dis non?

[berti]

il ne se passe rien c'est vbno sinon tu peux lui faire un traitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If reponse = vbNo Then
'traitement vb
End If

tout est faisable

[darkspoilt]

Merci

[mnssylvain]

bonjour

dans la suite de cette idée, je voudrais que seul le bouton quitter ferme ma base et non la croix rouge (pas celle du formulaire celle d'access)
si quelqu'un c'est comment faire ça serait super cool
merci beaucoup

[mnssylvain]

bon ben j'ai trouvé je met le code au cas où..

A mettre dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Compare Database
 
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
 
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
Const MF_BYCOMMAND = &H0
Const SC_RESTORE = &HF120
 
Public Function desacfermeture()
 
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
 
nCount = GetMenuItemCount(hMenu)
 
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 3, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
DrawMenuBar Application.hWndAccessApp
 
End Function

voilou