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]Listbox Excluir dados do banco

    avatar
    edi.santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos 24/9/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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno 24/9/2014, 15:45

    Bom dia Edinaldo;

    Deixo um exemplo para seu estudo.

    Os creditos do autor estão no Modulo.


    .................................................................................
    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
    [Resolvido]Listbox Excluir dados do banco 16rzeq
    avatar
    edi.santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos 24/9/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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno 24/9/2014, 18:40

    Ok, teste para vermos se seria isso.


    .................................................................................
    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
    [Resolvido]Listbox Excluir dados do banco 16rzeq
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  cleverson_manaus 24/9/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
    avatar
    edi.santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  edi.santos 25/9/2014, 15:42

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

    Problema resolvido.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Fernando Bueno 25/9/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
    [Resolvido]Listbox Excluir dados do banco 16rzeq

    Conteúdo patrocinado


    [Resolvido]Listbox Excluir dados do banco Empty Re: [Resolvido]Listbox Excluir dados do banco

    Mensagem  Conteúdo patrocinado


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