MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Abrir formulário pela inputBox

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 22/04/2016

    [Resolvido]Abrir formulário pela inputBox Empty [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
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Abrir formulário pela inputBox Empty 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 irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 22/04/2016

    [Resolvido]Abrir formulário pela inputBox Empty 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
    [Resolvido]Abrir formulário pela inputBox AttachmentDBTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (193 Kb) Baixado 9 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4445
    Registrado : 06/11/2009

    [Resolvido]Abrir formulário pela inputBox Empty 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 ***
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 22/04/2016

    [Resolvido]Abrir formulário pela inputBox Empty Re: [Resolvido]Abrir formulário pela inputBox

    Mensagem  dori 13/2/2021, 12:38

    Olá assis!

    Tem razão, é código!
    Desculpe a falha.

    Resolvido; Obrigado
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4445
    Registrado : 06/11/2009

    [Resolvido]Abrir formulário pela inputBox Empty Re: [Resolvido]Abrir formulário pela inputBox

    Mensagem  Assis 13/2/2021, 13:47

    Eu desculpo Laughing

    Obrigado pelo retorno


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

    Conteúdo patrocinado

    [Resolvido]Abrir formulário pela inputBox Empty Re: [Resolvido]Abrir formulário pela inputBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 14:28