[Resolvido]Erro de sintexe 3075

Bom dia,

Estou com uma dificuldade chata, tenho uma Listbox onde puxo as informações de uma tabela.
Ao clicar na Listbox eu quero que um formulário se abra no registro selecionado.
Abaixo o meu código:

DoCmd.OpenForm "Atendimento", acNormal, , "Código Atendimento=" & "me.list0.columm (0)"

Mas da erro de sintaxe 3075, alguem pode me ajudar nisso ?



Desde já agradeço.

Att,

DoCmd.OpenForm "Atendimento", acNormal, , "Código Atendimento=" & "me.list0.columm (0)"

caso a linha acima esteja conforme o seu codigo, tente assim:

DoCmd.OpenForm "Atendimento", acNormal, , "Código Atendimento=" & "me.list0.column (0)"

se nao, se puder postar seu bd.

Agradeço pela ajuda rapida.

Eu digitei errado o código, esta exatamente assim:

DoCmd.OpenForm "Atendimento", acNormal, , "Código Atendimento=" & "me.list0.column (0)"

Mesmo assim continua o erro 3075.

Aparece isso:

Erro em tempo de Exacução 3075;

Erro de Sintaxe (operador faltando) na expressão da consulta 'Código Atendimento =me.list0.column (0)'.

Boas...

Veja esse tópico aqui...mensagem de numero 7, a resposta está lá.

https://www.maximoaccess.com/t5385-resolvidoabrir-um-form-filtrado-atraves-de-um-listbox-pegando-o-valor-do-mesmo

Vi o link em questão.

realmente não deu erro 3075 mas o formulário abriu no primeiro registro e não no registro que eu cliquei. veja:

Private Sub Lista0_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Atendimento"

stLinkCriteria = "[Código Atendimento]=" & Me![Lista0]

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Olá a todos,

Um pitaco a "olho"

DoCmd.OpenForm "Atendimento", acNormal, , "[Código Atendimento] = " & me.list0.columm (0)

(É o que dá campos com espaço)
Evitar acentuaçoes.

Verifique também se campo é texto (colocar plicas) e a coluna está a correcta.

Abraço

Pegando a " deixa " do Alvaro.


Nomenclatura sugerida para nomes de:

tabelas: Tblxxx
consultas: Qryxxx ou Consxx ou Cnsxxx
relatórios: Rptxxx ou Relxxx
formulários: Frmxxx

Nomenclatura para nomes de campos em tabelas ( TBL )

1- nunca utilizar
* palavras com acentos ou separadas: Data Inicio --> DTInicio / Código Atendimento-->IdAtendimento


That´s all Folks.

ahteixeira bom dia,

Este banco de dados eu fiz sem conhecimento em VBA.
Ano passado que eu fiz o curdo de VBA para Access Avançado na Impacta, lá vi tudo isso que voces falaram.
Porém, neste banco de dados consegui arrumar algumas coisas e outras não por já existirem muitas relações e códigos.
Neste caso, uma das coisas que não arrumei foi o nome do campo Código Atendimento.
Mas valeu pela sua dica e a do Silvio.
Bom, voce me perguntou se o campo esta em formato texto.
O campo (Código Atendimento) no formulário Atendimento ? È esse campo que vc quer saber se é texto ?
Este campo esta como Numero Geral

Olá, estamos cá para ajudar.
Eno MaximoAccess e o melhor para aprender.

Perguntava o campo Código Atendimento da tabela Atendimento denque tipo é?

Se tiver duvidas vá à tabela verificar.

Se não conseguir resolver, poste base de dados com objectos envolvidos na questão.
Abraço

O campo Código de Atendimento na tabela Atendimento é Numeração Automática

Olá, então teste o seu código inicial, como indiquei na mensagem nr. 6

Se o campo estiver noutra coluna altere 0,1...etc

me.list0.columm (1...)

Abraço

Não funciona, abre o formulário no primeiro registro e não no registro que pedi

So no chutometro eh complicado mas, vamos la. Supondo que tenha um codigo que atribua automaticamente o "codigo do atendimento" em um campo tipo texto, da um olhada neste exemplo

Tauron,

Olha, só não mando o banco de Dados pois o mesmo já esta operacional e com muita informação.
O Banco de Dados esta Dividido e em Rede.
Estou tentando fazer um formulário de pesquisa para acelerar as consultas entende.
Bom, quanto ao exemplo enviado. É exatamente isso que quero porém no meu não da certo.
Reparei em um detalhe:

Na origem da linha da sua ListaAtend esta assim:

SELECT Tabela1.CodAtend, Tabela1.Nome FROM Tabela1 ORDER BY Tabela1.CodAtend;

Na minha Lista0 esta assim:

SELECT Atendimento.[Código Atendimento], Atendimento.Data, Atendimento.Apelido, Atendimento.Paciente, Atendimento.[Tipo do Exame], Atendimento.Empresa FROM Atendimento;

Repare que no Código Atendimento esta entre colchetes ( [] ) e no seu não esta. Quando eu tiro os colchetes da erro de sintaxe.
Será que este é o problema ?

Veja,

Fiz uma mudança, criei uma consulta e depois na origem da linha eu coloquei esta consulta criada.
Mas continua dando erro veja:

Olá Rodrigo,
Na minha opinião acho que está a complicar.

Já experimentou colocar diretamente:

DoCmd.OpenForm "Atendimento", acNormal, , "[Código Atendimento] = 10"
Nota o 10 é exemplo de um numero de código de atendimento da sua tabela.

Se não consegue postar a base de dados com o form Pesquisa_atendimento e tabelas dependentes para se poder testar.
Assim fica mais fácil.

Abraço

Olá a todos,
Rodrigo, como ficou a situação.
Os utilizadores do fórum merecem e agradecem o retorno.
Abraço

Estava hoje lendo minhas mensagens aqui no forum e vi que esta ficou sem resposta.
Bom, me perdoem.

Sobre o problema não sei o que acontece mas não foi solucionado.
Fiz este código para outras aplicações em access e funcionou perfeitamente.
Abre no registro correto.
Então deixei este formulario pra la e fiz outro.

Mas agradeço o apoio e me perdoem pelo esquecimento.

Resolvido

Olá Rodrigo,
Obrigado pelo retorno.
O fórum agradece.
Abraço