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]Excluir registro específico em SubFormulário

    avatar
    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Excluir registro específico em SubFormulário Empty Excluir registro específico em SubFormulário

    Mensagem  silvasantos em 23/2/2012, 20:16

    Olá, gostaria de saber se alguém poderia me ajudar em um problema aqui:
    Tenho um Form principal baseado em uma consulta e no mesmo, um SubFormulário em modo de folha de dados associado ao Form.
    Gostaria de saber se há a possibilidade de criar um botão no Form que exclua um registro previamente selecionado no SubFormulário.
    Desde já agradeço a atenção!
    avatar
    Convidad
    Convidado

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Convidad em 23/2/2012, 20:38


    Olá!

    Usar os Seletores de registro e o Delete está fora de questão?
    avatar
    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  silvasantos em 23/2/2012, 20:57

    Olá, mas como você mesmo disse, fora de questão.
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Dilson em 23/2/2012, 21:45

    Se para selecionar o registro especifico, você utilize CheckBox, pode utilizar as dicas deste tópico:
    apagar - [Resolvido]Apagar dados de subformulário
    avatar
    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  silvasantos em 23/2/2012, 22:16

    Muito obrigado pela atenção mas eu já havia lido este, mas o meu problema é outro.
    Assim, Gostaria de selecionar a linha no SubFormulário ( em modo de folha de dados) referente ao registro desejado e ao clicar em um botão no Form Principal, o registro selecionado seja excluído.
    avatar
    Convidad
    Convidado

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Convidad em 23/2/2012, 22:21


    O problema é que: quando vc clicar no botão este recebe o foco, e a seleção do registro no subform se perde.
    Daí não é possível passar o critério que especifica o(s) registro(s) a serem deletados.

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  criquio em 23/2/2012, 22:26

    Coloque um botão na frente dos campos do registro mesmo com algo assim:

    CurrentDb.Execute "DELETE * FROM NomeTabela WHERE Código=" & Me.Código & ""

    ou então coloque uma variável no escopo do formulário para receber o número da id do registro quando o usuário clicar no campo e mude o Me.Código para o nome da variável com o código acima no botão do formulário principal. Nesse caso, é aconselhável zerar a variável após a exclusão para não apagar algo por acidente.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  silvasantos em 23/2/2012, 22:58

    Obrigado pela atenção de vocês, mas optei por deixar a opção de excluir registros no SubFormulário, sendo assim, mais uma vez agradeço!
    avatar
    Convidad
    Convidado

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Convidad em 23/2/2012, 23:23


    Disponha.
    Se mudar de ideia, creio que a dica do Criquio resolve.

    Grato pelo retorno!
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Dilson em 23/2/2012, 23:33

    Já havia escrito há um tempo, minha internet caiu e só agora voltou.
    Apesar de ter optado por outra forma, deixo o que escrevi. Pode servir para outra pessoa que busque:

    Abra um módulo e colque essa função:
    Código:
    Global nId As Integer
    Function SelecionaId(ByRef argId As Integer)
               
                nId = argId
               
    End Function

    Dê o nome que desejar a esse módulo.


    No botão do seu formulário coloque:
    Código:
    Dim nSql As String

    nSql = "DELETE * FROM SuaTabelaOrigemDoSubForm WHERE SuaChavePrimária =" & nId


        If MsgBox("Deseja realmente deletar o registro: " & nId & " ?", vbYesNo, "Atenção") = vbYes Then
              CurrentDb.Execute nSql
              Me.SeuSubformulário.Requery
      End If

    No evento ao clicar dos campos de seu subformulário coloque:
    Call SelecionaId(Nz(SuaChavePrimária))

    Até!


    Conteúdo patrocinado

    [Resolvido]Excluir registro específico em SubFormulário Empty Re: [Resolvido]Excluir registro específico em SubFormulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 21:50