NAVEGACAO VIA COMBO

USUARIO.EXCLUIDOS 15/07/2005 14:55:45
#94361

Gente,
Deve ter aqui no site mas não achei.
Seguinte:

Quero navegar pelos registros através do combo
No mercadoria.text = tbcadastro!mercadoria.
Isso na medida que eu for trocando o nome no combo troca automaticamente no text.

Estou fazendo como abaixo mas dá erro dizendo que a operação não suporta este tipo de objeto. Trabalho com DAO

Screen.MousePointer = 11
Dim Marca$
TbCadastro.Index = "mercadoria"
Marca$ = TbCadastro.Bookmark
TbCadastro.Seek "=", combonome.Text
If TbCadastro.NoMatch Then
MsgBox C_Usuario & "!" & Chr(13) & "Nao encontrei estes dados.", 32, "Mensagem"
MsgBox C_Usuario & "!" & Chr(13) & "Obs: Este registro pode ter sido deletado. Atualize a lista.", 32, "Mensagem"
TbCadastro.Bookmark = Marca$
Screen.MousePointer = 0
Else
Form1.data.Text = TbCadastro!data
Form1.codigo.Text = TbCadastro!codigo
Form1.mercadoria.Text = TbCadastro!mercadoria
Form1.unidade.Text = TbCadastro!unidade
Form1.unitario.Text = TbCadastro!unitario End If
Screen.MousePointer = 0