Combobox
kaie
Messages postés
3
Statut
Membre
-
kaie Messages postés 3 Statut Membre -
kaie Messages postés 3 Statut Membre -
Bonjour,je me nomme ines et je suis étudiante. présentement je suis en train d'écrir un programme sous visual basic pour la gestion de stock.cependant un problème se pose au niveau du code de mon combobox.en effet j'ai écrit ce code que voici:Private Sub Combo1_Click()
sql = ("select * from clients where codeclient='" & Combo1 & "'")
Set Rec = MaBase.OpenRecordset(sql)
If Combo1 <> "" Then
efface
If Rec.RecordCount > 0 Then
Text1 = UCase(Rec!codeclient)
Text2 = UCase(Rec!raisonsociale)
Text3 = (Rec!capitalsocial)
Text4 = (Rec!secteurdactivité)
Text5 = (Rec!Adresse)
Text6 = (Rec!Téléphone)
Text7 = (Rec!Fax)
Text8 = (Rec!nomDG)
Text9 = (Rec!prenomDG)
Text10 = (Rec!telephoneDG)
Text11 = (Rec!emailDG)
Text12 = (Rec!nomDAF)
Text14 = (Rec!prenomDAF)
Text13 = (Rec!telephoneDAF)
Text15 = (Rec!emailDAF)
Text16 = (Rec!nomrespoinfo)
Text17 = (Rec!prenomrespoinfo)
Text18 = (Rec!telephonerepoinfo)
Text19 = (Rec!emailrespoinfo)
End If
End If
End Sub
mais pendant l'exécution du programme rien ne s'affiche.le combobox ne réagi même pas au click.je vous pri de m'aider à trouver le bon code.merci
sql = ("select * from clients where codeclient='" & Combo1 & "'")
Set Rec = MaBase.OpenRecordset(sql)
If Combo1 <> "" Then
efface
If Rec.RecordCount > 0 Then
Text1 = UCase(Rec!codeclient)
Text2 = UCase(Rec!raisonsociale)
Text3 = (Rec!capitalsocial)
Text4 = (Rec!secteurdactivité)
Text5 = (Rec!Adresse)
Text6 = (Rec!Téléphone)
Text7 = (Rec!Fax)
Text8 = (Rec!nomDG)
Text9 = (Rec!prenomDG)
Text10 = (Rec!telephoneDG)
Text11 = (Rec!emailDG)
Text12 = (Rec!nomDAF)
Text14 = (Rec!prenomDAF)
Text13 = (Rec!telephoneDAF)
Text15 = (Rec!emailDAF)
Text16 = (Rec!nomrespoinfo)
Text17 = (Rec!prenomrespoinfo)
Text18 = (Rec!telephonerepoinfo)
Text19 = (Rec!emailrespoinfo)
End If
End If
End Sub
mais pendant l'exécution du programme rien ne s'affiche.le combobox ne réagi même pas au click.je vous pri de m'aider à trouver le bon code.merci
2 réponses
Bonjour à tous
Aide microsoft recordcount (DAO) eh oui, ca sert !
"La propriété RecordCount n'indique pas le nombre d'enregistrements contenus dans un objet Recordset de type Feuille de réponses dynamique (Dynaset), Instantané (Snapshot) ou En avant seulement tant que vous n'avez pas eu accès à tous les enregistrements.... Pour forcer l'accès au dernier enregistrement, appliquez la méthode MoveLast à l'objet Recordset. Vous pouvez également utiliser une fonction SQL Count pour déterminer le nombre approximatif d'enregistrements que votre requête va renvoyer."
Avec ADO (DAO je ne sais pas) tu peux tester si la requete est vide
If requete.EOF Then
et non vide
If NOT requete.EOF Then
Aide microsoft recordcount (DAO) eh oui, ca sert !
"La propriété RecordCount n'indique pas le nombre d'enregistrements contenus dans un objet Recordset de type Feuille de réponses dynamique (Dynaset), Instantané (Snapshot) ou En avant seulement tant que vous n'avez pas eu accès à tous les enregistrements.... Pour forcer l'accès au dernier enregistrement, appliquez la méthode MoveLast à l'objet Recordset. Vous pouvez également utiliser une fonction SQL Count pour déterminer le nombre approximatif d'enregistrements que votre requête va renvoyer."
Avec ADO (DAO je ne sais pas) tu peux tester si la requete est vide
If requete.EOF Then
et non vide
If NOT requete.EOF Then
