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
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
Salut,
Re,
Sans les guillemets, j'espère.
Aie Aie ! ! J'avais mis les guillemets ;-( Tu ne te rappelles sûrement plus mais je t'avais déjà dit que j'avais un souci avec mes guillemets, simples ou doubles ; je ne sais jamais quand il faut les mettre ou pas ou quand il faut des simples ou des doubles, quand ce n'est pas les deux ; j'ai souvent vu dans des provédures des trucs du genre : "'" ; donc pour moi c'est dur !! ;-) Mais bon je m'accroche et je continue mon apprentissage.
Ceci étant, quand j'enlève les guillemets, à l'ouverture de la base ( sans appuyer sur shift ), voici ce que j'ai: http://cjoint.com/?iebFHwjF3J
et si je cherche ce qui ne vas pas, j'ai cela : http://cjoint.com/?iebKuHhxDE
Et si je click sur shift, elle s'ouvre normalement avec en prime..............................................................................la fenêtre Base de Données ;-) C'est à devenir fou mon histoire ! ! ! !
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone*
Dans ton message de news:OL9earHmFHA.3960@TK2MSFTNGP12.phx.gbl,
Tu as pensé très fort :-(*)
Salut,
Re,
Sans les guillemets, j'espère.
Aie Aie ! ! J'avais mis les guillemets ;-(
Tu ne te rappelles sûrement plus mais je t'avais déjà dit que j'avais un
souci avec mes guillemets, simples ou doubles ; je ne sais jamais quand il
faut les mettre ou pas ou quand il faut des simples ou des doubles, quand ce
n'est pas les deux ; j'ai souvent vu dans des provédures des trucs du genre
: "'" ; donc pour moi c'est dur !! ;-) Mais bon je m'accroche et je
continue mon apprentissage.
Ceci étant, quand j'enlève les guillemets, à l'ouverture de la base ( sans
appuyer sur shift ), voici ce que j'ai:
http://cjoint.com/?iebFHwjF3J
et si je cherche ce qui ne vas pas, j'ai cela :
http://cjoint.com/?iebKuHhxDE
Et si je click sur shift, elle s'ouvre normalement avec en
prime..............................................................................la
fenêtre Base de Données ;-)
C'est à devenir fou mon histoire ! ! ! !
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
Salut,
Re,
Sans les guillemets, j'espère.
Aie Aie ! ! J'avais mis les guillemets ;-( Tu ne te rappelles sûrement plus mais je t'avais déjà dit que j'avais un souci avec mes guillemets, simples ou doubles ; je ne sais jamais quand il faut les mettre ou pas ou quand il faut des simples ou des doubles, quand ce n'est pas les deux ; j'ai souvent vu dans des provédures des trucs du genre : "'" ; donc pour moi c'est dur !! ;-) Mais bon je m'accroche et je continue mon apprentissage.
Ceci étant, quand j'enlève les guillemets, à l'ouverture de la base ( sans appuyer sur shift ), voici ce que j'ai: http://cjoint.com/?iebFHwjF3J
et si je cherche ce qui ne vas pas, j'ai cela : http://cjoint.com/?iebKuHhxDE
Et si je click sur shift, elle s'ouvre normalement avec en prime..............................................................................la fenêtre Base de Données ;-) C'est à devenir fou mon histoire ! ! ! !
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
3stone
Ok, compris ;-( En fait, c'est parce que la propriété n'existe pas encore chez toi...
Modifie la fonction comme ceci:
Function DesactiveShift() On Error GoTo errProperty 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
okProperty: Exit Function
errProperty: Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False) Dbs.Properties.Append Prp Resume okProperty End Function
Bonjour *3stone* Dans ton message de news:%, Tu as pensé très fort :-(*)
Ok, compris ;-( En fait, c'est parce que la propriété n'existe pas encore chez toi...
Modifie la fonction comme ceci:
Function DesactiveShift() On Error GoTo errProperty 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
okProperty: Exit Function
errProperty: Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False) Dbs.Properties.Append Prp Resume okProperty End Function
Merci 1000 fois Pierre ça fonctionne ;-) Tu vois bien que le débutant que je suis n'aurait jamais pu trouver ça tout seul !
La seule chose que je ne comprends pas c'est quand tu me dit : " C'est parce que la propriété n'esxiste pas encore chez toi " ; mais bon........
Désolé pour le contre-temps!
Tu plaisantes ! ! Tu n'a pas à t'excuser ; c'est plutôt moi qui te remercie encore ton aide, de ta patience et de ta gentillesse. Merci encore Pierre
Bonne nuit ;-)
PS : Et aussi un bravo pour la rapidité de ta réponse ! 2mn entre ma question et ta réponse ! Qui dit mieux ! !?? lol
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
3stone
re,
"Ayrton [ASC]" [..] | La seule chose que je ne comprends pas c'est quand tu me dit : " C'est parce | que la propriété n'esxiste pas encore chez toi " ; mais bon........
On ne peut manipuler ces propriétées qu'à la condition quelles existent... Du coup, j'ai fais la mise à jour de la fonction sur le site :o)
| PS : Et aussi un bravo pour la rapidité de ta réponse ! 2mn entre ma | question et ta réponse ! Qui dit mieux ! !?? lol
Hé hé, j'avais triché un peu ;-)) je me suis souvenu de cette particularité dans la seconde qui a suivi l'envoi du message précédent. Comme quoi, répondre rapidement n'est pas toujours bénéfique!
"Ayrton [ASC]"
[..]
| La seule chose que je ne comprends pas c'est quand tu me dit : " C'est parce
| que la propriété n'esxiste pas encore chez toi " ; mais bon........
On ne peut manipuler ces propriétées qu'à la condition quelles existent...
Du coup, j'ai fais la mise à jour de la fonction sur le site :o)
| PS : Et aussi un bravo pour la rapidité de ta réponse ! 2mn entre ma
| question et ta réponse ! Qui dit mieux ! !?? lol
Hé hé, j'avais triché un peu ;-))
je me suis souvenu de cette particularité dans la seconde qui a suivi
l'envoi du message précédent.
Comme quoi, répondre rapidement n'est pas toujours bénéfique!
"Ayrton [ASC]" [..] | La seule chose que je ne comprends pas c'est quand tu me dit : " C'est parce | que la propriété n'esxiste pas encore chez toi " ; mais bon........
On ne peut manipuler ces propriétées qu'à la condition quelles existent... Du coup, j'ai fais la mise à jour de la fonction sur le site :o)
| PS : Et aussi un bravo pour la rapidité de ta réponse ! 2mn entre ma | question et ta réponse ! Qui dit mieux ! !?? lol
Hé hé, j'avais triché un peu ;-)) je me suis souvenu de cette particularité dans la seconde qui a suivi l'envoi du message précédent. Comme quoi, répondre rapidement n'est pas toujours bénéfique!
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
On ne peut manipuler ces propriétées qu'à la condition quelles existent... Du coup, j'ai fais la mise à jour de la fonction sur le site :o)
Et j'espère que la fonction qui permet de récupérer la touche shift va fonctionner sinon je me retrouve le bec dans l'eau ;-) Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche shift, la fenêtre de la BDD s'ouvre ;-(
Hé hé, j'avais triché un peu ;-)) je me suis souvenu de cette particularité dans la seconde qui a suivi l'envoi du message précédent Comme quoi, répondre rapidement n'est pas toujours bénéfique!
C'est vrai mais en attendant tu as trouvé :-D
Bon allez, je vais me coucher sinon demain ça va encore être la lutte pour me lever lol Merci encore
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone*
Dans ton message de news:uGZMuNImFHA.3568@TK2MSFTNGP10.phx.gbl,
Tu as pensé très fort :-(*)
On ne peut manipuler ces propriétées qu'à la condition quelles
existent... Du coup, j'ai fais la mise à jour de la fonction sur le
site :o)
Et j'espère que la fonction qui permet de récupérer la touche shift va
fonctionner sinon je me retrouve le bec dans l'eau ;-)
Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement )
et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche
shift, la fenêtre de la BDD s'ouvre ;-(
Hé hé, j'avais triché un peu ;-))
je me suis souvenu de cette particularité dans la seconde qui a suivi
l'envoi du message précédent
Comme quoi, répondre rapidement n'est pas toujours bénéfique!
C'est vrai mais en attendant tu as trouvé :-D
Bon allez, je vais me coucher sinon demain ça va encore être la lutte pour
me lever lol
Merci encore
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
On ne peut manipuler ces propriétées qu'à la condition quelles existent... Du coup, j'ai fais la mise à jour de la fonction sur le site :o)
Et j'espère que la fonction qui permet de récupérer la touche shift va fonctionner sinon je me retrouve le bec dans l'eau ;-) Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche shift, la fenêtre de la BDD s'ouvre ;-(
Hé hé, j'avais triché un peu ;-)) je me suis souvenu de cette particularité dans la seconde qui a suivi l'envoi du message précédent Comme quoi, répondre rapidement n'est pas toujours bénéfique!
C'est vrai mais en attendant tu as trouvé :-D
Bon allez, je vais me coucher sinon demain ça va encore être la lutte pour me lever lol Merci encore
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
3stone
Salut,
"Ayrton [ASC]" | Et j'espère que la fonction qui permet de récupérer la touche shift va | fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
| Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) | et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche | shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
Si tu veux quelle soit réduite, ajoute en première ligne de ta macro autoexec:
"Ayrton [ASC]"
| Et j'espère que la fonction qui permet de récupérer la touche shift va
| fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
| Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement )
| et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche
| shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
Si tu veux quelle soit réduite, ajoute en première ligne
de ta macro autoexec:
"Ayrton [ASC]" | Et j'espère que la fonction qui permet de récupérer la touche shift va | fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
| Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) | et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche | shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
Si tu veux quelle soit réduite, ajoute en première ligne de ta macro autoexec:
Et j'espère que la fonction qui permet de récupérer la touche shift va fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
Ah une bonne nouvelle ! ;-)
Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
D'accord ; je pensais bêtement que cela avait un rapport ;-(
Si tu veux quelle soit réduite, ajoute en première ligne de ta macro autoexec:
ExécuterCommande => RéduireFenêtre
Ok; merci pour tout Pierre ! Bien à toi
-- Cordialement Christophe
Bonjour,
" 3stone "
Salut,
Re 3stone
"Ayrton [ASC]"
Et j'espère que la fonction qui permet de récupérer la touche shift
va fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
Ah une bonne nouvelle ! ;-)
Par contre j'ai vu que si l'on ouvre access ( et non l'appli
directement ) et qu'on fait Fichier puis que l'on ouvre l'appli en
appuyant sur la touche shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
D'accord ; je pensais bêtement que cela avait un rapport ;-(
Si tu veux quelle soit réduite, ajoute en première ligne
de ta macro autoexec:
Et j'espère que la fonction qui permet de récupérer la touche shift va fonctionner sinon je me retrouve le bec dans l'eau ;-)
Oui, puisque la propriété existe maintenant, forcément.
Ah une bonne nouvelle ! ;-)
Par contre j'ai vu que si l'on ouvre access ( et non l'appli directement ) et qu'on fait Fichier puis que l'on ouvre l'appli en appuyant sur la touche shift, la fenêtre de la BDD s'ouvre ;-(
Inhiber le Shift n'a rien à voir avec la fenêtre de la DB.
D'accord ; je pensais bêtement que cela avait un rapport ;-(
Si tu veux quelle soit réduite, ajoute en première ligne de ta macro autoexec:
ExécuterCommande => RéduireFenêtre
Ok; merci pour tout Pierre ! Bien à toi
-- Cordialement Christophe
Ayrton [ ASC ]
Re 3stone,
Excuse moi mais j'ai un petit problème pour récuperer mon appli ! J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au lancement de la deuxième appli pour récupérer la touche sur la première, j'ai ce message : http://cjoint.com/?ies2WswFr3
Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de la première base est bon malgré que le message me dise le contraire Encore un mystère ?
J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de fonction : ReactiverShift() Je pense avoir tout bien fait.
Merci
-- Cordialement Christophe
Re 3stone,
Excuse moi mais j'ai un petit problème pour récuperer mon appli !
J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au
lancement de la deuxième appli pour récupérer la touche sur la première,
j'ai ce message :
http://cjoint.com/?ies2WswFr3
Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de
la première base est bon malgré que le message me dise le contraire
Encore un mystère ?
J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de
fonction : ReactiverShift()
Je pense avoir tout bien fait.
Excuse moi mais j'ai un petit problème pour récuperer mon appli ! J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au lancement de la deuxième appli pour récupérer la touche sur la première, j'ai ce message : http://cjoint.com/?ies2WswFr3
Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de la première base est bon malgré que le message me dise le contraire Encore un mystère ?
J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de fonction : ReactiverShift() Je pense avoir tout bien fait.
Merci
-- Cordialement Christophe
3stone
Salut,
"Ayrton [ ASC ]" | Excuse moi mais j'ai un petit problème pour récuperer mon appli ! | J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au | lancement de la deuxième appli pour récupérer la touche sur la première, | j'ai ce message : | http://cjoint.com/?ies2WswFr3
Tu as fermé proprement la première ? Pas de Christophe.ldb qui traîne ?
| Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de | la première base est bon malgré que le message me dise le contraire | Encore un mystère ? | | J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de | fonction : ReactiverShift()
ExécuterCode...
Je viens de faire le test... tout va bien pourtant ;-)
"Ayrton [ ASC ]"
| Excuse moi mais j'ai un petit problème pour récuperer mon appli !
| J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au
| lancement de la deuxième appli pour récupérer la touche sur la première,
| j'ai ce message :
| http://cjoint.com/?ies2WswFr3
Tu as fermé proprement la première ?
Pas de Christophe.ldb qui traîne ?
| Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de
| la première base est bon malgré que le message me dise le contraire
| Encore un mystère ?
|
| J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de
| fonction : ReactiverShift()
ExécuterCode...
Je viens de faire le test... tout va bien pourtant ;-)
"Ayrton [ ASC ]" | Excuse moi mais j'ai un petit problème pour récuperer mon appli ! | J'ai suivi à la lettre ta fonction pour recupérer la touche shift mais au | lancement de la deuxième appli pour récupérer la touche sur la première, | j'ai ce message : | http://cjoint.com/?ies2WswFr3
Tu as fermé proprement la première ? Pas de Christophe.ldb qui traîne ?
| Dois je faire une modif ? Je peux par contre *t*' *assurer* que le chemin de | la première base est bon malgré que le message me dise le contraire | Encore un mystère ? | | J'ai aussi fazit une macro AutoExec "Executer Fonction " avec comme nom de | fonction : ReactiverShift()
ExécuterCode...
Je viens de faire le test... tout va bien pourtant ;-)
