Discussion :

[lotus77777]

Bonjour
j'ai une base avec 2 tables
TBLFiche champs NumFich, DateFich , etc
TBLArt Champs Numfich, LigneFich, ArtFich, QteFich

la clef qui relie ces 2 tables est NumFich

Dans le formulaire de saisie qui alimentE ces 2 tables je voudrais que le champs NumFich s'incremente automatiquement pour chaque fiche sans etre obligé de saisir comme je le fais actuellement

Exemple si sur la fiche 158 j'ai 3 lignes articles je suis actuellemnt oblige de saisir 1 puis de saisir l'article et la quantité, puis 2 etc Puis 3
Je voudrais que le champs LignFich s'incremente automatiquement de 1 a chaque saisie de fiche
Un peu le meme cas je pense que si vous avez plusieur lignes sur un fomulaire de facture
Est ce possible d'incrementer pour chaque Fiche et de reprendre a 1 pour la fiche suivante et si oui que dois je mettre sur mon controle du formulaire ?
Merci

[Mahefasoa]

Salut,

Etant donné que je suis de nature préssée, pourquoi n'utilise-tu pas une type de donnée NuméroAuto pour le champ à incrémentation automatique?

[Tofalu]

Salut,

Etant donné que je suis de nature préssée, pourquoi n'utilise-tu pas une type de donnée NuméroAuto pour le champ à incrémentation automatique?

Tout simplement parce que :

Est ce possible d'incrementer pour chaque Fiche et de reprendre a 1 pour la fiche suivante et si oui que dois je mettre sur mon controle du formulaire ?

Un numAuto ne fera pas cette distinction de ce que l'on appelle en conception un identifiant relatif

Il te reste à coder toi même cette fonction d'incrémentation en VBA à l'aide des recordsets DAO ( http://warin.developpez.com )

Autre possibilité, utiliser quand même un numauto mais ne pas tenir compte de sa valeur. Ainsi par exemple pour la fiche 158 tu auras la ligne 1 avec la valeur 456, la 2 avec 457 et la 3 avec 500 (c'est un exemple). Dans ce cas, alors, c'est quand tu afficheras les données, à l'aide d'une requête, qu'il faudra redécaler tous les numéros en implémentant une gestion de compteur en SQL (ou bien de classement) http//access.developpez.com/sources

Ainsi, tu auras dans ta requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
NumFiche  NumLigne NumLigneReel
158          456          1
158          457          2
158          500          3

Cette dernière solution a l'énorme avantage de ne pas nécessiter de code VBA et surtout d'être compatible avec une utilisation multi-utilisateurs. La gestion du numAuto (c'est à dire l'ordre des lignes) est confiée ainsi directement au moteur de base de données. Avec la solution VBA, si deux utilisateurs insèrent des lignes pour la même fiche, cela va coincer, les deux lignes auront alors le même numéro.

Bon courage, mais le jeu en vaut la chandelle

[User]

Bonjour,

Est-ce que cette solution dans une requête conviendrai avec un autre numéro auto (LigneFiche) dans la table TBLArt:

Dans une requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LigneReel: DCount("NumFich";"TBLArt";"NumFich=" & [NumFich] & " And LigneFich<" & [LigneFich])+1

Ou en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function NumLigneReel(NumFich As Long, LigneFich As Long)
Dim rs As Recordset
 
Set rs = CurrentDb.OpenRecordset("Select Count(NumFich) As Count from TBLArt where NumFich=" & NumFich & " and LigneFich<" & LigneFich, dbOpenForwardOnly)
 
NumLigneReel = rs!Count + 1
 
rs.Close
 
End Function

et dans la requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LigneReel: NumLigneReel([NumFich],[LigneFich])

[Tofalu]

Ah ben je prefère la solution VBA mais je pense que ce serait aussi possible avec une simple sous requête

[User]

Salut,

Avec une sous requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT NumFich, LigneFich, (Select (Count(NumFich)) From TBLArt A2 Where A2.NumFich= A1.NumFich  And A2.LigneFich<= A1.LigneFich) AS LigneReel, ArtFiche, QteFich
FROM TBLArt AS A1
ORDER BY NumFich, LigneFich;

mais elle n'autorise pas l'ajout ???

[lotus77777]

merci pour ces solutions que je vais tester et essayer de mettre en oeuvres je vous tiens informe a suivre merci beaucoup

[Tofalu]

mais elle n'autorise pas l'ajout ???

En effet

Donc le VBA sans aucun doute

pour cette solution User