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 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, 22:01

    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

    ---------------------------------------------------------------------------
    avatar
    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, 16:54


    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, 13:54

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

      Data/hora atual: Sab 22 Jul 2017, 09:43