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

2 participantes

    Deletar registro apos transferir para outra tabela

    avatar
    Valdevino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 22/05/2011

    Deletar registro apos transferir para outra tabela Empty Deletar registro apos transferir para outra tabela

    Mensagem  Valdevino 13/10/2014, 14:12

    Bom dia, sou novo no forum e esta é a segunda vez que peço ajuda aos bons amigos deste foro. Nao entendo de codigo mas, com a ajuda de voces, vou copiando e colando os codigo e estão dando certo. preciso transferir o registro de uma tabela para a outra.Até ai tudo bem,mas preciso que o registro da primeira tabela seja deletado.Como faço?

    Private Sub Lista7_Click()
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido = Lista7.Column(0)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!favorecido.SetFocus

    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento = Lista7.Column(1)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!lancamento.SetFocus

    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito = Lista7.Column(2)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!vl_credito.SetFocus

    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela = Lista7.Column(3)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!parcela.SetFocus

    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas = Lista7.Column(4)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus

    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto = Lista7.Column(5)
    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!data_vencto.SetFocus




    Forms![tbl_boleto]![tbl_contas_a_receber subformulário].[Form]!num_parcelas.SetFocus


    If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then

    MsgBox "Registro apagado", vbInformation, "Excluído"
    Else
    Cancel = True
    End If




    DoCmd.Close acForm, ("frm_Pesq_cobrar"), acSavePrompt
    End Sub





    End Sub
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Deletar registro apos transferir para outra tabela Empty Re: Deletar registro apos transferir para outra tabela

    Mensagem  Dilson 16/10/2014, 01:30

    Dentro do If, acima da MsgBox:


    CurrentDb.Execute "DELETE * FROM NomeDaTabela " _
                   & "WHERE NomeDoCampoChavePrimaria= " & Me.Lista7.Column(0)


    Estou presumindo que a Lista7.Column(0) corresponde ao número da chave primária (campo referencial de registro) na tabela.

      Data/hora atual: 3/12/2022, 03:34