[Resolvido]Falta operador na expressão

Amigos mestres,

me deparei numa situação em que possuo um campo consulta que busca o registro de acordo com o nome pesquisado:

Código:

Private Sub comb_ConsultaMotora_AfterUpdate()
Dim strCriterio
strCriterio = "[Codigo]=" & Me.comb_ConsultaMotora.Column(0) 'Onde 0 é a coluna da Código (PK)
DoCmd.Minimize
DoCmd.OpenForm "Cadastro_Motoristas", , , strCriterio
End Sub


Mas ao digitar um nome que não possui na relação do BD, apago e em seguida clico no botão "FECHAR", aparece o módulo design com o código acima com a a seguinte linha em destaque:
 

Código:

DoCmd.OpenForm "Cadastro_Motoristas", , , strCriterio

E em paralelo abre a msg de erro no centro da tela com a seguinte informação:

Erro de sintaxe (operador faltando) na expressão de consulta '[Codigo]='

Alguém sabe me dizer qual o operador que está faltando? tentei o tratamento "On Error Resume Next", resolveu a questão do erro mas em compensação não executa o fechamento do formulário, mas sim o comando minimizar.  É preciso restaurar para clicar novamente no "FECHAR" para executar finalmente a macro.

Certo que terei a orientação de corrigir este incômodo, fico no aguardo!!!

AMarcos

Olá a todos,

António Marques , tente asim:

Código:

Private Sub comb_ConsultaMotora_AfterUpdate()
    Dim strCriterio
    If Len(Me.comb_ConsultaMotora.Column(0) & "") > 0 Then strCriterio = "[Codigo]=" & Me.comb_ConsultaMotora.Column(0)    'Onde 0 é a coluna da Código (PK)
    DoCmd.Minimize
    DoCmd.OpenForm "Cadastro_Motoristas", , , strCriterio
End Sub

Abraço

Caro amigo Crysostomo, eu já havia tentado esse procedimento de colocar aspas simples sem sucesso.

Ele acaba dando erro pois dar erro de sintaxe quando faz a busca:

Erro de sintaxe na cadeia na expressão de consulta '[codigo]='2'.  

Onde o nº 2 é o código do registro pesquisado.


AMarcos

Caro Teixeira, agradeço também a atenção dispensada, mas está acontecendo a mesma coisa quando eu coloquei o Tratamento (On erro resume next) no início da expressão.

Não ocorre mais o erro, mas executa a o comando de minimizar, onde o desejado, no caso de apagar o que foi digitado e em seguida clicar o botão "FECHAR", era fechar o formulário atual de Cadastro de Motorista e abrir o principal de nome Menu.

AMarcos

Olá a todos,

Marcos, com base na descrição, podemos ter várias soluções:

a) com o controlo do erro, verificar qual o codigo e fazer o tratamento (cancel e resume)
b) chamar o código através de um botão para ver o reporte em vez de ser "ao perder o foco" do campo

O ideal seria partilhar a base de dados com a parte envolvida para se testar.

Abraço

Esse é o BD onde está acontecendo esse pequeno erro que pode ser provocado pelo o usuário caso ele digite no campo "Consulta Motorista" um nome que não existe ou erre e venha a apagar e logo depois peça para fechar o Formulário Cadastro_Motoristas.

PS: Se puderem amigos me ajudem também com o tópico "Registro do último odômetro se repetindo", pois este é um problema sistemático que acontece e causa prejuízos no item confiabilidade no programa.

Att,

AMarcos

Olá..

O erro ocorre porque a combobox fica sem critério.

Acrescente esta linha no inicio

Código:

If IsNull(Me.comb_ConsultaMotora) Or Me.comb_ConsultaMotora = "" Then Exit Sub

ficando assim

Código:

Private Sub comb_ConsultaMotora_AfterUpdate()

If IsNull(Me.comb_ConsultaMotora) Or Me.comb_ConsultaMotora = "" Then Exit Sub
Dim strCriterio
strCriterio = "[Código]=" & Me.comb_ConsultaMotora.Column(0) & "" 'Onde 0 é a coluna da Código (PK)
DoCmd.OpenForm "Cadastro_Motoristas", , , strCriterio
DoCmd.Minimize
End Sub

Aguardamos o seu retorno

Abraços

Amigo mestre Celso Roberto muito obrigado pela sua dica. Deu certíssimo!!!

Agora o usuário não tem como cair em erro caso venha fazer uma escolha errada.


Agora se puder decifrar a problemática naquele tópico que eu mencionei, seria excelente!!! Qualquer coisa que não tenha ficado bem esclarecido eu posso melhorar a minha redação para melhor compreensão.


O danado do registro passou a se repetir de uma hora para outra afetando o cálculo da autonomia de combustéivel.


Muito Obrigado a vc Celso e a todos os amigos (Teixeira e Crisóstomo) que se dispuseram a me ajudar nesse impasse.


Um forte abraço,

AMarcos

Olá..

Eu não entendi o porque voce minimiza e depois abre novamente o mesmo formulário.

se for só para mudar o registro seria melhor este

Código:

If IsNull(Me.comb_ConsultaMotora) Or Me.comb_ConsultaMotora = "" Then Exit Sub
DoCmd.SearchForRecord , "", acFirst, "[Código] = " & Str(Nz(Screen.ActiveControl, 0))

Aguardamos

Abraços

Vou implementar esta sugestão e vê se me atende.

Muito obg mais uma vez!

AMarcos

Olá..

Ficamos felizes por ter ajudado

O Fórum agradece o seu retorno

Abraços e sucesso

Olá a todos,

Antonio Marcos, obrigado pelo retrono.
Como pode verificar ao partilhar ficou mais fácil para ajudar.

Abraço a todos