Forcer l'autoexec en acces
king07
-
julgood -
julgood -
bonjour,
j'ai une base de donnée access avec un autoexec pour lancer la page de présentation.
je sais qu'on peut desactiver l'autoexec avec le boutton shift maintenue mais en fait j'aimerai annuler voir remplacer ce boutton par un autre car bcp de mes collègues entre dans ma base par ce procédé
cmt faire???
Merci d'avance
j'ai une base de donnée access avec un autoexec pour lancer la page de présentation.
je sais qu'on peut desactiver l'autoexec avec le boutton shift maintenue mais en fait j'aimerai annuler voir remplacer ce boutton par un autre car bcp de mes collègues entre dans ma base par ce procédé
cmt faire???
Merci d'avance
A voir également:
- Forcer l'autoexec en acces
- Forcer demarrage pc - Guide
- Forcer réinitialisation pc - Guide
- Forcer suppression fichier - Guide
- Accès à internet - Guide
- Forcer à quitter - Guide
2 réponses
salut
J'aimerai savoir comment il est fait ton autoexe ca m'interresse beaucoup stp.
Si tu trouve solution à ton problème ca m'arrengerai aussi .
Je te remercie
J'aimerai savoir comment il est fait ton autoexe ca m'interresse beaucoup stp.
Si tu trouve solution à ton problème ca m'arrengerai aussi .
Je te remercie
Ayé g trouv comment faire l'autoexec mais j'aimerai savoir comment fermer la fenêtre: Mabase: Base de données
sans que le formulaire d'accueil se ferme merci
sans que le formulaire d'accueil se ferme merci
Sub DésactiverMaj()
Dim blnAutoriserMaj As Boolean
' Si blnAutoriserMaj vaut False, la touche [Maj] sera désactivée.
' Si blnAutoriserMaj vaut True, la touche [Maj] sera activée.
blnAutoriserMaj = False
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
If blnAutoriserMaj Then
MsgBox "La touche [Maj] est activée. Fermez la base et réouvrez-la pour tester."
Else
MsgBox "La touche [Maj] est désactivée. Fermez la base et réouvrez-la pour tester."
End If
End Sub
Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, _
varValeurProp As Variant) As Integer
Dim bds As DAO.Database, prp As DAO.Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp
ModifiePropr = True
Change_Sortie:
Exit Function
Change_Err:
If Err = conErreurPropNonTrouvée Then ' Propriété non trouvée.
Set prp = bds.CreateProperty(chNomPropriété, varTypeProp, varValeurProp)
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function
voila colle ca dans un module et execute sub DesactiverMaj
(petit bouton play)
ensuite relance ta base données et tu vera
Jul
Dim blnAutoriserMaj As Boolean
' Si blnAutoriserMaj vaut False, la touche [Maj] sera désactivée.
' Si blnAutoriserMaj vaut True, la touche [Maj] sera activée.
blnAutoriserMaj = False
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
If blnAutoriserMaj Then
MsgBox "La touche [Maj] est activée. Fermez la base et réouvrez-la pour tester."
Else
MsgBox "La touche [Maj] est désactivée. Fermez la base et réouvrez-la pour tester."
End If
End Sub
Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, _
varValeurProp As Variant) As Integer
Dim bds As DAO.Database, prp As DAO.Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp
ModifiePropr = True
Change_Sortie:
Exit Function
Change_Err:
If Err = conErreurPropNonTrouvée Then ' Propriété non trouvée.
Set prp = bds.CreateProperty(chNomPropriété, varTypeProp, varValeurProp)
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function
voila colle ca dans un module et execute sub DesactiverMaj
(petit bouton play)
ensuite relance ta base données et tu vera
Jul
