VBA valeur par defaut

Question

Bonjour, voila mon code



Sub FillcboActions(cboTable As ComboBox)

    Dim rstAct As ADODB.Recordset

    Dim strSQL As String

    Dim objmyconn As ADODB.Connection

    Dim strChaine As String

    

    Set objmyconn = OpenSQLServerDB("dbauser", "dbauser")

    

    Set rstAct = CreateObject("ADODB.RecordSet")

    

    strSQL = "Select [action_dateeche], [action_heureeche] from actions " & _

             "order by [action_dateeche] desc ;"



    rstAct.Open strSQL, objmyconn

    

    With rstAct

        .MoveFirst

        If (.State = adStateOpen) And (Not (.EOF)) Then

            Do Until .EOF

               
strChaine = .Fields("action_dateeche")

                cboTable.AddItem strChaine

                .MoveNext

            Loop

        End If

    End With

    

    rstAct.Close

    objmyconn.Close

    Set rstAct = Nothing

    Set objmyconn = Nothing

    

End Sub





Je voudrai que cboTable ait pour valeur par d&#233;faut le premier champ de la table. Que dois je faire ?



Merci

cs_frop01 · Answer

cboTable.listindex=0

PtitGrumo · Answer

Hello!

cboTable = cboTable.itemData(0)

++

PtitGrumo

Fehn · Answer

Merci, cela fonctionne. Par contre, j'ai un autre probl&#232;me :S



En effet, le but de mon projet est de joindre plusieurs tables entre
elle et d'en afficher certains contenu &#224; partir de la combobox (dans
laquel j'ai d&#233;fini la valeur par defo). Le probl&#232;me c'est que la il
m'affiche effectivement les champ correspondant &#224; la valeur que je met
par defo mais m&#234;me si je change de valeur dans la combox de
action_dateeche, les autres enregistrement ne change pas (il reste les
m&#234;me que pour la date mis par defo). Pourquoi ? et surtout que dois je
faire ?

PtitGrumo · Answer

1 - tu es en Access (ou toujour sous outlook? lol)
2 - explique comment s'affiche tes premi&#232;re donn&#233;e comment fait tu au lancement pour afficher les donn&#233;e?

A tout

PtitGrumo

cs_frop01 · Answer

Tout d'abord il faut savoir que lorsque un utilisateur clic pour faire un choix avec  le combobox un énenement se produit 

c'est combobox_DblClick 
donc dans cette énevement que tu peux sélectionner les enregistrement que tu veux faire apparaitre !!

Fehn · Answer

Oui je ss toujours sur Outlook 
toujours interfacer avec une base de donn&#233;e SQL Server. J'arrive bien &#224;
selectionner des valeurs dans la combobox, ce n'est pas le probl&#232;me. Je
veux que lorsque je selectionne un &#233;l&#232;ment, d'autres apparaissent dans
des listbox. Lorsque j'execute mon formulaire, il y a une valeur par
defaut attribu&#233; &#224; ma combo et les &#233;l&#232;ments de cette valeur s'affiche
sans probl&#232;me (j'ai v&#233;rifi&#233;, il correspondent bien dans la base). Par
contre, lorsque je veux changer de valeurs dans la combo (en clikan sur
la petite fleche et en selectionan ),
la valeur de la combo affiche bien celle que je viens de selectionner
mais les list box reste en coh&#233;rence avec la valeur qui &#233;tait mis par
defaut au lancement du formulaire. Pourquoi ?????

Fehn · Answer

Probleme resolu ;) falait juste que je change userForm_Initialize par
cboTable_Change (Grosse erreur d'inatention de ma part lol) Merci a tous

VBA valeur par defaut

7 réponses

Discussions similaires