larbaletier
Messages postés17Date d'inscriptionmardi 19 février 2008StatutMembreDernière intervention24 avril 2008
-
24 avril 2008 à 14:37
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009
-
24 avril 2008 à 14:44
Salut tout le monde
voici mon code, il alimente trois ComboBox (vrp,client,profil). Pour la lecture pas de problème par contre lorsque je renseigne une nouvelle donnée dans une des combo cette dernière ne s'ajoute pas dans le fichier text approprié .
Pouvez vous m'aider hier j'ai cru que ça marchait et aujourd'hui nada. Pour moi le problème se trouve dans les parties ComboBox_ajout.
Merci d'avance
Help Me
ps; le code est similaire pour les trois combo
Private Sub client_Load()
'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
Open "[file://\\Srvflain\ordonnancement\devis \\Srvflain\ordonnancement\devis] usinage\Client.txt" For Input As #1
While Not EOF(1)
Input #1, temp
If temp <> "" Then
client.AddItem temp
End If
Wend
Close
End Sub
Private Sub client_ajout()
client.text = Nom2
Open "[file://\\Srvflain\ordonnancement\devis \\Srvflain\ordonnancement\devis] usinage\Client.txt" For Append As #1
'Ouvre fichier.txt et y rajoute la nouvelle donnée
Write #1, Nom2
client.AddItem (Nom2) 'Met à jour la ListBox
Close