Application sur vb 6.0

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
Configuration: Windows XP
Internet Explorer 6.0

4 réponses

  1.
    Gabess Messages postés 1475 Statut Membre 118
     
    tu fais une fonction qui vérifie si l'id du produit existe deja dans la bdd...
    0
    1. chocho
       
      comment je peut le faire pouvez vous me écrir un exemple mon amie et merci pour tous
      0
  2. Gabess Messages postés 1475 Statut Membre 118
     
    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
    0
    1. chocho
       
      je le fait mais il m'affiche toujour le message que ce n°produit et déja existe pouvez vous me écrir le code de cette fonction mon amie s'il tu plait et merci
      0
  3. Gabess Messages postés 1475 Statut Membre 118
     
    Il faut que tu me réexpliques le souci vraiment en détail et que tu me mettes ton code
    0
    1. chocho
       
      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
      0
      1. chocho > chocho
         
        si le code qui fait ajouter le produit comme je tu dit le programme m'affiche le n° produit existe déja
        0
  4. chocho
     
    hello gabess aide moi s'il vous plait
    0