Intégrer un NuméroAuto avec une condition d'application

Bonjour,

J'ai une base de donnée avec des produits au poids et des pdt à la pièce.

Je voudrais intégrer dans mes formulaire un champs qui contienne un Numéro automatique incrémentiel qui ne s'applique que si les produits sont au poids.

Je ne sais pas où rentrer ma condition ???

Merci d'avance

Bonjour,

Voici une suggestion parmi tant d'autres:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub NouveauProduit() Const AU_POIDS = 1 Const A_LA_PIECE = 2 Dim oRS As DAO.Recordset Dim lngNumeroProduit As Long Dim strSQL As String   'Contrôle du dernier produit enregistré Set oRS = CurrentDb.OpenRecordset("SELECT Max(IDProduit) AS DernierID FROM TBL_Produits WHERE IDTypeProduit = " & AU_POIDS & ";", 2) If oRS.EOF Then lngNumeroProduit = 1 Else lngNumeroProduit = oRS.Fields("IDProduit") + 1 End If oRS.Close Set oRS = Nothing   'Incrémentation à l'ajout strSQL = "INSERT INTO TBL_Produits (IDProduit, NomProduit, IDCategorie, IDTypeProduit) " strSQL = strSQL & "VALUES(" & lngNumeroProduit & ", '" & Me!NomProduit & "', " & Me!cboCategorie & ", " & AU_POIDS & ");" CurrentDb.Execute SQLINSERT, dbSeeChanges End Sub

---

Je me suis permis de considérer qu'il y avait des relations sur clé étrangère avec différentes tables.
Argy

Merci.

Je n'arrive pas à trouver sur quel critère entrer ce code pour qu'il soit actif ??

Ne sachant pas comment tu as développé ton appli, je ne sais te répondre.

Argy