MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]DoCmd.OpenForm não funciona

    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]DoCmd.OpenForm não funciona Empty [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  carolinesilva115 em 15/5/2020, 04:27

    Olá!

    Fiz uma caixa de busca que ao clicar no botão de pesquisar, deveria abrir um outro formulário com as informações dos dados que os usuários desejam procurar.

    Entretanto, sempre que o código vai pro DoCmd.OpenForm, o Access solicita "Inserir valor de parâmetro"... Alguém sabe pq?

    Vou colocar  o código e o programa.

    Código:
    Private Sub Comando139_Click()


        'se for nula a seleção da lista então
        If IsNull(Me.ListaBusca2) Then
            
                  
           MsgBox ("Selecione um registro para abrir"), , "Seleção Nula"
     
          Exit Sub
            
        Else
            
            
            'procurando o registro selecionado
            DoCmd.OpenForm "FormNavegacao", , , "Armador = " & Me.ListaBusca2
            
            
            Exit Sub
            

        End If


    End Sub
    Anexos
    [Resolvido]DoCmd.OpenForm não funciona AttachmentDatabase_Carol.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 4 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  Ismael Silva em 15/5/2020, 05:41

    Bom dia,

    Tente substituir a linha que você colocou

    DoCmd.OpenForm "FormNavegacao", , , "Armador = " & Me.ListaBusca2

    Por esta:


     DoCmd.OpenForm "FormNavegacao", , acNormal
       
       Forms![FormMenuInicial].Armador = txtBusca2
       
       DoCmd.Close acForm, "FormMenuInicial"



    Aguardamos retorno.
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 59
    Registrado : 08/12/2010

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  bacano em 15/5/2020, 08:48

    Ismael Silva o seu código não funciona

       DoCmd.OpenForm "FormNavegacao", , acNormal,   este sim
       
       Forms!]FormMenuInicial].Armador = txtBusca2   ???  não percebi
       
      o formulario  FormMenuInicial não tem nenhuma variavel chamada Armador



    carolinesilva  substitua o código por este, vai também o anexo

    Private Sub Comando139_Click()
       Dim stDocName As String

       'se for nula a seleção da lista então
       If IsNull(Me.ListaBusca2) Then
          MsgBox ("Selecione um registro para abrir"), , "Seleção Nula"
          Exit Sub
       End If
     
      'procurando o registro selecionado

       stDocName = "FormNavegacao"
       DoCmd.OpenForm stDocName, , , "[Armador] = '" & Me.ListaBusca2 & "'"
           
    End Sub
    Anexos
    [Resolvido]DoCmd.OpenForm não funciona Attachmentcopia_alterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 7 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  Ismael Silva em 15/5/2020, 14:39

    Certo, vou verificar novamente, o que eu fiz, mas o bom é que existe muitas alternativas de se chegar ao resultado.

    Obrigado amigo.
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 59
    Registrado : 08/12/2010

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  bacano em 15/5/2020, 19:59

    Boa tarde Ismael Silva,

    é isso mesmo amigo, sempre a aprender e sempre a partilhar

    Cumprimentos
    Ventura
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  carolinesilva115 em 16/5/2020, 01:20

    Oi, gente!!

    O código do Bacano está 100%!!

    Vcs são geniais!!

    Mas me respondam: pq o meu tá errado?

    Queria aprender tbm Laughing

    Grata por vcs despenderem um pouco do tempo de vcs para me ajudar!
    Obg!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  DamascenoJr. em 16/5/2020, 01:38

    Não esqueça o resolvido do tópico.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  DamascenoJr. em 16/5/2020, 01:43

    carolinesilva115 escreveu:Mas me respondam: pq o meu tá errado?

    Veja a parte do filtro

    A sua
    "[Armador] = " & Me.ListaBusca2

    A dica que resolve
    "[Armador] = '" & Me.ListaBusca2 & "'"

    Ou seja, se o campo a ser filtrado é do tipo texto então o filtro deve estar envolto em aspas simples (ou duplas).


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2099
    Registrado : 22/11/2016

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  DamascenoJr. em 1/6/2020, 02:31

    Caroline, estamos aguardando o resolvido do tópico. Essa ação e necessária para que os demais membros saibam que a dúvida colocada no tópico teve solução.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]DoCmd.OpenForm não funciona Empty Re: [Resolvido]DoCmd.OpenForm não funciona

    Mensagem  carolinesilva115 em 19/6/2020, 23:49

    ok
    obg

      Data/hora atual: 8/7/2020, 09:04