eu possui alguns combos que guardam o coódigo e em seguida a descrição do codigo, por exemplo assim:

 

1-azul

2-verde

33-amarelo

104-roxo

 

alguem saberia me dizer eu como pego apenas o código desta combo. Se o tamanho do campo fosse fixo, daria para utilizar o left, mas ele pode ter varios tamanhos e sempre são separados pelo hifen (-). alguem pode me dar um help?

 

valeu.

  Dim intPos As Integer
  Dim intCodigo As Integer
  Dim strABC As String
  strABC = "1222-AZUL"
  intPos = InStr(1, strABC, "-")
  If intPos <> 0 Then
    intCodigo = CInt(Mid(strABC, 1, intPos - 1))
  End If
  MsgBox intCodigo

Faz assim, no montar o combo, vc define um codigo para o itemdata de cada opcao, tipo o codigo abaixo

 

        For i = 1 To ContReg
            Cmb.AddItem (codigo)
            Cmb.ItemData(Cmb.NewIndex) = cor

        Next i

 

Depois no evento click do combo eh soh vc pegar o itemdata que vai ter o codigo da linha, por exemplo:

 

Private Sub Cmb_Click()

    codigo = Cmb.ItemData(Cmb.ListIndex)
End Sub

Espero ter ajudado.

Seria mais pratico vc ter os dados de uma tabela carregados em um combo .. e relacionar o conteudo carregado no combo a um codigo tb contido na tablea..