ComboboxRésolu

Question

Bonjour,
Novice en vb6, j'ai un probl&#233;me (qui doit &#234;tre simple, mais bon!)
Dans une combo box, le donn&#233;e avec un &#233;space ne marche pas.
Je m'explique.
Si le met 24 janvier, &#231;&#224; ne marche pas, par contre si je met 24janvier, &#231;&#224; 
marche!!
Voil&#224; le code:

Dim choix As String


 


    rsvisite.MoveFirst
    'affichage des infos de patient dans le programme .    choix "visitedate " & Combo1
    rsvisite.Find choix
    
    note_visite_patient.Text = rsvisite("note")
    Text1.Text = rsvisite("tension")

Tout le reste marche, seul le coix d'une date avec un espace me pose probl&#233;me.

Merci d'avance.

AdilELHASSOUNI · Accepted Answer

Si VisiteDate est de type Date/time 
Utilise plutotchoix "visitedate #" & Combo1.text & "#"

Starec · Answer

Essaye
choix "visitedate " & Combo1.text

Starec

AdilELHASSOUNI · Answer

Est ce ce que VisteDate est un champ de type Date/heure ?

bricoyeye · Answer

J'ai bien essay&#233; avec combo1.text ,mais c'est la m&#234;me chose, quant &#224; visitedate
Dans la base (access) il est bien en texte.

Lorsque je met On Error Resume Next, &#231;&#224; me renvoit au 1er enregistrement 
quand je choisi une date avec un espace, sinon j'ai une erreur d'execution
3001, les arguments sont de type incorrecte, en dehors des limites autoris&#233;es,
ou en conflit les uns avec les autres. 
et &#231;&#224; me renvoi &#224;  rsvisite.Find choix.
Cel&#224; ce produit aussi bien quand j'ajoute via VB6 ou quand j'ajoute 
directement dans la base.

bricoyeye · Answer

Je te remerci, &#231;&#224; marche impec, merci encore.

AdilELHASSOUNI · Answer

au plaisir 
bonne chance

Combobox

6 réponses

Discussions similaires