MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Deletar Registro selecionado da caixa de listagem.

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/08/2018

    [Resolvido]Deletar Registro selecionado da caixa de listagem. Empty [Resolvido]Deletar Registro selecionado da caixa de listagem.

    Mensagem  mfmaiafilho em 17/1/2020, 16:55

    boa tarde a todos do forum estou aqui pra tentar tirar uma duvida sobre como fazer isso

    eu tenho uma janela, que abre com Controle de Guias e uma caixa de listagem, nessa caixa de listagem eu já agreguei dois botões, Novo e Editar, sendo que esses dois eles abrem outros formulários pequenos somente pra edição/adição, daí eu queria colocar um botão para Excluir o item selecionado caixa de listagem, eu usei o comando

    DoCmd.SetWarnings False
      Dim strMsg As String
      Dim iResponse As Integer

      strMsg = "Deseja excluir esse cadastro?" & Chr(10)
      iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "AVISO")
     
      If iResponse = vbYes Then
      DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.RefreshRecord
      Me.LST_SOLICITANTE.SetFocus

    Gostaria de saber como posso fazer pra que seja apagado o item selecionado da caixa de listagem e não o último item como está ocorrendo....

    Fico no aguardo!


    Última edição por mfmaiafilho em 4/3/2020, 11:30, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7527
    Registrado : 05/11/2009

    [Resolvido]Deletar Registro selecionado da caixa de listagem. Empty Re: [Resolvido]Deletar Registro selecionado da caixa de listagem.

    Mensagem  Alexandre Neves em 18/1/2020, 11:56

    Bom dia, e bem-vindo à participação no fórum
    Tente
    Código:
    Dim Item, intID as integer
    if MsgBox("Deseja excluir esse cadastro?", vbQuestion + vbYesNo, "AVISO")= vbYes Then
        For Each Item In CaixaDeListagem.ItemsSelected
            intID = CaixaDeListagem.Column(NumeroDaColunaID, Item)
        Next
        Currentdb.execute "DELETE * FROM Tabela WHERE ID=" & intID
        DoCmd.RefreshRecord
        Me.LST_SOLICITANTE.SetFocus
    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/08/2018

    [Resolvido]Deletar Registro selecionado da caixa de listagem. Empty Deletar Registro selecionado da caixa de listagem.

    Mensagem  mfmaiafilho em 20/1/2020, 13:43

    Bom dia, obrigado! ^_^ abraços!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7527
    Registrado : 05/11/2009

    [Resolvido]Deletar Registro selecionado da caixa de listagem. Empty Re: [Resolvido]Deletar Registro selecionado da caixa de listagem.

    Mensagem  Alexandre Neves em 21/1/2020, 15:12

    Boa tard,
    Funcionou? Se sim, marque o "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado

    [Resolvido]Deletar Registro selecionado da caixa de listagem. Empty Re: [Resolvido]Deletar Registro selecionado da caixa de listagem.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/4/2020, 04:22