Boa tarde senhores sou novato em access e estou querendo abrir uns formulários digitando o nome do mesmo e pressionando a tela enter como se fosse um botão teria como? Obrigado.
2 participantes
[Resolvido]Chamar Formulário digitando o nome.
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
- Mensagem nº1
[Resolvido]Chamar Formulário digitando o nome.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº2
Re: [Resolvido]Chamar Formulário digitando o nome.
Olá José Miranda, seja Bem-vindo ao fórum.
Na tem alguma coisa feita? Pode postar para se analizar?
Respondendo à questão, creio ser possível depende se quer fazer via caixa texto, caixa de listagem, inputbox.
Mostre o que tem, ou deixe mais detalhes.
Eu pessoalmente não acho prático digitar o nome completo do form para abrir, mas pode ter ua razão valida para pretender dessa forma.
Abraço
Na tem alguma coisa feita? Pode postar para se analizar?
Respondendo à questão, creio ser possível depende se quer fazer via caixa texto, caixa de listagem, inputbox.
Mostre o que tem, ou deixe mais detalhes.
Eu pessoalmente não acho prático digitar o nome completo do form para abrir, mas pode ter ua razão valida para pretender dessa forma.
Abraço
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
- Mensagem nº3
Boa tarde Ahteixeira
Ahteixeira Boa tarde obrigado por responder quero colocar o nome do Form ex "L1" e ao digitar em uma caixa texto e pressionar enter abrir.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº4
Re: [Resolvido]Chamar Formulário digitando o nome.
Olá José Miranda, estou no tablet, mas vamos a isso.
No seu formulário crie uma caixa de texto, com o nome txtFormAbrir
Depois no evento ao perder o foco ou depois de atualizar, coloque o seguinte código:
Coloque L1 na caixa e teste.
Abraço
No seu formulário crie uma caixa de texto, com o nome txtFormAbrir
Depois no evento ao perder o foco ou depois de atualizar, coloque o seguinte código:
- Código:
if len(me.txtFormAbrir &"") > 0 Then DoCmd.OpenForm me.txtFormAbrir, acNormal
Coloque L1 na caixa e teste.
Abraço
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
- Mensagem nº5
Re: [Resolvido]Chamar Formulário digitando o nome.
Ahteixeira vc é o cara! Obrigado deu certinho, tem um probleminha quando eu fecho o formMenu ele abre o form L1. Outra coisa teria como colocar uma mensagem quando colocasse um form não existente? vou te mandar um exemplo
4shared.com/get/cMuqU7w7ee/Access_tes.html
Copiar link e colar no navegador ou download abaixo
4shared.com/get/cMuqU7w7ee/Access_tes.html
Copiar link e colar no navegador ou download abaixo
- Anexos
- Teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (69 Kb) Baixado 17 vez(es)
Última edição por netodados em 30/4/2018, 00:18, editado 1 vez(es)
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº6
Re: [Resolvido]Chamar Formulário digitando o nome.
Olá José Miranda,
Alterei do evento Ao Perder o Foco para Depois de Atualizar com o seguinte código:
Fiz alguns ajustes à Macro, pois estava abrir no modo de Leitura, assim não permitia depois introduzir a actividade.
Na mensagem anterior postei anexo do que partilhou (para não se perder) e também tem o ficheiro com a solução.
Abraço e bons estudos com o MaximoAccess
Alterei do evento Ao Perder o Foco para Depois de Atualizar com o seguinte código:
- Código:
Private Sub txtFormAbrir_AfterUpdate()
On Error GoTo TrataErro
If Len(Me.txtFormAbrir & "") > 0 Then
DoCmd.OpenForm Me.txtFormAbrir, acNormal
DoCmd.Close acForm, "FormMenu"
End If
Sair:
Exit Sub
TrataErro:
If Err.Number = 2102 Then
MsgBox "Não existe a Actividade " & Me.txtFormAbrir & " , verifique.", vbExclamation, ""
Me.txtFormAbrir = ""
Err.Clear
Else
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erro"
End If
End Sub
Fiz alguns ajustes à Macro, pois estava abrir no modo de Leitura, assim não permitia depois introduzir a actividade.
Na mensagem anterior postei anexo do que partilhou (para não se perder) e também tem o ficheiro com a solução.
Abraço e bons estudos com o MaximoAccess
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
- Mensagem nº7
Re: [Resolvido]Chamar Formulário digitando o nome.
Ahteixeira Bom dia. Deu certinho ficou perfeito muito obrigado.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº8
Re: [Resolvido]Chamar Formulário digitando o nome.
Bom dia José Miranda, obrigado pelo retorno.
Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço
Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
- Mensagem nº9
Re: [Resolvido]Chamar Formulário digitando o nome.
Minha duvida foi resolvida agradeço ao Forum e o amigo Ahteixeira.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº10
Re: [Resolvido]Chamar Formulário digitando o nome.
» [Resolvido]Chamar form e inserir nome. . .
» [Resolvido]Digitando valores nos campos (Formulário com guias) e salvando no Subformulario
» Erro ao chamar chamar formulario por um subformulario com estilo GRID
» [Resolvido]Como exibir nome do vendedor e a empresa que trabalha digitando o seu código
» [Resolvido]Botão para chamar subformulário em formulário principal
» [Resolvido]Digitando valores nos campos (Formulário com guias) e salvando no Subformulario
» Erro ao chamar chamar formulario por um subformulario com estilo GRID
» [Resolvido]Como exibir nome do vendedor e a empresa que trabalha digitando o seu código
» [Resolvido]Botão para chamar subformulário em formulário principal