Estou com a seguinte duvida.  adicionei um combo Box em meu sistema no evento Gotfocus coloquei o seguinte código

 

 

Private Sub CBO_Status_GotFocus()
   Dim Ant As String
  
   If Trim(CBO_Status.Text) <> "" Then Ant = Trim(CBO_Status.Text)
   SendKeys "{F4}"
  
   CBO_Status.Clear
   sSql = "Select N_CD_Status,S_Dsc_Descricao From Tbl_Pedido_Status Order By S_Dsc_Descricao"
   Aux.Open sSql, DB_Base, adOpenForwardOnly
  
   Do While Not Aux.EOF
      CBO_Status.AddItem Aux!S_Dsc_Descricao
      CBO_Status.ItemData(CBO_Status.NewIndex) = Aux!N_CD_Status
     
      Aux.MoveNext
   Loop
   Aux.Close
  
   If Trim(Ant) <> "" Then CBO_Status.Text = Trim(Ant)
End Sub

 

Até ai tudo ok, mas como eu recupero o código que eu gravei no Item Data ????

 

 

Grato, Alexandre Marchi

pela propriedade Index do combo, vc podera identificar , o index funcionaria como uma chave para guardar em qual posicao esta determinado regisro.

 

qualquer coisa se vc nao conseguir me passe mais detalhado o q vc quer .

 

Ok