MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Deletar registros de uma ou mais tabelas via código vba

    Compartilhe

    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Deletar registros de uma ou mais tabelas via código vba

    Mensagem  MarcosXP em Ter 08 Mar 2016, 11:01 pm

    Saudações pessoal! Estou de volta para mais uma dúvida.

    Criei um sistema para controle de pedidos interno e externo.
    No externo coloquei esse código no botão para enviar os dados para o sistema de pedido interno.
    Envia os dados certos porem eu quero que ao enviar esses registros sejam deletados em seguida.
    ----------------------------------------------------------------------
    Private Sub cmd_transferOperacao_Click()

    On Error GoTo Err_cmd_transferOperacao_Click

    If MsgBox("Deseja transferir dados agora?", vbYesNo) = vbYes Then

    DoCmd.SetWarnings False

    DoCmd.OpenQuery "Acre_Pedidos" ----Aqui dá erro, envia os dados mas não apaga---
    DoCmd.OpenQuery "Acre_DetalhePedidos"

    MsgBox ("Dados transferidos e sincronizados com sucesso!"), vbInformation, "Tecnologia ISDTS"

    CorrentDb.Execute "DELETE * from tbl_detalhepedidos"
    CorrentDb.Execute "DELETE * from tbl_pedidos"

    Else

    MsgBox ("Transferência cancelada"), vbInformation, "Tecnologia ISDTS"

    End If

    Exit_cmd_transferOperacao_Click:
    Exit Sub
    Err_cmd_transferOperacao_Click:
    MsgBox "Sem conexão com a rede.", vbCritical, "A V I S O !"
    Resume Exit_cmd_transferOperacao_Click

    End Sub

    ---------------------------------------------------------------------------

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

    Re: [Resolvido]Deletar registros de uma ou mais tabelas via código vba

    Mensagem  bigfill em Qua 16 Mar 2016, 5:54 pm


    olá MarcosXP, Crie uma consulta de exclusão e execute ela apos o código de envio.

    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

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

    Deletar registros de uma ou múltiplas tabelas via código vba

    Mensagem  MarcosXP em Dom 27 Mar 2016, 2:54 pm

    Usei uma consulta exclusão como o amigo sugeriu e funcionou muito bem, obrigado!

      Data/hora atual: Qui 08 Dez 2016, 1:03 am