Bouton ajouter listbox [Fermé]

Signaler
Messages postés
18
Date d'inscription
jeudi 3 mai 2007
Statut
Membre
Dernière intervention
5 avril 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonsoir

je vous demande m'aider parce que depuis deux semaines je fait le bouton ajouter .
Merci de votre réponse sur le null j'ai plus ce message mais je vous demande de me corriger ce code parce que le bouton ajouter ne marche pas , je fait une recherche :
numero, prenom, nom, date que j'avais enregistré sur des textbox dans la fiche patient pour prescrire l'ordonnance.
 j'ai un groupe de controle de listbox donc je fait cliqué glissé sur le listbox odonnance pour prescrire l'ordonnance. 
et cliquer glisser  le nombre de boite pour prescrire nombre de boites sur un autre listbox.
et je clique sur le bouton ajouter pour ajouter les données dans la base de donnée access, j'utilise VB 6.0.  
je voudrais enregistré dans la base access les données qui sont dans le listbox ordonnance et listbox nombre de boites.

Private Sub ajouter_Click()
Set recordsetEC = rsadh
On Error GoTo AddErr
rsadh.AddNew
Set bndadh.DataSource = rsadh
With bndadh
While Not rsadh.EOF
Set recordsetEC = rsadh
Set cn = New ADODB.Connection
Set bndadh = New BindingCollection
If Not rsadh.Fields("ordonnance") = vbNullString Then List1(0).AddItem rsadh.Fields("ordonnance")
If Not rsadh.Fields("boites") = vbNullString Then List2(0).AddItem rsadh.Fields("boites")
recordsetEC.MoveNext
Wend
AddErr:
MsgBox "Ajouter avec succés"
End With
End Sub

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
tu as tes réponses, merci d'éviter les doublons surtout si tu ne réponds pas aux indications données ou demandées

topic clos