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]selecionar item da listbox para outro formulario utilizando botão

    avatar
    fabio.psico.ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/10/2017

    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  fabio.psico.ribeiro 7/10/2017, 22:06

    Boa tarde

    Tenho procurado e não encontrei nada que me ajudasse... estou iniciando em Access... tenho em um formulario (frmprodutoscompras) uma listbox (cxl_produtos) contendo vários produtos, com as seguintes colunas: codproduto, nomeproduto, valorcompra; gostaria que ao clicar num botão de comando (alterar) abrisse o formulario de cadastro (frmcadproduto) com o item selecionado na listbox... preciso fazer através de um botão porque a opção de duploclique já está programado para lançar os itens em um outro formulario (frmdetalhescompras)... desde já obrigado...
    avatar
    Convidado
    Convidado


    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  Convidado 8/10/2017, 02:02

    Substitua os campos em negrito pelos seus;

    Private Sub comando100_Click()
    Dim strNomeDoDoc As String
    Dim strFiltro As String
    strNomeDoDoc = "Frm_NF_Entrada"
    strFiltro = "[IdEntrada] = [Forms]![Frm_Consulta_NF_Entrada]![IdEntrada]"
    DoCmd.OpenForm strNomeDoDoc, , , strFiltro
    DoCmd.Close acForm, "Frm_Consulta_NF_Entrada"
    Exit_IdEntrada_Click:

    End Sub
    avatar
    fabio.psico.ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/10/2017

    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  fabio.psico.ribeiro 8/10/2017, 02:43

    Fiz as substituições... escolhi uma linha e dei o clique no botão, mas não deu certo... deu msg de erro em tempo de execução 2491... a ação ou método é inválido porque o formulário ou relatório não está associado a uma tabela ou consulta... no depurar apontou a linha: DoCmd.OpenForm strNomeDoDoc, , , strFiltro
    avatar
    Convidado
    Convidado


    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  Convidado 8/10/2017, 03:39

    Private Sub comando100_Click()
    On Error GoTo Err_cmdOpen_Click

       Dim stDocName As String
       Dim stLinkCriteria As String

       stDocName = "(frmcadproduto"
       
       stLinkCriteria = "[IdProd]=" & Me![IdProd]
       DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_cmdOpen_Click:
       Exit Sub

    Err_cmdOpen_Click:
       MsgBox Err.Description
       Resume Exit_cmdOpen_Click
    End Sub
    avatar
    fabio.psico.ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/10/2017

    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  fabio.psico.ribeiro 8/10/2017, 04:03

    obrigado, mas ainda não foi... dá mensagem: O Microsoft Access não pode localizar o campo 'codproduto' referido em sua expressão
    avatar
    fabio.psico.ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/10/2017

    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  fabio.psico.ribeiro 8/10/2017, 04:25

    finalmente deu certo... usei as condições abaixo:

      Dim stDocName As String
      Dim stLinkCriteria As String

      stDocName = "frmcadproduto"
     
      stLinkCriteria = "[codproduto]=" & "Forms!frmprodutoscompras!cxl_produtos"
     
      DoCmd.OpenForm stDocName, , , stLinkCriteria

    muito obrigado pela ajuda

    Conteúdo patrocinado


    [Resolvido]selecionar item da listbox para outro formulario utilizando botão Empty Re: [Resolvido]selecionar item da listbox para outro formulario utilizando botão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:21