Application sur vb 6.0
chocho
-
chocho -
chocho -
Bonjour,
je cherche le code de programme qui permet d'approvisionnée une produit de meme categoré par exemple si le produit chocholat identifier par le numero produit p2 et je veux le approvisionnée le progrmme me afficher le numero de produit existe déja comment je peut l'approvisionnée merci de votre attention mes amies
je cherche le code de programme qui permet d'approvisionnée une produit de meme categoré par exemple si le produit chocholat identifier par le numero produit p2 et je veux le approvisionnée le progrmme me afficher le numero de produit existe déja comment je peut l'approvisionnée merci de votre attention mes amies
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Application sur vb 6.0
- Comment supprimer une application préinstallée sur android - Guide
- Application word et excel gratuit - Guide
- Desinstaller une application sur windows - Guide
- Application franceconnect - Guide
- Miroir application - Guide
4 réponses
chocho
comment je peut le faire pouvez vous me écrir un exemple mon amie et merci pour tous
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