[Resolvido]Dúvida com Pesquisa

Bom dia pessoal,

Não estou conseguindo entender porque meu código não está funcionando em uma pesquisa que faço a tabela numa combo, meu código com Dlookup não está funcionando. Alguém pode me ajudar a localizar o problema. Será um detalhe que esqueci? O valor de um item teria que aparecer na caixa de texto, mas não aparece. Testei com uma MsgBox e realmente não aparece.

Grande amigo tudo jóia ?

Olha ae, o campo Item não existe na tabela, é o CodigoItem.

Val1 = Format(DLookup("Valor", "tblItens", "CodigoItem = '" & sItem & "'"), "R$#,##0.00")

Bom dia João,

Muito obrigado. Mas estou intrigado. No código abaixo eu havia colocado no lugar de CodigoItem o campo Item porque na combo cboItens é o item que seleciono e fazia referencia a ele na função Dlookup. Não entendi porque deveria utilizar o campo CodigoItem se Forms!frmTeste!cboItens é uma String e não um Integer (valor inteiro). Pode me explicar para que eu aprenda e domine o assunto? É lógico que geralmente eu utilizaria o código mas é uma String que eu tenho na combo cboItens.

Private Sub cboItens_AfterUpdate()
On Error Resume Next
Dim sItem As String

If Not IsNull(cboItens) Then
sItem = Forms!frmTeste!cboItens
Val1 = Format(DLookup("Valor", "tblItens", "CodigoItem = '" & sItem & "'"), "R$#,##0.00")
Else
Exit Sub
End If
End Sub

Ola;

O DLookup faz referencia a um campo da tabela "tblItens" e o campo tem o nome de "CodigoItem" e na tabela esse campo é Texto mesmo.

Na cboItens a column(0) é esse mesmo campo "CodigoItem"

Se quiser o Item mesmo, terá de referencia a coluna;

sItem = Forms!frmTeste!cboItens.Column(1)
Val1 = Format(DLookup("Valor", "tblItens", "Item = '" & sItem & "'"), "R$#,##0.00")

Obrigado João, pela aula. Não desconhecia isso não, mas enquanto você desenvolve uma idéia em seu projeto surge várias dúvidas de como fazer a coisa funcionar e você não atina para certos detalhes. Já tinha aprendido isso, mas não custa nada repassar a aula. Espero que sua aula possa ajudar outros colegas também.

Um abs

Obrigado pelo retorno amigo, faltou apenas o Resolvido, desta vez eu coloco.