OVH Cloud OVH Cloud

Shift ( Fonction de 3 Stone )

23 réponses
Avatar
Ayrton [ ASC ]
Bonjour à tous, Bonjour 3 stone

Voilà, j'ai insérer cette fonction dans un moduel :
Option Compare Database
Option Explicit

Function DesactiveShift()
Dim Dbs As Dao.Database
Dim Prp As Dao.Property

Set Dbs = CurrentDb()
Dbs.Properties("AllowByPassKey") = False

Set Prp = Nothing
Dbs.Close
Set Dbs = Nothing
End Function
Quand je compile, la ligne : Dbs As Dao.Database est surlignée et un message
me dit :"Type défini par l'utilisateur non défini"Si quelqu'un avait une
petite idée car je ne sais pas quoi faire devant ce messageMerci à tous--
CordialementChristophe

3 réponses

1 2 3
Avatar
Ayrton [ASC]
Bonjour *3stone*
Dans ton message de news:,
Tu as pensé très fort :-(*)
Salut,


Bonsoir 3stone,

Tu as fermé proprement la première ?
Pas de Christophe.ldb qui traîne ?


Je ne pense pas

ExécuterCode...


Oui exact

Je viens de faire le test... tout va bien pourtant ;-)


Eh bie nje viens de refaire l'essai chez moi avec deux bases test ( tu
penses bien que je test avant de le faire sur une appli du boulot car comme
ça, si je "merdouille " un peu, il vaut mieux que ce soit sur des bases sans
importance ;-) ) et ça ne vas pas ; mais là j'ai l'erreur 3024 ( Impossible
de trouver le fichier :"C:Documents............"
Et je suis sûr et certain du chemin ( dans Mes Documents c'est pas
difficile ) et j'ai copié/collé ta fonction, donc pas d'erreur de recopiage
;-)

Mais bon, si ça fonctionne quand tu test, ça devrait aussi fonctionner chez
moi ! Donc, pas de mystère, l'erreur est de mon côté ; mais ou ?
Bon je vais continuer à chercher ;-)

Merci encore Pierre et excuse moi

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Avatar
Ayrton [ASC]
Re Pierre,

Eh bien je viens t'annoncer que je suis encore plus mauvais que ce que je
croyais! ;-)
En chechant bien d' où venait mon erreur, je visn de m'apercevoir qu'au lieu
de nommer le fichier avec l'extension.mdb, je le faisais en marquant.mbd
;-( Donc forcément, ça marcahit pas !
En mettant bien la bonne extension, ça fonctionne pil poil ! ;-)

Comme quoi la route est encore longue ! ! !

Avec encore toutes mes excuses pour t' avoir solliciter bêtement et tous mes
remerciements pour tes conseils toujours aussi précieux !

Bonne soirée

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
3stone
Salut;

"Ayrton [ASC]"
[...]
| En mettant bien la bonne extension, ça fonctionne pil poil ! ;-)


Ben voilà... c'est ce qui importe...

Allez, accroche-toi !
Et comme le disait Lucien Jeunesse, "à demain si vous le voulez bien"

;-))


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
1 2 3