Forcer l'autoexec en acces

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

2 réponses

  1. 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
    0
    1. als pour fermer la fenetre mabase C facil
      ds ton autoexec avt de faire ouvrirmacro tu fait tous simplement un fermer!!
      0
    2. si ca t'interresse g trouv comment désactiver MAJ
      0
    3. @julgoodoui ça m'intereese bcp bcp!!!! je t'en remercie d'avance
      0
    4. @julgoodSub 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
      0
  2. 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
    0