A voir également:
- Application sur vb 6.0
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Desinstaller application sur windows - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Vb - Télécharger - Langages
- Windows application démarrage - Guide
4 réponses
tu fais une fonction qui vérifie si l'id du produit existe deja dans la bdd...
chocho
comment je peut le faire pouvez vous me écrir un exemple mon amie et merci pour tous
Par exemple une fonction qui compare le produit que tu as entré avec chacun des autres produits deja enregistrés, ou si tu utilises une base de données tu fais une recherche par sql
Il faut que tu me réexpliques le souci vraiment en détail et que tu me mettes ton code
voila le code si tu veux je peut t'envoyer mon projet toute entier
Private Sub Command1_Click()
Dim exist As Boolean
exist = False
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields("N° produit") = Text1.Text Then
exist = True
Exit Do
End If
Data1.Recordset.MoveNext
Loop
If exist = True Then
MsgBox ("Le N° produit existe dèja")
End If
If exist = False Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("N° produit") = Val(Text1.Text)
Data1.Recordset.Fields("désignation") = Text2.Text
'Data1.Recordset.Fields("prix") = Text3.Text
Data1.Recordset.Fields("stock") = Text4.Text
Data1.Recordset.Update
Data1.Refresh
Form29.Data1.Refresh
MsgBox ("enregistrement Ajouter")
End If
End Sub
Private Sub Command1_Click()
Dim exist As Boolean
exist = False
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields("N° produit") = Text1.Text Then
exist = True
Exit Do
End If
Data1.Recordset.MoveNext
Loop
If exist = True Then
MsgBox ("Le N° produit existe dèja")
End If
If exist = False Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("N° produit") = Val(Text1.Text)
Data1.Recordset.Fields("désignation") = Text2.Text
'Data1.Recordset.Fields("prix") = Text3.Text
Data1.Recordset.Fields("stock") = Text4.Text
Data1.Recordset.Update
Data1.Refresh
Form29.Data1.Refresh
MsgBox ("enregistrement Ajouter")
End If
End Sub