Rs.bookmark [Résolu]

Signaler
Messages postés
14
Date d'inscription
mardi 6 février 2007
Statut
Membre
Dernière intervention
17 novembre 2008
-
Messages postés
14
Date d'inscription
mardi 6 février 2007
Statut
Membre
Dernière intervention
17 novembre 2008
-
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

1 réponse

Messages postés
14
Date d'inscription
mardi 6 février 2007
Statut
Membre
Dernière intervention
17 novembre 2008

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

End Sub