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

    Update e Insert via VBA

    Compartilhe
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3398
    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
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    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.
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    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: Ter 17 Out 2017, 02:58