[Resolvido]Combo selecionar Descrição e código ao mesmo tempo?

Boa noite,

Srs, alguém tem ideia de como eu posso buscar a descrição de um item pela combo de codigo...
Eu estou trabalhando em uma ferramenta de rouparia, que funciona com o Código de posição mas houve a necessidade de trabalhar com a descrição. O problema é que eu fiz com a descrição mas ele ignora o Código da posição com isso não dar baixa no estoque como deveria. casso eu tente imputar no bd.
alguém pode me dar uma Luz. o bd vai em anexo.

Obrigado...

http://www.4shared.com/rar/ap-gqR4y/SisRouparia.html?

O link está a pedir Login.

JPaulo, você tem que ter uma conta no 4shared, aí é possível baixar.

Eu não passaria por aqui só para informar isso, com sua licensa, aproveitei e fiz o que nosso amigo pediu.

Faltava definir as larguras das colunas e aplicar o VBA na combo.

Valew Leandro, sempre em cima...

Obrigado Leandro...
Valeu tambem JPaulo.

Ola, não achei em lugar nenhum como pesquisar pelo Código ou Descrição no mesmo campo, por isso fiz.

Anexo já funcionando.  

Estou enviando, pois também gosto da ajuda dos colegas.
Obrigado

Código:

Private Sub Pesquisa_AfterUpdate()

Dim Caracteres As String


If IsNumeric(Me.Pesquisa) = True Then 'Verifica se é numero, se for vai alterar a origem da linha pra código
    Me.Pesquisa.RowSourceType = "Table/query" 'RowSource quer dizer 'origem da linha'
    Me.Pesquisa.RowSource = "SELECT Produtos.CódigoBarras, Produtos.Produto FROM Produtos ORDER BY Produtos.CódigoBarras;"
        
        If IsNull(Me.Pesquisa.Column(1)) = True Then 'Verifica se tem dados na coluna ao lado, pois se nao tem cadastro nao tem nada na coluna
            MsgBox "Tente novamente, código de barras não cadastrado.", vbInformation, "Não encontrado"
            Me.Pesquisa.RowSource = "SELECT Produtos.Produto, Produtos.CódigoBarras FROM Produtos ORDER BY Produtos.Produto;"
            Me.Pesquisa = Null
            Me.PreçoVenda.SetFocus 'manda o foco pra outra coisa pra voltar a focar na pesquisa
            Me.Pesquisa.SetFocus
            Exit Sub
        End If
        
    Me.CódigoBarras = Me.Pesquisa.Column(0) 'copia das colunas da pesquisa, o restante dos itens copia mais abaixo pq sao iguais
    Me.Produto = Me.Pesquisa.Column(1)
    Caracteres = Me.Pesquisa.Column(1)
                  
    Me.Pesquisa.RowSource = "SELECT Produtos.Produto, Produtos.CódigoBarras FROM Produtos ORDER BY Produtos.Produto;"
    
    Me.Pesquisa = Caracteres
    
Else 'caso pesquise texto é tudo igual acima
    
    Me.Pesquisa.RowSourceType = "Table/query"
    Me.Pesquisa.RowSource = "SELECT Produtos.Produto, Produtos.CódigoBarras FROM Produtos ORDER BY Produtos.Produto;"
          
        If IsNull(Me.Pesquisa.Column(1)) = True Then
            MsgBox "Tente novamente, produto não encontrado.", vbInformation, "Não encontrado"
            Me.Pesquisa = Null
            Me.PreçoVenda.SetFocus
            Me.Pesquisa.SetFocus
            Exit Sub
        End If
    
    Me.CódigoBarras = Me.Pesquisa.Column(1)
    Me.Produto = Me.Pesquisa.Column(0)

    
End If
'Apartir daqui copia apartir da terceira coluna da pesquisa pros campos do formulario (pois as duas primeiras é pra Codigo/Texto



End Sub

muito bom o exemplo, deixo aqui como contribuição uma outra forma também de pesquisar em mais de um campo em uma combobox

https://www.maximoaccess.com/t36638-combobox-autofiltro-string