Combobox charger depuis bdd vers textbox

Commenter

Contenu du snippet

Voici un code qui permet à partir d'un clique sur un combobox (charger depuis une base de donnée) d'envoyer des donnée vers 2 textbox
avec des donnée différentes.

Source / Exemple : 


Dim RsCombo As Recordset ' a mettre tout en haut de la page de code

Private Sub MonCombo_Click()

	'---------- critere de recherche
	Dim I_numObj As Integer 
	Set RsCombo As New Recordset 
	'---------- variable qui contiendra la requette
	Dim requeteRharge As String 

	'---------- on recupére l'item du combobox
	I_numObj = MonCombo.ItemData(MonCombo.ListIndex) 
		
		' ------------concaténation de la requette et de la variable
	     requeteRharge = "select * from modeleobjectif where numobjectif =  " & I_numObj 
		 
		 '--------- Ouverture du recordset
	     RsCombo.Open requeteRharge, cnx, adOpenDynamic, adLockPessimistic
	     RsCombo.MoveFirst
	     
	' ------------ envoi des données de la bdd vers les textbox en fonction de la requette
	Textbox1.text = Trim(RsCombo("typeobjectif")) '--- trim() enléve les espace avant et aprés les une chaines
	Textbox2.text = Trim(RsCombo("contenuobjectif")) 
        
        Set RsCombo =Nothing 'destruction de l'objet
End Sub

Conclusion :


Merci pour la remarque.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.