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

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

    avatar
    MarcosXP
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Deletar registros de uma ou mais tabelas via código vba

    Mensagem  MarcosXP 8/3/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

    ---------------------------------------------------------------------------
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 16/3/2016, 16:54


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


    Respeito às regras : 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 Empty Deletar registros de uma ou múltiplas tabelas via código vba

    Mensagem  MarcosXP 27/3/2016, 13:54

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:26