probleme fonction vba, le renvoi ne marche pas

Marsh Posté le 25-12-2008 à 17:19:48

Bonjour et joyeux Noel

j'ai un souci en vba, la fonction ci-dessous est sensé renvoyé un élément de collection mais la partie de code :

creationAction = naction

ne marche pas.
cette fonction intervient pour une entrée de base de donnée (avec 2 champs ; nom et quantite), j'ai fais f8 pour voir et donc naction.nom et naction.quantite prennent bien les bonnes valeurs (pour la 1ere ligne de ma table) et après ça passe au renvoi et là ça bloque. il me met "variable objet ou variable de bloc with non définie"
quelqu'un pourrait m'aider ?

merci.

Code :

' à partir d'une entree de bdd
Private Function creationAction(monEnr As DAO.Recordset) As Action
Dim naction As Action
Dim monChamp As DAO.Field
Set naction = New Action
Dim i As Integer
i = 0
For Each monChamp In monEnr.Fields
If (i = 0) Then
naction.Nom = monChamp.Value
ElseIf (i = 1) Then
naction.Quantite = monChamp.Value
End If
i = i + 1
Next
creationAction = naction 'probleme
End Function

merci

Marsh Posté le 25-12-2008 à 17:19:48

Marsh Posté le 26-12-2008 à 09:23:11

Peut-être que le problème se situe dans les lignes :

Dim naction As Action
Set naction = New Action

La seconde ligne m'intrigue parce qu'elle n'est pas cohérente avec la première. Je me demande s'il ne faudrait pas supprimer la ligne du New.

C'est comme si on avait les deux lignes suivantes qui n'auraient aucun sens

Dim s As String
Set s = New String

Marsh Posté le 26-12-2008 à 14:46:47

Sinon, ne faut-il pas faire :

Code :

Set creationAction = naction
'c-a-d rajouter le Set'

:??:

Marsh Posté le 26-12-2008 à 16:12:12

oui merci les gars, c'était bien rajouté un set devant qui posait problème

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *