[Resolvido]Localizar Problemas

Olá pessoal...

Estou enfrentando problema.. é o seguinte.. neste comando tem 2 condições "Descrição e Código", estou fazendo uns testes para acrescentar + . exemplo: Código, Descrição, Nome, Telefone... ao acrescentar estas condições..na "Origem da LInha" ocorre tudo certo.. mas quando vou clicar 2x para abrir o formulario que contem esses dados ele da um erro !! E notei que "SELECT tblProdutos.Descrição, tblProdutos.Código" sempre tem que estar nessa ordem .. Alguém poderia fazer uma adaptação neste arquivo apresentando 4 condicoes no form e nao 2 .. Fazendo favor ..


---------------------
ORIGEM DA LINHA
SELECT tblProdutos.Descrição, tblProdutos.Código FROM tblProdutos WHERE (((tblProdutos.Descrição) Like [Forms]![frmProdutosBuscar]![txtFiltro].[Text] & "*")) ORDER BY tblProdutos.Descrição;
---------------------

Ocorre este erro na linha "[Código]="

---------------------------------------------
Private Sub Lista6_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmProdutos"
stLinkCriteria = "[Código]=" & Me.Lista6.Column(1)
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmProdutosBuscar"
Exit Sub
End Sub
-----------------------------------------------


Este modelo ja contem no forum, porém estou fazendo uns teste nele antes de adaptar no meu projeto..

http://dl.dropbox.com/u/771097/Localizar_OLD_II.rar

http://maximoaccess.forumeiros.com/formularios-f11/localizar-registro-t621.htm?highlight=localizar


Agradeço pelo Atenção

Rapaz, estou corrido agora, vou baixar seu exemplo aqui e dar uma olhada, mas pq você não da uma olhada também no VBA em

Me.Recordsource = Sua Instrução Sql...

Depois lhe dou um retorno melhor...

Sds

Não estou a ver a BD, mas não vejo necessidade de ter que especificar a coluna. Teste assim e veja se resolve?

stLinkCriteria = "[ID]=" & Me![Lista6]

estando o campo código na segunda posição está certo o Column(1)

Numerico:

stLinkCriteria = "[Código]=" & Me.Lista6.Column(1)


Texto:

stLinkCriteria = "[Código]='" & Me.Lista6.Column(1) & "'"

Eu ja tentei de outras maneiras, porém achei bem viável desse exemplo.. Para vcs compreenderem melhor vou disponibiliza o arquivo com alterações e o erro que acontece.. se alguém quiser mudar e disponibilizar com alterações tb ficaria grato..

-----------------------------------

LocalizarMod01
--------------------------------------

Corrigido, sem erros na pesquisa;


http://dl.dropbox.com/u/771097/LocalizarMod01.rar