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


3 participantes

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s)

    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Sub Formulario: excluir registro(s) selecionado(s)

    Mensagem  DFROBINSON 19/2/2013, 19:48

    Amigos.
    Já pesquisei bastante mas não encontrei exatamente o que necessito.
    Em um subformulário, quero selecionar um (ou mais) registro(s) e excluí-lo(s).
    Exemplo: Um pedido (formulário) com diversos itens (subformulários); selecionar item(ns) do pedido no subformulário e clicar em um botão "Excluir Item(ns)". Agradeço qualquer sugestão de código VBA (link com exemplo também vale) que atenda a essa necessidade. Desde já agradeço.
    Daniel Robinson.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Re: [Resolvido]Sub Formulario: excluir registro(s) selecionado(s)

    Mensagem  criquio 19/2/2013, 20:28

    Se vai selecionar um a um, poderia colocar um botão para já excluir aquela linha direto:

    CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE Código=" & Me.Código & ""

    Nesse caso, NomeDaTabela seria a própria tabela do subformulário.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Re: [Resolvido]Sub Formulario: excluir registro(s) selecionado(s)

    Mensagem  DFROBINSON 19/2/2013, 23:58

    Olá Criquio.
    Agradeço a tua atenção.
    O subformulário está no modo "folha de dados". Aparentemente não é possível exibir um botão nesse modo. Teria alguma outra maneira de eu exibir os registros do subformulário no formato de linhas e exibir o botão para excluir a linha ? Tentei colocar o botão fora do subformulário mas, neste caso, a referência "Me.Código" se refere ao controle do Formulário Mestre. Se tiver mais alguma ideia, agradeço. Abraço. Daniel R.
    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Re: [Resolvido]Sub Formulario: excluir registro(s) selecionado(s)

    Mensagem  DFROBINSON 20/2/2013, 00:14

    Prezado Criquio.
    Consegui resolver usando o teu código.
    Com a ajuda do construtor de expressões consegui obter a sintaxe correta para fazer referência ao controle "Código" do subformulário. Então o código ficou assim:
    CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE Código=" & [NomeDoSubFormulário_subform].Form![Código]
    Me.NomeDoSubFormulário_subform.Form.Requery

    e resolveu meu problema.
    Muitíssimo obrigado, mais uma vez.

    avatar
    mdayrell
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/03/2014

    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Duvida

    Mensagem  mdayrell 19/3/2014, 19:59

    Robinson,

    Sou novo em access e não sei nada de vba.
    Estou precisando excluir registros de um sub-formulário que está em modo folha de dados. No tópico solucionado dia 20/02 vi o código que vc postou. eu o copiei, criei um botão e em propriedades> eventos> consultor de códigos>, colei o comando que vc havia postado, substitui os nomes das tabelas e os nomes dos formulários pelos que eu tenho. Mas não está dando certo , aparece a mensagem : "Invalido for de u procedimento"
    Tem alguma dica ou orientação para me passar? este consultor de expressões que vc utilizou, é possível baixá-lo?

    Conteúdo patrocinado


    [Resolvido]Sub Formulario: excluir registro(s) selecionado(s) Empty Re: [Resolvido]Sub Formulario: excluir registro(s) selecionado(s)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 20:53