MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Listbox Excluir dados do banco

    Compartilhe

    edi.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 21/01/2014

    [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos em Qua 24 Set 2014 - 15:16

    Caro amigos;

    Estou com um listbox desacoplado, onde estou tentando Editar e Excluir os dados do banco atravez do proprio ListBox, porem sem sucesso ate agora.
    Alguem poderia me ajudar? Desde já agradeço
    Fico no aguardo.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno em Qua 24 Set 2014 - 15:45

    Bom dia Edinaldo;

    Deixo um exemplo para seu estudo.

    Os creditos do autor estão no Modulo.
    Anexos
    ListBoxExcludeOnClick.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 25 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    edi.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 21/01/2014

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos em Qua 24 Set 2014 - 18:00

    Muito Obrigado, Fernando dando uma olhada no seu Codigo. Muito bom!

    Porem o gostaria, de clicar no ListBox onde chamo um formulario com os dados da linha selecionado do listBox ai no formulario criei um botão Editar e Excluir.

    Bom clicando no ListBox na linha deseja, já consegui chamar meu formulario porem não estou conseguindo que ele venha preenchigo com os dados selecionado.

    Fico no aguardo.

    Mais uma vez obrigado

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno em Qua 24 Set 2014 - 18:40

    Ok, teste para vermos se seria isso.
    Anexos
    Exemplo_Edinaldo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 15 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  cleverson_manaus em Qua 24 Set 2014 - 19:19

    - trabalho da seguinte forma forma:

    01 - tenho um formulário com uma cx de listagem, nesse form realizo a inclusão, alteração ou exclusão dos dados;

    02 - a exclusão é feita através do evento ao clicar do botão Excluir do form, após selecionar o registro na cx de listagem;

    03 - carrego os dados da cx de listagem no evento ao carregar do form, através de uma instrução SQL;


    - os código são:

    01 - ao carregar do form:

    Private Sub Form_Load()

    On Error GoTo TrataErros

    Me.KeyPreview = True

    Dim db As DAO.Database
    Dim sSQL1 As String
    Dim sDevedora As String
    Dim sCredora As String

    Set db = CurrentDb()

    sSQL1 = "SELECT tb_historico.ID_HT, tb_historico.NM_HT, tb_historico.CD_HT, tb_plano_contas.NR_PC, " _
         & "tb_plano_contas.NM_PC, tb_historico.CC_HT, tb_plano_contas_1.NR_PC, tb_plano_contas_1.NM_PC, " _
         & "tb_historico.DT_HT, tb_historico.RC_HT FROM tb_plano_contas AS tb_plano_contas_1 INNER JOIN " _
         & "(tb_plano_contas INNER JOIN tb_historico ON tb_plano_contas.ID_PC = tb_historico.CD_HT) ON " _
         & "tb_plano_contas_1.ID_PC = tb_historico.CC_HT;"
                         
                         
    'Preenchendo a Caixa de Listagem Histórico
    ListaHistorico.RowSource = sSQL1


    End sub



    02 - Evento ao clicar botão Excluir, após selecionar o item na cx de listagem:


    Private Sub CmdExcluir_Click()

    On Error GoTo TrataErros

    Dim db As DAO.Database
    Set db = CurrentDb()

    Dim rs As DAO.Recordset

    Dim intCrit As Long

    lin = Chr$(13) & Chr$(10)
    strUserName = basMachineName.fOSMachineName()

    If ListaHistorico.ItemsSelected.Count = 0 Then
       
       CritMsg "Para Excluir, selecione um Histórico."
       DoCmd.CancelEvent
       Exit Sub

    End If


    Historico_Rótulo.Caption = "EXCLUIR HISTÓRICO"

    Alterar_Rótulo.Visible = False

    blnOK = basMsg.Confirmar("" & strUserName & ", Excluir?" & lin _
                       & lin & "Histórico      - " & ListaHistorico.Column(1) & lin _
                       & lin & "Conta Devedora - " & ListaHistorico.Column(3) & lin _
                       & lin & "Nome           - " & ListaHistorico.Column(4) & lin _
                       & lin & "Conta Credora  - " & ListaHistorico.Column(6) & lin _
                       & lin & "Nome           - " & ListaHistorico.Column(7) & lin _
                       & lin & "Cadastro       - " & ListaHistorico.Column(Cool & " ")

    If blnOK Then

       intCrit = Me.ListaHistorico.Column(0)

       sSQL = "SELECT * FROM tb_historico WHERE ID_HT = " & intCrit
       Set rs = db.OpenRecordset(sSQL)
       
       rs.MoveFirst
       rs.FindFirst "[ID_HT] = " & intCrit
       rs.Delete
       rs.Close
       
       ExclMsg "Histórico Excluído com sucesso!"
       
       ListaHistorico.Requery


    Else
           
       basMsg.CritMsg "Exclusão Cancelada."
       Form_Load
           
    End If
       
    Set rs = Nothing
    db.Close
    Set db = Nothing
         
    Saida:
    Exit Sub

    TrataErros:

    If Err.Number = 3200 Then
       
       CritMsg "Este Histórico não pode ser Excluído, existem" & lin _
       & lin & "registro(s) vinculados em outra(s) tabela(s)!" & lin _
       & lin & "Primeiro, exclua esse(s) registro(s)."
           

    Else
       
       CritMsg "Ocorreu um erro! " & Err.Description & "."

    End If

    Resume Saida

    End Sub


    Vlw

    edi.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 21/01/2014

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos em Qui 25 Set 2014 - 15:42

    Caros Amigos, Muito obrigado pelo suportes vocês são feras.

    Problema resolvido.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno em Qui 25 Set 2014 - 20:31

    Por nada, o forum agradece o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 8 Dez 2016 - 14:06