Discussion :

[informer]

Bonjour

Ma question est basique mais comment procéder pour quitter l'application quand un formulaire (option fenêtre modale) est passé du mode formulaire à mode création/page?

Merc par avance

[nico84]

Bonjour,

J'imagine que c'est pour empêcher des modifs par les utilisateurs ? Si oui il est possible de bloquer toute modification avec ces instructions :

Code :

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

1
2
3
4
5
6
7
CurrentDb.Properties("StartupShowDBWindow") = false
CurrentDb.Properties("AllowShortcutMenus") = false
CurrentDb.Properties("AllowFullMenus") = false
CurrentDb.Properties("AllowBuiltinToolbars") = false
CurrentDb.Properties("AllowToolbarChanges") = false
CurrentDb.Properties("AllowBreakIntoCode") = false
CurrentDb.Properties("AllowBypassKey") = false

Attention à bien prévoir un bouton de "marche arrière" (visible seulement par les administrateurs) car sinon le programme devient impossible à modifier

Une autre solution consiste à ne mettre qu'un runtime sur les PC concernés

[informer]

Bien vu Nico84 et merci pour ta solution mais j'ai toujours la hantise d'un cas non pris en compte avec cette méthode, alors j'applique une solution encore plus radicale, la fermeture forcée de l'application par l'appel à l'API apiPostMessage. !!!

Sachant en plus que mon formulaire est en mode modale et reste toujours ouvert car c'est un formulaire de navigation !!! Ça borde un max !!!

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Const WM_CLOSE = &H10
Private Const INFINITE = &HFFFFFFFF
 
Private Declare Function apiPostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long,  ByVal wParam As Long,  lParam As Any) As Long
 
Private Sub Form_Unload(Cancel As Integer)
 
   Dim lhWnd As Long, lngRet As Long
 
    DoCmd.SetWarnings False
    lhWnd = Application.hWndAccessApp
    lngRet = apiPostMessage(lhWnd, WM_CLOSE, 0, ByVal 0&)
 
End Sub

C'est comme le petit lapin de la RATP, faut faire attention sinon tu vas te faire pincer les doigts très très fort !!!

[loufab]

Bonjour,

Avec une compilation accde plus personne ne peut passer en mode création.

Cordialement,

[informer]

Bonjour loufab,

Tu as raison mais il est encore possible de fermer les formulaires clic droit et permettre l'accès aux aux tables et requêtes , ce que je veux absolument interdire sans me poser de question sur une option que j'aurai oublié de mettre à faux !

C'est radical mais efficace