Discussion :

[vlksoft]

bonjour à tous,
j'ai fais une procédure qui doit générer des codes articles en passant par un recordset. Mais il se fait que je connaisse un blocage. Voici la procédure:

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
Public Sub ecriture()
Dim NumCode As String
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("ZArticle")
NumCode = Val(rst.Fields("CodArt"))
Do While Not rst.EOF
    Debug.Print rst.Fields("CodArt"), rst.Fields("Article")
    Debug.Print NumCode
    If NumCode > 0 Then Else NumCode = DMax("NumCode", "rst") + 1
    rst.Fields("Codart") = rst.Fields("CodeCat") & rst.Fields("CodeCL") & NumCode
    Debug.Print rst.Fields("CodArt")
    rst.MoveNext
    'rst.RecordCount
Loop
MsgBox "Il y a eu au total" & rst.RecordCount
'MsgBox "Le traitement est terminé"
End Sub

Quand je l'exécute, voici la ligne qui est surlignée

Code :

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

NumCode = DMax("NumCode", "rst") + 1

et voici le message d'erreur:

Code :

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

3078         Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requête source 'rst'. Assurez-vous qu'elle existe et qu'elle est correctement orthographiée.

quelqu'un pourrait me dire pouquoi ceci ne marche pas?
merci

[Heureux-oli]

Salut,

Je pense pas que l'on puisse appliquer un fonction Dmax sur un recordset.
Essaie de le faire sur une requête.

[Invité]

Bonjour

Je plussoies ce que dit Heureux-oli .

Les fonctions de domaines ne peuvent travailler que sur des tables ou des requêtes qui sont présentes dans ta base.

Comme ton recordset est pris sur ZArticle, je te conseille de remplacer rst par ce nom.

Philippe

[vlksoft]

merci à tous les deux,

a dit Philippe JOCHMANS

Code :

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

Comme ton recordset est pris sur ZArticle, je te conseille de remplacer rst par ce nom.

je l'avais déjà fais, pas de connection.

a dit Heureux-oli

Code :

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

Essaie de le faire sur une requête.

je vais tenter de faire ça. Mais je présume que dans une requête les données seront traitées par lot et non pas enregistrement par enregistrement. la difficulté risque de rester intacte. Je tente tout de même quelque chose et je vous dis quoi.

mecri

[Heureux-oli]

Salut,

Mais de toute façon, comme tu utilises la fonction pour chaque enregistrement du recordset, tu auras une nouvelle valeur à chaque utilisation.