help ! inserer dans un champ a partir d'autre valeurRésolu

Question

bonjour, j'ai une base ACCESS avec une table enfant qui est faite de la forme:
matricule numerique
date_naissance date
numenfant numerique

avec comme donn&#233;es dedans

matricule                     date_naissance                     numeenfant
10                                 10/01/2000
10                                 10/02/2001
10                                 25/12/2005
11                                 10/01/2000
12                                 14/05/1978
12                                 26/08/1995

ce que j'aimerais c'est pouvoir faire un petit programme qui me permette pour chaque matricule et en fonction des dates de naissance ins&#233;rer dans la colonne numenfant le numero correspondant a chaque enfant

pour etre plus clair j'aimerais avoir a l'arriv&#233;e ceci:

matricule                     date_naissance                     numeenfant
10                                 10/01/2000                              1
10                                 10/02/2001                              2
10                                 25/12/2005                              3
11                                 10/01/2000                              1
12                                 14/05/1978                              1
12                                 26/08/1995                              2

merci de votre aide a tous

cs_tommie · Accepted Answer

salut en fait j'essaie d'executer ton code en cr&#233;ant un module sous access et en le lancant mais ca me g&#233;n&#232;re des erreurs d'execution
faut il vraiment faire ca?
comment faut il proc&#233;der?
peux tu m'en dire plus ?merci

et je ne comprends pas dans ton code ou est ce que tu stipules le champ numenfant qui doit se renseigner?

merci de m'eclairer car je mouline pas mal

yuri1961 · Answer

Bjr!

Ou fais-tu ton prog, sous Acces, ou sous VB?

Il te faut faire une petite procedure (exemple est sous DAO):

Public Sub NumEnfant()

Dim db As Database, rs As Recordset

Dim  k as Byte     'counter of children

Dim enf as Byte     'number of children

enf = 1

Set db = CurrentDb

Set rs = db.OpenRecordset("Select * From Enfant Order by Matricule, Date_Naissance", 2)

Do While Not rs.EOF

    If k = rs.Fields(0).Value Then

        If rs.Fields(2).Value = 0 Then

            rs.Edit

            rs.Fields(2).Value = enf + 1

            rs.Update

            enf = enf + 1

        End If

    Else

        rs.Edit

        rs.Fields(2).Value = 1

        rs.Update

      enf = 1

    End If

    k = rs.Fields(0).Value

    rs.MoveNext

Loop

End Sub



On peut modifier cette procedure sous ADO.

cs_tommie · Answer

salut, en fait je voudrais faire ceci sous access, est ce que c'est la meme chose ??
et si non que faut il modifier car je ne m'y connais pas de trop
merci de ton aide

yuri1961 · Answer

Bjr!

Ce code est juste pour Access

Help ! inserer dans un champ a partir d'autre valeur

4 réponses