complément sur NextID

Bonsoir,
J'ai repris votre fonction "NextID" qui marche à merveille, mais je l'ai recopiée bêtement, sans en comprendre réellement le fonctionnement.

Cependant, dans certaines de mes tables, j'ai 2 clés primaires. Est-il possible d'adapter votre fontion en ce sens ?

table clients
Noclient : clé primaire - champ numérique

table commandes
NoClient : 1ère clé primaire - champ numérique
NoCommande : 2ème clé primaire - champ numérique

Merci de votre aide

laurent

Bonsoir,

Est-ce que tu veux dire que la clé de ta table commandes est composée de deux champs ? NoClient+NoCommande = clé primaire ?

A+

bonsoir,

c'est exactement cela : 2 champs donc 2 clés primaires (2 lignes différentes)

merci de ton aide

Laurent

Citation:

Envoyé par LedZeppII

Bonsoir,

Est-ce que tu veux dire que la clé de ta table commandes est composée de deux champs ? NoClient+NoCommande = clé primaire ?

A+

Bonsoir,

La fonction NextID génère une séquence de nombres entiers 1,2,3,4,5,6, etc ...
Si il y un trou dans la séquence, elle le comble en retournant le plus petit nombre supérieur à 1 qui n'a pas de nombre précédent (lui-même -1), moins 1.
Ex: 1,2,3,8,9,10,11 on un trou entre 3 et 8.
Le plus petit nombre qui n'a pas de prédécesseur est 8. La fonction retourne donc 7.

La fonction ne retourne qu'une seule valeur et ne peut donc pas alimenter deux champs.
Ce qu'on peut faire c'est retourner une nouvelle valeur pour un des deux champs de la clé.
Dans la table Commandes NoClient ne bouge. On sait pour quel client on veut créer une facture.
On peut donc générer un nouveau numéro de facture pour un client donné, c'est à dire que chaque client a une numération indépendante.

Voici un exemple d'adaptation où j'ajoute un paramètre Filtre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Function NextID(LeChamp As String, LaTable As String, Filtre As String) As Long '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 'Fonction renvoyant le prochain Identifiant, en fonction des valeurs existantes dans une table. 'Arguments : ' LeChamp => Nom du champ Identifiant numérique Long concerné ' LaTable => Nom de la table contenant cet identifiant ' Filtre => Critère pour WHERE : (Champ = Valeur) pour définir un sous-domaine 'Retour : ' 1 s'il n'y a rien dans la table ' Le Nombre maximum +1 s'il y a une suite ininterrompue de nombres ' La valeur du nombre manquant en cas de trou. '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim sSQL As String Dim rs As DAO.Recordset Dim n As Long 'Chaîne SQL en fonction de LeChamp et de LaTable, retournant NULL ou le numéro du trou sSQL = "Select Min([" & LeChamp & "]-1) As NextID From " & LaTable & " As T1 " sSQL = sSQL & "Where ((" & Filtre & ") AND (([" & LeChamp & "]-1)>0) And (((Select [" & LeChamp & "] " sSQL = sSQL & "From " & LaTable & " As T2 " sSQL = sSQL & "Where (T2." & Filtre & ") AND " & "T2.[" & LeChamp & "]=T1.[" & LeChamp & "]-1)) Is Null));" Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot) 'Nbre d'enregistrements dans laTable n = DCount("[" & LeChamp & "]", "[" & LaTable & "]", Filtre) If n = 0 Then 'S'il n'y a pas d'enregistrements, mettre 1 NextID = 1 ElseIf IsNull(rs(0)) Then 'Si la requête ne renvoie rien, incrémenter de 1 le maximum NextID = DMax("[" & LeChamp & "]", "[" & LaTable & "]", Filtre) + 1 Else NextID = rs(0) 'Sinon, il y a un trou. Renvoyer la valeur du trou End If End Function
Exemple d'utilisation:
Code:

1 2 3 Dim NvNoCmde As Long ' Nouveau NoCommande pour NoClient 123 NvNoCmde = NextID("NoCommande", "commandes", "NoClient=123")
Petite remarque :
Je comprends une clé du type {NoCommande,NoLigne} où on crée un nouvelle séquence de NoLigne pour chaque commande,
mais pour {NoClient,NoCommande} je trouve que ça complique.
Mais bon, c'est toi qui vois.

A+

Bonsoir,
Désolé pour les remerciemenrts en retard, mais... Non, je n'ai vraiment aucune excuse. J'espère que tu ne sera pas fâché.

A bientôt.
Laurent

Y a pas de problème. ;)