Discussion :

[Kastejon]

Bonjour

J´ai besoin votre aide.

Je veux mettre à jour la table T_Necesidades, ce table contient pour 1 produit, différent enregistre avec différents jours. Je veux mise à jour le champ stock de la première journée d'inscription pour chaque enregistrement de la table (T_Necesidades). Le champ Stock vient de la table (T_Stock). J´utilise la méthode FindFirst avec une boucle.

Le problème est que dans la première ligne de la table (T_Necesidades), ne s'applique pas la méthode FindFirst, le code enregistré les dernières données de la table (T_Stock)

Désolé mon français écrit.

Le code vba:

Dim db As DAO.Database
Dim rstUp As DAO.Recordset
Dim rstRd As DAO.Recordset
Dim Code As String

Set db = CurrentDb()
Set rstUp = db.OpenRecordset("T_Necesidades", dbOpenDynaset)
Set rstRd = db.OpenRecordset("T_Stock", dbOpenDynaset)


rstRd.MoveFirst

Do While Not rstRd.EOF

Code = rstRd!Codigo
rstUp.FindFirst "Codigo=" & Code & ""

If Not rstRd.NoMatch Then
rstUp.Edit
rstUp!StockNecesidadees = rstRd!Stock
rstUp.Update

Else
rstUp.Edit
rstUp!StockSganl = 0
rstUp.Update
End If
rstRd.MoveNext

Loop

rstRd.Close
rstUp.Close

Cdlte.

[Kastejon]

Solution:


Set db = CurrentDb()
Set rstUp = db.OpenRecordset("T_Necesidades", dbOpenDynaset)
Set rstRd = db.OpenRecordset("T_Stock", dbOpenDynaset)

Do Until rstRd.EOF
rstUp.FindFirst "Codigo=" & rstRd!Codigo & ""

If Not rstUp.NoMatch Then
rstUp.Edit
rstUp!StockNecesidades = rstRd!Stock
rstUp.Update
End If
rstRd.MoveNext
Loop

rstRd.Close
rstUp.Close