Comment incrémenter de 1 unité un champ de table par une requete "Mise à Jour"
2 réponses
pierre.valersteinas
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas
renseigné.
Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ
une valeur numérique qui s'incrémente de 1 unité pour tous les
enregistrements de la table.
Quel serait son code en VBA ?
La valeur de départ est un nombre défini.(par exemple 137)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Une proposition sans SQL ferait l'affaire ?
Sub MajCERFA(NumDEPART As Long) 'Charger la référence Microsoft DAO 3.x Object Library Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON") While Not rst.EOF rst.Edit rst(3) = NumDEPART ' correspond au 4e champ rst.Update NumDEPART = NumDEPART + 1 rst.MoveNext Wend Set rst = Nothing End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas renseigné. Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ une valeur numérique qui s'incrémente de 1 unité pour tous les enregistrements de la table. Quel serait son code en VBA ? La valeur de départ est un nombre défini.(par exemple 137)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Une proposition sans SQL ferait l'affaire ?
Sub MajCERFA(NumDEPART As Long)
'Charger la référence Microsoft DAO 3.x Object Library
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON")
While Not rst.EOF
rst.Edit
rst(3) = NumDEPART ' correspond au 4e champ
rst.Update
NumDEPART = NumDEPART + 1
rst.MoveNext
Wend
Set rst = Nothing
End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas
renseigné.
Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ
une valeur numérique qui s'incrémente de 1 unité pour tous les
enregistrements de la table.
Quel serait son code en VBA ?
La valeur de départ est un nombre défini.(par exemple 137)
Sub MajCERFA(NumDEPART As Long) 'Charger la référence Microsoft DAO 3.x Object Library Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON") While Not rst.EOF rst.Edit rst(3) = NumDEPART ' correspond au 4e champ rst.Update NumDEPART = NumDEPART + 1 rst.MoveNext Wend Set rst = Nothing End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas renseigné. Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ une valeur numérique qui s'incrémente de 1 unité pour tous les enregistrements de la table. Quel serait son code en VBA ? La valeur de départ est un nombre défini.(par exemple 137)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
pierre.valersteinas
Bonjour,
merci beaucoup pour cette solution très simple Pierre
"Eric" a écrit dans le message de news:
Bonjour,
Une proposition sans SQL ferait l'affaire ?
Sub MajCERFA(NumDEPART As Long) 'Charger la référence Microsoft DAO 3.x Object Library Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON") While Not rst.EOF rst.Edit rst(3) = NumDEPART ' correspond au 4e champ rst.Update NumDEPART = NumDEPART + 1 rst.MoveNext Wend Set rst = Nothing End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas renseigné. Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ une valeur numérique qui s'incrémente de 1 unité pour tous les enregistrements de la table. Quel serait son code en VBA ? La valeur de départ est un nombre défini.(par exemple 137)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
merci beaucoup pour cette solution très simple
Pierre
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
O6n7kXHsJHA.2368@TK2MSFTNGP06.phx.gbl...
Bonjour,
Une proposition sans SQL ferait l'affaire ?
Sub MajCERFA(NumDEPART As Long)
'Charger la référence Microsoft DAO 3.x Object Library
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON")
While Not rst.EOF
rst.Edit
rst(3) = NumDEPART ' correspond au 4e champ
rst.Update
NumDEPART = NumDEPART + 1
rst.MoveNext
Wend
Set rst = Nothing
End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas
renseigné.
Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ
une valeur numérique qui s'incrémente de 1 unité pour tous les
enregistrements de la table.
Quel serait son code en VBA ?
La valeur de départ est un nombre défini.(par exemple 137)
merci beaucoup pour cette solution très simple Pierre
"Eric" a écrit dans le message de news:
Bonjour,
Une proposition sans SQL ferait l'affaire ?
Sub MajCERFA(NumDEPART As Long) 'Charger la référence Microsoft DAO 3.x Object Library Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("TABLE_ABANDON") While Not rst.EOF rst.Edit rst(3) = NumDEPART ' correspond au 4e champ rst.Update NumDEPART = NumDEPART + 1 rst.MoveNext Wend Set rst = Nothing End Sub
que tu lances par call MajCERFA(137) ou MajCERFA 137
pierre.valersteinas a écrit :
Bonjour,
dans une table comprenant 4 champs, le dernier (numérique) n'est pas renseigné. Quelle requête "mise à jour" faut-il créer pour affecter au dernier champ une valeur numérique qui s'incrémente de 1 unité pour tous les enregistrements de la table. Quel serait son code en VBA ? La valeur de départ est un nombre défini.(par exemple 137)
