Help ! inserer dans un champ a partir d'autre valeur [Résolu]
Signaler
cs_tommie
cs_tommie
- Messages postés
- 40
- Date d'inscription
- jeudi 18 mars 2004
- Statut
- Membre
- Dernière intervention
- 11 octobre 2005
cs_tommie
- Messages postés
- 40
- Date d'inscription
- jeudi 18 mars 2004
- Statut
- Membre
- Dernière intervention
- 11 octobre 2005
A voir également:
- Help ! inserer dans un champ a partir d'autre valeur
- Remplir un champ à partir d'un combobox ✓ - Forum - VB.NET
- Remplissage des champs a partir d'une donne dans un autre champ ✓ - Forum - Javascript / DHTML
- Récuper champs a partir d'un autre ✓ - Forum - PHP
- Désactivation d'un champs a partir d'un select ✓ - Forum - Javascript / DHTML
- Inserer image dans excel a partir d'un fichier ressource ✓ - Forum - Delphi / Pascal
4 réponses
cs_tommie
- Messages postés
- 40
- Date d'inscription
- jeudi 18 mars 2004
- Statut
- Membre
- Dernière intervention
- 11 octobre 2005
salut en fait j'essaie d'executer ton code en créant un module sous access et en le lancant mais ca me génère des erreurs d'execution
faut il vraiment faire ca?
comment faut il procé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
faut il vraiment faire ca?
comment faut il procé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
- Messages postés
- 71
- Date d'inscription
- jeudi 16 juin 2005
- Statut
- Membre
- Dernière intervention
- 16 février 2007
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.
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.