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]Excluir registro em subformulário contínuo

    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Excluir registro em subformulário contínuo Empty [Resolvido]Excluir registro em subformulário contínuo

    Mensagem  AndrePeteca 9/11/2015, 11:30

    Bom dia a todos, antes de mais nada eu fiz uma pesquisa aqui no fórum sobre o assunto e achei este tópico, excluir registro no formulário contínuo e exatamente o que quero fazer no meu subformulário contínuo, mas tentei adaptar este código a minha necessidade, mas não deu certo.
    No meu subformulário contínuo eu coloquei um ícone de uma lixeira que se repete quantos registros tiver, o que eu gostaria de fazer era clicar no ícone da lixeira e excluir só a linha correspondente ao ícone. Mas o que está acontecendo e que só excluir a linha que está em foco, por exemplo: se eu tenho três registros e quero excluir o terceiro era só aperta no terceiro ícone, mas quando eu faço isso excluir o primeiro registro.

    Como faço para resolver este problema?

    [Resolvido]Excluir registro em subformulário contínuo Orhy0g
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir registro em subformulário contínuo Empty Re: [Resolvido]Excluir registro em subformulário contínuo

    Mensagem  Assis 9/11/2015, 12:01

    André

    Poste só esse formulário e a tabela aonde estão os dados.

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Excluir registro em subformulário contínuo Empty Re: [Resolvido]Excluir registro em subformulário contínuo

    Mensagem  Silvio 9/11/2015, 12:03

    Bom dia.

    Quando se trata de um formulário continuo, eu prefiro usar uma macro nativa de excluir registro do Access.
    Não dá dor de cabeça mesmo.

    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Excluir registro em subformulário contínuo Empty Re: [Resolvido]Excluir registro em subformulário contínuo

    Mensagem  AndrePeteca 9/11/2015, 20:25

    pessoal muito obrigado por sua atenção resolvi com este código

    Private Sub btn_excluir_Click()
    'Botão excluir registros

    DoCmd.GoToControl Screen.PreviousControl.Name

    If IsNull(Me.idPreco) Or Me.idPreco = "" Then
    MsgBox "Não tem dados para ser excluidos", vbCritical, "ERRO AO EXCLUIR"
    Else
    If MsgBox("Você esta prestes a excluir 1 registro." & vbCrLf & "" & vbCrLf & "CÓDIGO: " & Format(idPreco, "0000") & "." & vbCrLf & "Se clicar em Sim, não será possivel desfazer esta operação de exclusão." & vbCrLf & "Tem certeza que deseja excluir este registro?", vbExclamation + vbYesNo, "EXCLUIR REGISTRO") = vbYes Then
    CurrentDb.Execute "DELETE * FROM tbl_CadProPreco WHERE idPreco=" & Me.idPreco
    MsgBox "Registro excluido com sucesso!", vbExclamation, "SUCESSO"
    Me.Recalc
    Forms!frm_CadProduto.dataHoje
    End If
    End If

    End Sub

    Conteúdo patrocinado


    [Resolvido]Excluir registro em subformulário contínuo Empty Re: [Resolvido]Excluir registro em subformulário contínuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:22