Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access quesque "bds.propertires" ??

quesque "bds.propertires" ??

8 réponses
Avatar
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
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
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" a écrit dans le message de
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




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


"Raymond [mvp]" a écrit dans le message de
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" a écrit dans le message de
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








Avatar
Raymond [mvp]
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" a écrit dans le message de
news:4070084c$0$16284$
bonjour, raymond,
ça me donne comme erreur "erreur de convertion de type de donnée"


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

"Raymond [mvp]" a écrit dans le message de
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" a écrit dans le message de
news:4070084c$0$16284$
bonjour, raymond,
ça me donne comme erreur "erreur de convertion de type de donnée"






Avatar
Raymond [mvp]
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" a écrit dans le message de
news:40703365$0$16286$
oui, moi aussi ça marche dans une autre base, mais pas dans celle là


Avatar
Le Méruvien
C quoi ce truc là??

"Raymond [mvp]" a écrit dans le message de
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" a écrit dans le message de
news:40703365$0$16286$
oui, moi aussi ça marche dans une autre base, mais pas dans celle là






Avatar
Raymond [mvp]
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" a écrit dans le message de
news:40703d21$0$16299$
C quoi ce truc là??



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

"Raymond [mvp]" a écrit dans le message de
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" a écrit dans le message de
news:40703d21$0$16299$
C quoi ce truc là??