InícioTem como tirar aquele botão cancelar da caixa inputbox gerada quando você coloca o critério "como" na grade QBE da consulta? ele está atrapalhando meu programa em Access, pois quando clica-se nele nem abre a consulta requerida e nem volta ao formulário inicial.
2 participantes
[Resolvido]Botão Cancelar do Inputbox da grade QBE.
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº2
![[Resolvido]Botão Cancelar do Inputbox da grade QBE. Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Botão Cancelar do Inputbox da grade QBE.
Avelino Sampaio 29/4/2013, 10:13
Olá!
Vc pode interceptar o Cancel com a função strPtr(). Exemplo:
Sub TesteInputBox()
Dim x As String
x = InputBox("Clique em cancelar", "Testando Cancelar")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
End If
End sub
Sucesso!
Vc pode interceptar o Cancel com a função strPtr(). Exemplo:
Sub TesteInputBox()
Dim x As String
x = InputBox("Clique em cancelar", "Testando Cancelar")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
End If
End sub
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Oi Avelino, mais uma vez me socorrendo! (risos)
Esta função eu coloco onde?
Sub TesteInputBox()
Dim x As String
x = InputBox("Clique em cancelar", "Testando Cancelar")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
End If
End sub
Esta função eu coloco onde?
Sub TesteInputBox()
Dim x As String
x = InputBox("Clique em cancelar", "Testando Cancelar")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
End If
End sub
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Avelino,
Eu gostaria que quando clicasse no botão cancelar ele abrisse o formulário "FormCad".
Abraços.
Eu gostaria que quando clicasse no botão cancelar ele abrisse o formulário "FormCad".
Abraços.
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº5
Re: [Resolvido]Botão Cancelar do Inputbox da grade QBE.
Avelino Sampaio 29/4/2013, 15:45
Está chamando o formulário por um botão ? Esta consulta é origem do formulário FormCad ?
Aguardamos
Aguardamos
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Oi Avelino!
O botão consultar fica no formulário principal (FormCad), que ao ser clicado chama o formulário consulta (FormCons), e este FormCons está vinculado a uma consulta, ou seja, antes dele abrir já aparece uma caixinha tipo inputbox pedindo para informar o nome do paciente com os dois botões: OK e CANCELAR. O problema está aí: quando digito a informação que se pede na caixa e clico em OK ele abre o FormCons com o registro que eu pedi, se eu clico em CANCELAR nada acontece: nem abre um novo formulário e nem volta ao formulário principal FormCad. Acaba eu tendo que fechar o BD pelo ALT + F4.
Abraços.
P. S.: Não há uma consulta SQL que eu possa criar que me dê uma função para o botão cancelar ao invés de eu usar a consulta critério da grade QBE?
O botão consultar fica no formulário principal (FormCad), que ao ser clicado chama o formulário consulta (FormCons), e este FormCons está vinculado a uma consulta, ou seja, antes dele abrir já aparece uma caixinha tipo inputbox pedindo para informar o nome do paciente com os dois botões: OK e CANCELAR. O problema está aí: quando digito a informação que se pede na caixa e clico em OK ele abre o FormCons com o registro que eu pedi, se eu clico em CANCELAR nada acontece: nem abre um novo formulário e nem volta ao formulário principal FormCad. Acaba eu tendo que fechar o BD pelo ALT + F4.
Abraços.
P. S.: Não há uma consulta SQL que eu possa criar que me dê uma função para o botão cancelar ao invés de eu usar a consulta critério da grade QBE?
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº7
Re: [Resolvido]Botão Cancelar do Inputbox da grade QBE.
Avelino Sampaio 29/4/2013, 23:38
Vc então pode aproveitar a função que te passei, no botão que chama pelo formulário formCons
Tire o parametro lá da consulta e no botão que chama pelo formulário coloque:
Dim x As String
x = InputBox("Entre com o valor", "Valor")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
else
docmd.openform "FormCons",,,"[NomeCampoASerConsultado]=" & val(x)
'ou assim, se for uma string
docmd.openform "FormCons",,,"[NomeCampoASerConsultado]=""" & x & """"
End If
Sucesso!
Tire o parametro lá da consulta e no botão que chama pelo formulário coloque:
Dim x As String
x = InputBox("Entre com o valor", "Valor")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
else
docmd.openform "FormCons",,,"[NomeCampoASerConsultado]=" & val(x)
'ou assim, se for uma string
docmd.openform "FormCons",,,"[NomeCampoASerConsultado]=""" & x & """"
End If
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Este comando funcionou bem:
DoCmd.OpenForm "FormCons", , , "[Paciente]=""" & x & """"
Porém se eu colocar apenas o início do nome do paciente ele não encontra nada e se eu digitar asterisco para listar todos os pacientes também não encontra registro.
DoCmd.OpenForm "FormCons", , , "[Paciente]=""" & x & """"
Porém se eu colocar apenas o início do nome do paciente ele não encontra nada e se eu digitar asterisco para listar todos os pacientes também não encontra registro.
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº9
Re: [Resolvido]Botão Cancelar do Inputbox da grade QBE.
Avelino Sampaio 30/4/2013, 08:23
Use o LIKE (COMO)
DoCmd.OpenForm "FormCons", , , "[Paciente] like ""*" & x & "*"""
Sucesso!
DoCmd.OpenForm "FormCons", , , "[Paciente] like ""*" & x & "*"""
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Thel- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012
Valeu Avelino mais uma vez! Problema resolvido!
Conteúdo patrocinado