[Resolvido]Abrir formulário pela inputBox

dori 12/2/2021, 20:29

dori: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 153
Registrado : 22/04/2016

Mensagem nº1

[Resolvido]Abrir formulário pela inputBox

Mensagem dori 12/2/2021, 20:29

Olá!
Como faço para abrir um formulário com base no valor da inputBox?
Ex: No meu formulário "Compras" tem um botão editar que ao clicar pede o nº da "ID" (Numeração automática) a ser editado no formulário "ComprasEdição".
Eu gostaria que ao entrar com o nº da "ID" na inputBox, abrisse o formulário "ComprasEdição" somente com a "ID" digitado na inputbox!

Grato !

**Avelino Sampaio** 13/2/2021, 08:13

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3880
Registrado : 04/04/2010

Mensagem nº2

Re: [Resolvido]Abrir formulário pela inputBox

Mensagem Avelino Sampaio 13/2/2021, 08:13

Olá!

Adapte o código exemplo sugerido:

Private Sub btEditar_Click()
Dim varNum As Variant
varNum = InputBox("Digite o número do pedido...", "Número do pedido")
If varNum = Empty Then
MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...", "Aviso"
Else
DoCmd.OpenForm "ComprasEdição", , , "id = " & val(varNum)
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.

dori 13/2/2021, 12:05

dori

dori: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 153
Registrado : 22/04/2016

Mensagem nº3

Re: [Resolvido]Abrir formulário pela inputBox

Mensagem dori 13/2/2021, 12:05

Olá Avelino!
Tá pedindo para inserir o valor do parâmetro depois abre em branco!
Vou anexar uma cópia para facilitar.

Anexos

DBTeste.zip: Você não tem permissão para fazer download dos arquivos anexados.; (193 Kb) Baixado 12 vez(es)

Assis 13/2/2021, 12:24

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº4

Re: [Resolvido]Abrir formulário pela inputBox

Mensagem Assis 13/2/2021, 12:24

Boa tarde

Será isto ?

Não é ID é Código. Teste

Private Sub btEditar_Click()
Dim varNum As Variant
varNum = InputBox("Digite o número do pedido...", "Número do pedido")
If varNum = Empty Then
MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...", "Aviso"
Else
DoCmd.OpenForm "FormEdiçãoCompras", , , "código = " & Val(varNum)
End If
End Sub

.................................................................................
*** Só sei que nada sei ***