Discussion :

[bob_sapp]

salut,

je tourne autour d'un problème depuis bien longtemps et je n'ai jamais trouvé la solution, peut-être est-elle trop évidente ?

Enfin, je souhaite tout simplement via une macro VBA utilisant DAO :
- créer un base .mdb
- lui ajouter une table qui contient un champ
- puis remplir cette table

je bloque lors de l'ajout du champ à la table avec une erreur : 3219 opération non valide

voici le code en question :

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
 
Dim oDBEngine As DAO.DBEngine
Dim oWorkspace As DAO.Workspace
Dim oDataBase As DAO.Database
Dim oTableDef As DAO.TableDef
Dim ofield As DAO.Field
 
Set oDBEngine = CreateObject("DAO.DBEngine.36")
Set oDataBase = oDBEngine.CreateDatabase("C:\test.mdb", dbLangGeneral, 64)
Set oTableDef = oDataBase.CreateTableDef("PERSONNES")
Set ofield = oTableDef.CreateField("nom", dbText, 20)
'bloque à l'instruction ci après
oTableDef.Fields.Append (ofield)
oDataBase.TableDefs.Append (oTableDef)
 
oDataBase.Close

d'après ce que j'ai vu sur le net, ce code devrait s'executer sans problème...
si quelqu'un a une solution ou une idée, par avance merci

[Phifi]

Bonjour,

ça devrait marcher effectivement. Essaye en enlevant les parenthèses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
'bloque à l'instruction ci après
oTableDef.Fields.Append ofield
oDataBase.TableDefs.Append oTableDef
...

[bob_sapp]

MERCI BEAUCOUP !

effectivement sans les parenthèses, l'appel vers la méthode fonctionne !

j'ai l'habitude de mettre entre parenthèses les arguments des méthodes à cause des autres langages...

cf l'aide :

Dans le cas d'une procédure appelée sans le mot clé Call, vous ne devez pas encadrer argumentlist par des parenthèses.

j'aimerai bien savoir pourquoi dans ce cas précis l'appel n'a pas fonctionné

par exemple, un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print ("toto")

fonctionne lui ...

[Delbeke]

C'est un problème de compilateur. quand tu mets des parenthèses autour d'un argument, l'argument est évalué, puis déposé sur la pile avant l'appel à la fonction. C'est donc le résultat d'un calcul qui est passé à la fonction, pas la variable. Ce qui a peu d'importance si la procédure appelée ne tente pas de modifier le parametre et si la procèdure attend un variant.
Il convient d'etre attentif aux méthodes d'appel d'une function/Sub . A part MaSub MonParam, il faut utiliser des parenthèses autour de la liste des arguments. Ce qui est différent de parenthèses autour de chaque argument

Technique classique
===============
MaValeur = MaFonction( MonParam )
MaSub MonParam
Call MaSub(MonParam)

MonParam pourra ête modifié par la fonction/sub
Technique avec Parenthèses
======================
MaValeur = MaFonction( (MonParam) )
MaSub (MonParam)
Call MaSub((MonParam))

Dans ce second cas, MonParam est d'abord Evalué avant d'etre transmis sur la fonction/sub, c'est donc le résultat d'un calcul qui est transmis.

Autre façon de concevoir le problème
supposont MonParam de type numérique , on aurrait le même comportement avec ces lignes
MaValeur = MaFonction( MonParam + 0 )
MaSub MonParam+0
Call MaSub(MonParam+0)