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

    Update e Insert via VBA

    Compartilhe

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    Registrado : 27/03/2016

    Update e Insert via VBA

    Mensagem  xoxe em Qua 29 Jun 2016, 00:14

    Boa noite!

    Tenho um arquivo onde faço 1 insert e 2 updates seguidos, porém não sei o que está acontecendo que um dos updates as vezes não funciona!

    Estou desconfiado que seja problema com o runtime, onde alguns funcionários da empresa que trabalho usam!
    Fiz testes no banco de dados com access 2000 (onde foi criado) e não apresentou nenhum erro.

    Pode ser do runtime?

    O insert e o 1º update vai de boas.. Isso está me dando dor de cabeça!!!!

    Consigo resolver sem ter que mudar a versão nos micros?


    .................................................................................

    "Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein



    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: Update e Insert via VBA

    Mensagem  Avelino Sampaio em Qua 29 Jun 2016, 11:25

    Olá!

    Mostre a escrita SQL da consulta Update que está falhando.

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    Registrado : 27/03/2016

    Re: Update e Insert via VBA

    Mensagem  xoxe em Qua 29 Jun 2016, 20:29

    Código:
    Dim stDocName, Servico1, Servico2, UserAdm As String
        Servico1 = servico1txt
        Servico2 = servico2txt
        UserAdm = txtUserAtual
       
        If IsNull(chave1txt) Or IsNull(chave2txt) Then
        MsgBox "Por favor, informe uma chave", vbExclamation, "Mensagem"
           
        Else
       
        If Servico1 = Servico2 Then
       
        DoCmd.SetWarnings False
        stDocName = "RegistroTroca"
        DoCmd.OpenQuery stDocName, acNormal, acEdit
       
        DoCmd.SetWarnings False
        stDocName = "UpdateTrocaEscala1"
        DoCmd.OpenQuery stDocName, acNormal, acEdit
       
        DoCmd.SetWarnings False
        stDocName = "UpdateTrocaEscala2"
        DoCmd.OpenQuery stDocName, acNormal, acEdit
       
               
        MsgBox "Troca efetuada!", vbInformation, "Sucesso"
       
       
    chave1txt = ""
    chave2txt = ""

    refresh

    Else
       
        MsgBox "Serviços diferentes!", vbExclamation, "Mensagem"
        Exit Sub
    End if

    Este que as vezes não funciona

    Código:
    UPDATE TabTroca, TabEscala SET TabEscala.Servico = [Formulários]![FrmEscala]![servico1txt], TabEscala.DiaEscala = [Formulários]![FrmEscala]![DiaEscala1txt], TabEscala.HoraEscala = [Formulários]![FrmEscala]![HoraEscala1txt], TabEscala.SupResp = [Formulários]![FrmEscala]![SupResp1txt]
    WHERE (((TabEscala.ChaveOp)=[Formulários]![FrmEscala]![chave2txt]) AND ((TabEscala.DiaFDS)=[Formulários]![FrmEquipe]![DiaTxt]));

    Na realidade, acho que não seja problema da consulta e sim que ao executar o evento de click do botão, não é 'lida' a linha do vba (em alguns momentos apenas) cfe abaixo:

    Código:
    DoCmd.SetWarnings False
        stDocName = "UpdateTrocaEscala2"
        DoCmd.OpenQuery stDocName, acNormal, acEdit


    Mas todos os testes no meu computador funcionaram. Pode ser concorrência de informações?


    .................................................................................

    "Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein



    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    Registrado : 27/03/2016

    Re: Update e Insert via VBA

    Mensagem  xoxe em Qua 13 Jul 2016, 01:07

    ?????


    .................................................................................

    "Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein



    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Sex 09 Dez 2016, 13:29