Discussion :

[Hélo2204]

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

[argyronet]

Bonjour,

Voici une suggestion parmi tant d'autres:

Code :

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

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

[Hélo2204]

Merci.

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

[argyronet]

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

Argy