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