Início
tiagocsilva 25/5/2012, 14:10Criei um formulário que exibe as consultas, mas depende de qual campo o usuário for consultar ele clica no botão e este botão carrega o recordesource do formulário consulta e abre o input box para incluir o valor a ser consultado, porém quando cancelo a consulta nesta etapa o form de consulta abre todo branco sem seus botões, como faça para caso cancelar a consulta ou não haver registros voltar ao form anterior automaticamente.
3 participantes
Erro ao cancelar uma consulta
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Coloque o código completo que está utilizando para esse procedimento. Ficará mais fácil de vermos como está fazendo para ver aonde tentar melhorar.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Convidad- Convidado
Olá
Deve verificar de há registros antes de abrir o form, e usar um critério If...Then para só abrir se contiver registros.
Ou cancelar conforme a informação retornada pela InputBox.
Enfim, depende da rotina que tem aí.
Pode postar o código pra darmos uma olhada.
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
Segue abaixo o código do botão que abre a consulta.
Private Sub Consulta_por_Nome_doc_Click()
Dim stDocname As String
Dim stCriterio As String
On Error GoTo Trata
DoCmd.Close
stDocname = "LOCALIZA_FPU"
DoCmd.OpenForm stDocname
Form_LOCALIZA_FPU.RecordSource = "LocalizaNomeFPU"
Exit Sub
Trata:
Call Trataerro
End Sub
Private Sub Consulta_por_Nome_doc_Click()
Dim stDocname As String
Dim stCriterio As String
On Error GoTo Trata
DoCmd.Close
stDocname = "LOCALIZA_FPU"
DoCmd.OpenForm stDocname
Form_LOCALIZA_FPU.RecordSource = "LocalizaNomeFPU"
Exit Sub
Trata:
Call Trataerro
End Sub
Convidad- Convidado
Tente verificando a quantidade de registros retornados pela consulta:
Private Sub Consulta_por_Nome_doc_Click()
Dim stDocname As String
Dim stCriterio As String
On Error GoTo Trata
DoCmd.Close
stDocname = "LOCALIZA_FPU"
If Nz(DCount("*", "LocalizaNomeFPU", ""), 0) > 0 Then
DoCmd.OpenForm stDocname
Form_LOCALIZA_FPU.RecordSource = "LocalizaNomeFPU"
End If
Exit Sub
Trata:
Call Trataerro
End Sub
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
Apareceu outro erro
segue imagem do erro anexo
segue imagem do erro anexo
Convidad- Convidado
O erro não a tem a ver com o código em si, mas com algum parâmetro numa consulta envolvida.
Há detalhes que você não informou.
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
Acredito que o problema não seja com a consulta pois ela funciona perfeitamente quando faço consulta de um item existente.
Vou detalhar melhor
tenho um form que serve para mostrar os resultados de minhas consultas e neste form quando eu clico para abrir eu carrego no recordsource dele qual consulta eu quero q ele demosntre, no critério da consulta já tem a pergunta para inputar o paramentro Ex. "[Qual a obra?]" essa janela da consulta que ao ser cancelada me deixa o form todo travado ou tbm quando não acha nenhum item.
Segue imagem de uma das consultas
Vou detalhar melhor
tenho um form que serve para mostrar os resultados de minhas consultas e neste form quando eu clico para abrir eu carrego no recordsource dele qual consulta eu quero q ele demosntre, no critério da consulta já tem a pergunta para inputar o paramentro Ex. "[Qual a obra?]" essa janela da consulta que ao ser cancelada me deixa o form todo travado ou tbm quando não acha nenhum item.
Segue imagem de uma das consultas
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
Tiago, se você já tem o SQL defenido no RecordSource do form, para enviar novamente ?
Outra coisa que deve notar, é que você está a fazer um DoCmd.Close, antes de abrir.
Private Sub Consulta_por_Nome_doc_Click()
Dim stDocname As String
Dim stCriterio As String
On Error GoTo Trata
DoCmd.Close
stDocname = "LOCALIZA_FPU"
DoCmd.OpenForm stDocname
Form_LOCALIZA_FPU.RecordSource = "LocalizaNomeFPU"
Exit Sub
Trata:
Call Trataerro
End Sub
Deve utilizar no final do código:
DoCmd.Close acForm, "SeuFormulario", acSaveYes
Outra coisa que deve notar, é que você está a fazer um DoCmd.Close, antes de abrir.
Private Sub Consulta_por_Nome_doc_Click()
Dim stDocname As String
Dim stCriterio As String
On Error GoTo Trata
DoCmd.Close
stDocname = "LOCALIZA_FPU"
DoCmd.OpenForm stDocname
Form_LOCALIZA_FPU.RecordSource = "LocalizaNomeFPU"
Exit Sub
Trata:
Call Trataerro
End Sub
Deve utilizar no final do código:
DoCmd.Close acForm, "SeuFormulario", acSaveYes
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
JPaulo, no RecordSource do form fica sempre em branco somente ao abrir o form que eu inputo ele.
Quanto ao Dcmd.Close ele está funcionando sem problemas
É no fomulário q abro que não consigo cancelar a consulta ou dá problemas quando não encontra registro
tentei colocar o código "If Nz(DCount("*", "LocalizaNomeFPU", ""), 0) > 0 Then" antes ou depois de abrir o form da consulta mas em nenhum dos casos deu certo.
Vou add o sistema completa acho q não estou conseguindo expressar o minha dúvida.
O sistema é uma coletânia praticamente dos fóruns hehe...
Quanto ao Dcmd.Close ele está funcionando sem problemas
É no fomulário q abro que não consigo cancelar a consulta ou dá problemas quando não encontra registro
tentei colocar o código "If Nz(DCount("*", "LocalizaNomeFPU", ""), 0) > 0 Then" antes ou depois de abrir o form da consulta mas em nenhum dos casos deu certo.
Vou add o sistema completa acho q não estou conseguindo expressar o minha dúvida.
O sistema é uma coletânia praticamente dos fóruns hehe...
tiagocsilva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 17
Registrado : 12/03/2012
Por favor, alguem conseguiu, já tentei de várias maneiras ainda sem sucesso.
|
|
|