Bonjour,

J'ai un problème dans access pour l'instantiation d'un type personnalisé.

J'ai écrit :
Public Type MyType
    AA As String
End Type

Puis au clique d'un bouton, j'invoque le code suivant :

    Dim a As MyType
    a = New MyType

J'obtiens l'erreur suivante :
utilisation incorrect du mot clef new. Pourquoi ?

Je peux par contre écrire
    Dim a As MyType
    a.AA = "jdvklfd"

il semble donc qu'il ne soit pas possible d'instantier un type personnalisé. Ou alors il faut lui définir un constructeur ? Quelle serait la syntaxe ?

Mathmax

****************************************

Bonjour

MyType est ici une structure.

Dim a as MyType confère à a la structure définie pour MyType
a n'a pas à faire l'objet d'une "instanciation" autre, par "a = New...."

Comment faire une classe en vba ?

Mathmax

****************************************

salut,

pour ton exemple tu n'as pas besoin de classe

mais sinon, tu ajoutes une classe à ton projet, nommée MyType
elle contiendra juste :
Public AA As String

et là alors tu pourras l'initialiser par :
    Dim a As New MyType
    a.AA = "jdvklfd"

PS : attention au thème, VBA n'est pas VB6, voir "VB6\langages dérivés\VBA"
++

---

Prenez un instant pour répondre à ce sondage svp  

Merci mais ça ne marche pas.

J'ai insérer un module de classe. Ca m' a créer une classe Classe1. Mais quand j'execute ça plante sur

a = New Classe1

le message est "Variable objet ou variable bloc With non définie". Une idée du problème ?

Pardon pour le thème.

Mathmax

****************************************

où as-tu lu a = New Classe1 ?????

http://www.cpearson.com/excel/Classes.aspx

Mathmax

****************************************

effectivement si après tu lis mal ^^     sans méchanceté

"Dim C As Class1
Set C = New Class1"

donc comme j'ai inqué :
    Dim a As New MyType
    a.AA = "jdvklfd"


et si vraiment tu ne veux pas mettre NEW de suite, alors :
    Dim a As New MyType
    Set a = New MyType
    a.AA = "jdvklfd"

ce qui te fait une ligne de plus pour rien...

---

Prenez un instant pour répondre à ce sondage svp  

D'accord. Et pourquoi on ne peut pas faire
set a = null

Mathmax

****************************************