Access-3stone - Forum - Problèmes Access des débutants

Forum - Problèmes Access des débutants - Sujet n°457

1 membre

Connectés : ( personne )

Forum - Forum
- Problèmes Access des débutants

Sujet n° 457	numérotation d'un champ via requête
le 06/01/2011 : 21:24 par dari67 visiteur	Bonsoir et meilleurs voeux à toutes et tous !Grâce au "mémos de STONE3 j'ai trouvé la solution au calcul dans un état ayant un s/état vide. Bravo !Je développe une petite base pour la gestion d'une assosciation (adhérents et compta). Les adhérents à jour des cotisations 2010 bénéficient d'une attestation fiscale. Cette dernière doit recevoir une numérotation de 1 à x. pour chaque année fiscale à venir.J'ai une requête qui me filtre à partir de la table des adhérents les enregistrements concernés. J'ai créer une table "tblAttestationfiscale" avec les champs: N° (NumAuto+clé primaire) ID ( reçoit le N° adhérent) DATE_COTISATION (reçoit la date du paiement de la cotisation en 2010) et le champ N°ATTESTATION et c'est à ce dernier que je souhaite affecter un n° démarrant à 1A partir d'une requête ajout basée sur ma première requête j'arrive à affecter tous les champs ci-dessus sauf le [N°ATTESTATION].MERCI d'avance pour votre aide , je suis débutant et ne maîtrise pas le vba, comment résoudre ma problématique via mes requêtes.J'espère vous lire prochainement.TB soirée.Richard

[ 1 2 ]

Réponse n° 9
--------
le 17/01/2011 : 21:55
par dari67

Anonyme

visiteur

Bonsoir,

N'ayant plus eu de réponse à ma dernière question, je me permet de renouveler ma demande d'aide concernant la résolution de mon problème pour me permettre d'avancer dans mon travail.

D'avance merci !

Réponse n° 10 -------- le 25/01/2011 : 06:52 par 3Stone Administrateur	Bonjour, Désolé, l'émail de supervision s'est perdu dans la pile... Ce que j'ai indiqué donne bien le numéro d'attestation suivant. Donc à chaque saisie d'un enregistrement, ce numéro est incrémenté. Mais, dans le premier message, je lis : Citation : A partir d'une requête ajout basée sur ma première requête j'arrive à affecter tous les champs ci-dessus sauf le [N°ATTESTATION]. Si évidemment tu utilises cela directement dans une requête ajout, ce numéro restera égal au... suivant dans la série. Il faut alors utiliser une boucle sur un recorset, ce qui donne qque chose comme: Code : `Sub Numerotation() Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer ' Set db = CurrentDb Set rs = db.OpenRecordset("Select NoAttestation, " _ & "Date_Cotisation " _ & "From tblAttestationFiscale " _ & "Where Date_Cotisation=" & Year(Date)) Do Until rs.EOF i = i + 1 rs.Edit rs!NoAttestation = i rs.Update rs.MoveNext Loop ' rs.Close: db.Close rs = Nothing db = Nothing End Sub` Ce code sera appelé après l'appel de la requête. Ceci me fait dire que la construction de la base ne me semble pas idéale. Cordialement, Pierre(3stone)