|
Sujet n°245 |
Reactiver la touche shift
par Romario225
le 27/05/2009 : 20:17 |
Salut pierre je n'arrive pas à appliquer cette fonction en effet j'ai fait le copier coller en indiquant le chemin d'accès à ma base mais la machine me renvoie un bug me disant que le mot de passe n'est pas valide et selectionne la ligne mise en evidence. je rappelle que ma base a un mot de passe Function ReactiverShift() Dim bds As Dao.Database Dim prp As Dao.Property Set bds = DBEngine.OpenDatabase("C:\CheminBase_a_Deverrouiller.mdb") bds.Properties("AllowBypassKey") = True MsgBox bds.Name & " est de nouveau accessible." Set prp = Nothing bds.Close Set bds = Not |
Réponse n° 1 |
par 3Stone le 27/05/2009 : 22:27 |
Bonjour,
Pour commencer, il faut compiler le code pour voir s'il n'y a pas d'erreur et corriger. Pour cela, dans le VBA, appeler le menu "Débogage, Compliler..."
Ensuite, étant donné qu'il faut la référence DAO, aller dans le menu "Outils, Références" et cocher la référence "Microsoft DAO3.6 Object Library"
Cela devrait aller mieux
Cordialement, Pierre(3stone)
|
[ Retour à la liste des sujets ]
| Recherche
Préférences
1 membre
Connectés :
( personne )
|