Discussion :

[lio62]

Bonjour,

j'ai une base de données fractionnées lorqsue je lance l'application frontale si je clique su CTRL CLIC ou CTRL ENTREE il part en mode sans echec alors que j'a sécurisé cette base quelqu'un peut il m'aider SVP afin de désactiver le mode sans echec

CDLT

[bertiny]

Bonsoir
Dans un module tu mettras la formation ci-dessous que tu appeleras dans une macro autoexec.

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
 
 Function DesactiveShiftCtrl()
 On Error GoTo errProperty
 Dim Dbs As DAO.Database
 Dim Prp As DAO.Property
 Set Dbs = CurrentDb()
 Dbs.Properties("AllowByPassKey") = False
 
okProperty:
 Set Prp = Nothing
 Dbs.Close
 Set Dbs = Nothing
 Exit Function
 
errProperty:
 Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False)
 Dbs.Properties.Append Prp
 Resume okProperty
 
 End Function

Cordialement

[lio62]

Bonsoir
Dans un module tu mettras la formation ci-dessous que tu appeleras dans une macro autoexec.

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
 
 Function DesactiveShiftCtrl()
 On Error GoTo errProperty
 Dim Dbs As DAO.Database
 Dim Prp As DAO.Property
 Set Dbs = CurrentDb()
 Dbs.Properties("AllowByPassKey") = False
 
okProperty:
 Set Prp = Nothing
 Dbs.Close
 Set Dbs = Nothing
 Exit Function
 
errProperty:
 Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False)
 Dbs.Properties.Append Prp
 Resume okProperty
 
 End Function

Cordialement

Bonsoir et merci Bertiny,

si j'ai bien compris j'appelle desactivshitctrl dans l'autoexec ? désolé je ne suis pas tres a la'aise avec l'autoexec
je teste
cdlt
lionel

[bertiny]

Bonjour
Oui tu crées une macro que tu appeleras autoexec. C'est une macro qui se lance au démarrage de l'application. Dans celle-ci tu appeleras ta fonction à l'aide de la commande ExécuterCode de la macro.
L'appel sera fait comme ceci DesactiveShiftCtrl(). C'est la valeur attendue au niveau du nom de la fonction.

Cordialement

[lio62]

Bonjour
Oui tu crées une macro que tu appeleras autoexec. C'est une macro qui se lance au démarrage de l'application. Dans celle-ci tu appeleras ta fonction à l'aide de la commande ExécuterCode de la macro.
L'appel sera fait comme ceci DesactiveShiftCtrl(). C'est la valeur attendue au niveau du nom de la fonction.

Cordialement

Bonjour et merci beaucoup Bertiny

ca marche

cdlt
[/B]