MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Deletar Registro selecionado da caixa de listagem.

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    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 : 7704
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    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 : 7704
    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

      Data/hora atual: 1/10/2020, 04:46