quesque "bds.propertires" ??

Le
Le Méruvien
Bonjour, pour désactiver la touche MAJ de ma base, j'ai copié la procédure
du forum access, ça à marché, mais maintenant ça marche plus !!
**********
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 Database, prp As Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp ' ************** 1
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) '********* 2
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function
***************
la fonction s'arrete à la ligne '**** 2 avec le message "incompatibilité de
type"
et a la ligne **** 1, la "bds.properties" affiche en mettant le curseur
dessu "propriétée non trouvée"
merci d'avance
roger
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #5009361
Bonjour.

essaie de modifier:
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
par
ModifiePropr "AllowBypassKey", "dbBoolean", blnAutoriserMaj

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:406fea41$0$16267$
Bonjour, pour désactiver la touche MAJ de ma base, j'ai copié la procédure
du forum access, ça à marché, mais maintenant ça marche plus !!
**********
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 Database, prp As Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp ' ************** 1
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) '********* 2
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function
***************
la fonction s'arrete à la ligne '**** 2 avec le message "incompatibilité
de

type"
et a la ligne **** 1, la "bds.properties" affiche en mettant le curseur
dessu "propriétée non trouvée"
merci d'avance
roger




Le Méruvien
Le #5009321
bonjour, raymond,
ça me donne comme erreur "erreur de convertion de type de donnée"


"Raymond [mvp]" news: #
Bonjour.

essaie de modifier:
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
par
ModifiePropr "AllowBypassKey", "dbBoolean", blnAutoriserMaj

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:406fea41$0$16267$
Bonjour, pour désactiver la touche MAJ de ma base, j'ai copié la
procédure


du forum access, ça à marché, mais maintenant ça marche plus !!
**********
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 Database, prp As Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp ' ************** 1
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) '********* 2
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function
***************
la fonction s'arrete à la ligne '**** 2 avec le message
"incompatibilité


de
type"
et a la ligne **** 1, la "bds.properties" affiche en mettant le curseur
dessu "propriétée non trouvée"
merci d'avance
roger








Raymond [mvp]
Le #5009311
je viens de placer tes fonctions d'origine (1er post) dans un formulaire
vierge et base vierge. tout se passe normalement sans erreurs, même après
plusieurs aller-retour par le false et le true dans blnAutoriserMaj.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:4070084c$0$16284$
bonjour, raymond,
ça me donne comme erreur "erreur de convertion de type de donnée"


Le Méruvien
Le #5009231
oui, moi aussi ça marche dans une autre base, mais pas dans celle là

"Raymond [mvp]" news:
je viens de placer tes fonctions d'origine (1er post) dans un formulaire
vierge et base vierge. tout se passe normalement sans erreurs, même après
plusieurs aller-retour par le false et le true dans blnAutoriserMaj.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:4070084c$0$16284$
bonjour, raymond,
ça me donne comme erreur "erreur de convertion de type de donnée"






Raymond [mvp]
Le #5009221
Tu n'aurais pas un problème de références sur ce poste ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:40703365$0$16286$
oui, moi aussi ça marche dans une autre base, mais pas dans celle là


Le Méruvien
Le #5009211
C quoi ce truc là??

"Raymond [mvp]" news:
Tu n'aurais pas un problème de références sur ce poste ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:40703365$0$16286$
oui, moi aussi ça marche dans une autre base, mais pas dans celle là






Raymond [mvp]
Le #5009181
sur le poste qui ne fonctionne pas:
fais alt+F11
menu outils / références
n'y-a-t-il pas une ligne cochée marquée "manquante" ? si oui décoche les
lignes marquées manquantes.
menu debug / recompiler pour vérifier que tout est présent.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:40703d21$0$16299$
C quoi ce truc là??



Le Méruvien
Le #5009151
ben non rien de tout ça, malheureusement,

"Raymond [mvp]" news: u7n#
sur le poste qui ne fonctionne pas:
fais alt+F11
menu outils / références
n'y-a-t-il pas une ligne cochée marquée "manquante" ? si oui décoche les
lignes marquées manquantes.
menu debug / recompiler pour vérifier que tout est présent.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Le Méruvien" news:40703d21$0$16299$
C quoi ce truc là??








Publicité
Poster une réponse
Anonyme