[Resolvido]DoCmd.OpenForm não funciona

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

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.

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

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

Obrigado amigo.

Boa tarde Ismael Silva,

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

Cumprimentos
Ventura

Oi, gente!!

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

Vcs são geniais!!

Mas me respondam: pq o meu tá errado?

Queria aprender tbm

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

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

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).

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.

ok
obg