IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Erreur 13 sur modifications propriétés de démarrage [Toutes versions]


Sujet :

Access

  1. #1
    Invité
    Invité(e)
    Par défaut Erreur 13 sur modifications propriétés de démarrage
    Bonjour à tous

    Voulant tester une fonction de modification des menus de démarrage par Vba, j'ai introduit la fonction suivante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     
    Private Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Boolean
    Dim db As Database
    Dim prp As Property
    Const conPropNotFoundError = 3270 'erreur si propriété existe
    On Error GoTo Change_Err
    Set db = CurrentDb
    db.Properties(strPropName) = varPropValue
    ChangeProperty = True
    Exit Function
     
    Change_Err:
    If Err = conPropNotFoundError Then 'crèe la propriété
    Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
    db.Properties.Append prp
    Resume Next
    Else
    ChangeProperty = False
    Exit Function
    End If
    End Function
    Pour tester cette fonction j'ai supprimé une propriété par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    myDatabase.Properties.Delete "AllowFullMenus"
    Puis j'ai lancé ma fonction par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Public Function CreateProperty()
    Call ChangeProperty("AllowFullMenus", dbBoolean, False)
    End Function
    Or j'ai une erreur 13 "Incompatibilité de type" sur la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set prp = db.CreateProperty(strPropName, varPropType, varPropValue
    J'ai beau chercher, je ne trouve pas l'erreur. Y a t'il une référence particulière à ajouter?

    D'avance merci à tous.

  2. #2
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Points : 32 311
    Points
    32 311
    Par défaut
    Dim Prp As DAO.Property peut être ?

  3. #3
    Invité
    Invité(e)
    Par défaut
    Merci Tofalu
    C'était cela
    IL y a vraiment des fois où on mérite des baffes.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 18/08/2008, 13h55
  2. [ADO] Erreur sur modification
    Par femtosa dans le forum Bases de données
    Réponses: 9
    Dernier message: 06/06/2007, 11h35
  3. Réponses: 3
    Dernier message: 23/01/2006, 12h43
  4. erreur sur modification de la source d'un état
    Par Lou Pitchoun dans le forum Access
    Réponses: 1
    Dernier message: 07/10/2005, 12h38
  5. Réponses: 4
    Dernier message: 06/10/2005, 17h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo