Discussion :

[fsautejeau]

Bonjour,

j ai vu quelques discussions sur ce sujet, mais je n ai pas reussi a l appliquer, certains elements me manquaient pour pouvoir realiser mon voeu.

Je simplifie le probleme:

J ai deux table:Tbl1 et Tbl2
Dans chaque table il y a des champs dont des numero automatique qui sont les clés.
Les deux tables sont liées:a un enregistrement de Tbl1 correspondent plusieurs de la table 2.

Je voudrais que pour chaque enregistrement de la table 2, l incrementation reprenne a 0 quand on change d enregistrment de la table 1. Car l incrementation n est pour l instant pas liée.

Tbl1 Tbl2(souhait) Tbl2(pour l instant)
1 1 1
1 2 2
1 3 3
2 1 4
2 2 5
3 1 6
3 2 7
3 3 8
3 4 9
4 1 10
5 1 11
5 2 12


Merci d avance.

Bonne fin de matinee

[brice45]

Bonjour,
je pense qu'en utilisant excel tu y arrivera facilement.
Fais ensuite une importation de ta colonne de numéros calculés de ta table 2 dans ta table Access.
C'est possible si tu n'as pas des millers d'enregistrements bien sûr...

Sinon tu peux programmer un module en VBA

[fsautejeau]

si je programme en VBA, je dois associer le code au controle qui contient mon nouveau num ou a la table correspondante?
Et a quel evenement dois l associer?

J ai essayer avec du SQL, et je n y arrive pas.

[Tofalu]

On ne peut pas associer une fonction à un champ directement. La fonction sera alors associée au controle correspondant via sa propriété par défaut

Exemple

Soit la structure de table 2

Table2(CleTable1,CleTable2)

Dans un module

Function NewNum(intT1 as integer) as integer
on error goto err
NewNum=Cint(DMax("Table2","CleTable2","CleTable1="& intT1))+1
err:
End Function

Dans ton formulaire :

Un champ pour la saisie de T1 nommé controleT1 et dans la propriété Valeur Par Défaut de ChampT2 tu saisis:

=NewNum([controleT1])

Si tu as des questions, n'hésite pas.

[fsautejeau]

je dois t avouer avoir du mal a comprendre ta reponse...

Je ne veux pas de saisie, je voudrais que la cletable2 s adapte automatiquement a la cletable1.
Qd la cletable1 change, la cletable doit repartir a 0.

Je n ai pas de champs de saisie de T1.

[Tofalu]

Rien compris

[fsautejeau]

Merci

Mais a vrai dire moi non plus, je viens de me relire

ok..je voudrais que la cletable2 reparte a 0 (et recommence a s incrementer mormalement) qd la cletable1 s incremente.
je n ai en fait pas compris ce que tu as dit :

"Dans ton formulaire :

Un champ pour la saisie de T1 nommé controleT1 et dans la propriété Valeur Par Défaut de ChampT2 tu saisis:


Citation:
=NewNum([controleT1]) "


Je comprend pas pourquoi tu m ecris ca, je ne vois pas l'utilité (au sens propre, aucune arrogance...)

[fsautejeau]

salut

Merci de m avoir repondu aujourd hui.

c encore moi,j ai pas reussi a implementer le code.a mon avis il y a un truc que je ne saisis pas, mais bien sur je sais pas koi.

Si tu as encore un peu de temps a m accorder, ce serait cool.

Bonne soiree

[fsautejeau]

salut,

j ai reussi a implementer la fonction, j avais fait une erreur tres bete.

Par contre maintenant, le nouveau numero que j obtien pour cletable2=1 est 0.
et apres ca ne marche pas parfaitement.