cs_VieRose
Messages postés14Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention17 novembre 2008
-
28 mars 2007 à 11:34
cs_VieRose
Messages postés14Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention17 novembre 2008
-
28 mars 2007 à 12:05
bonjour,
j'ai recuperer ce code de developpez.com
Set DataCombo1.DataSource rst<?xml:namespace prefix o ns = "urn:schemas-microsoft-com:office:office" /??>
Set DataCombo1.RowSource = rst
DataCombo1.ListField = "libellé" 'nom du champ
Si l'on désire voir l'élément sélectionné en surbrillance, il faut ajouter au code précédent :
vb
,
----
DataCombo1.DataField = "libellé"
Pour placer le recordset sur l'élément sélectionné et récupérer la valeur des autres champs de cet enregistrement :
vb
,
----
Private Sub DataCombo1_Click()
If DataCombo1 <> "" Then
rst.Bookmark = DataCombo1.SelectedItem
End If
Text1.Text = rst.Fields("code_libellé") ' nom d'un champ quelconque dans la base
End Sub
' mon pb est que les données de table (libellé) ont été modifier
comment faire pour resolu mon pb
cs_VieRose
Messages postés14Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention17 novembre 2008 28 mars 2007 à 12:05
salut j'ai trouver la solution :
1- la modification des données sur la bd est à cause de ligne suivant :
Set DataCombo1.DataSource = rst
DataCombo1.DataField "libellé"<?xml:namespace prefix o ns = "urn:schemas-microsoft-com:office:office" /??>
2- donc j'ai les supprimer et puis voila la correction
sqlGouv = "SELECT COD_GOUV, LIB_GOUV FROM GOUVERNERAT order by COD_GOUV "
rsGouv.Open sqlGouv, CnCanNeuf, adOpenStatic, adLockOptimistic
Set DCmb_Gouv.RowSource = rsGouv
Me.DCmb_Gouv.ListField = "lib_GOUV"
Private Sub DCmb_Gouv_Change()
If DCmb_Gouv <> "" Then
rsGouv.Bookmark = DCmb_Gouv.SelectedItem
End If
Text1 = rsGouv.Fields("cod_GOUV").OriginalValue ' nom d'un champ quelconque dans la base