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]UPDATE - Tabela não está atualizando

    Compartilhe

    infosoft
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 09/07/2012

    [Resolvido]UPDATE - Tabela não está atualizando

    Mensagem  infosoft em Qua 9 Jul 2014 - 18:53

    Olá pessoal... Por que minha tabela não atualiza?

    Todos os controles são desacoplados.

    ===== CÓDIGO =====
    Private Sub btSalvaE_Click()
    On Error Resume Next
    Me.txtAnoE.SetFocus

    DoCmd.RunSQL ("UPDATE Casos" _
    & "SET RedeGeral = (" & Me.txtGeralE & ")," _
    & "RedeHospitalar = (" & Me.txtHospitalarE & ")," _
    & "Maternidade = (" & Me.txtMaternidadeE & ")," _
    & "Consultas = (" & Me.txtConsultasE & ")," _
    & "Exames = (" & Me.txtExamesE & ")," _
    & "ProcMédicos = (" & Me.txtProcMédicosE & ")," _
    & "Cirurgias = (" & Me.txtCirurgiasE & ")," _
    & "Internações = (" & Me.txtInternaçõesE & ")," _
    & "ProcOdonto = (" & Me.txtProcOdontoE & ")," _
    & "Medicamentos = (" & Me.txtMedicamentosE & ")," _
    & "Outros = (" & Me.txtOutrosE & ")," _
    & "WHERE Controle = " & Me.txtControleE & "")

    MsgBox "O caso " & Me!CodGeradoE & " foi atualizados com sucesso.", vbInformation, "Aviso"

    End Sub
    ========================

    Obrigado, Luz e Paz!

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    UPDATE - Tabela não está atualizando

    Mensagem  good guy em Qua 9 Jul 2014 - 19:26

    Olá infosoft,

    Tente assim:

    Private Sub btSalvaE_Click()
    On Error Resume Next
    Me.txtAnoE.SetFocus

    DoCmd.RunSQL ("UPDATE Casos SET RedeGeral = (" & Me.txtGeralE & ")," & _
    "RedeHospitalar = (" & Me.txtHospitalarE & ")," & _
    "Maternidade = (" & Me.txtMaternidadeE & ")," & _
    "Consultas = (" & Me.txtConsultasE & ")," & _
    "Exames = (" & Me.txtExamesE & ")," & _
    "ProcMédicos = (" & Me.txtProcMédicosE & ")," & _
    "Cirurgias = (" & Me.txtCirurgiasE & ")," & _
    "Internações = (" & Me.txtInternaçõesE & ")," & _
    "ProcOdonto = (" & Me.txtProcOdontoE & ")," & _
    "Medicamentos = (" & Me.txtMedicamentosE & ")," & _
    "Outros = (" & Me.txtOutrosE & ")," & _
    "WHERE Controle = " & Me.txtControleE & "")

    MsgBox "O caso " & Me!CodGeradoE & " foi atualizados com sucesso.", vbInformation, "Aviso"

    End Sub

    infosoft
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 09/07/2012

    Re: [Resolvido]UPDATE - Tabela não está atualizando

    Mensagem  infosoft em Qua 9 Jul 2014 - 20:06

    Obrigado good guy, mas não funfou!

    Assim eu consegui alguma coisa:

    CurrentDb.Execute "UPDATE Casos SET RedeGeral = " & Me!txtGeralE & ", RedeHospitalar = " & Me!txtHospitalarE & ", Maternidade = " & Me!txtMaternidadeE & ", Consultas = " & Me!txtConsultasE & ", Exames = " & Me!txtExamesE & ", ProcMédicos = " & Me!txtProcMédicosE & ", Cirurgias = " & Me!txtCirurgiasE & ", Internações = " & Me!txtInternaçõesE & ", ProcOdonto = " & Me!txtProcOdontoE & ", Medicamentos = " & Me!txtMedicamentosE & ", Outros = " & Me!txtOutrosE & ";"

    Se eu retiro do WHERE para frente a atualização acontece, MAS acontece em toda a tabela.

    Mas eu preciso informar em qual linha vai ser atualizado:
    WHERE Controle = " & Me!txtControleE & ";"


    infosoft
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 09/07/2012

    Re: [Resolvido]UPDATE - Tabela não está atualizando

    Mensagem  infosoft em Qua 9 Jul 2014 - 20:16

    Resolvi:

    CurrentDb.Execute "UPDATE Casos SET RedeGeral = " & Me!txtGeralE & ", RedeHospitalar = " & Me!txtHospitalarE & ", Maternidade = " & Me!txtMaternidadeE & ", Consultas = " & Me!txtConsultasE & ", Exames = " & Me!txtExamesE & ", ProcMédicos = " & Me!txtProcMédicosE & ", Cirurgias = " & Me!txtCirurgiasE & ", Internações = " & Me!txtInternaçõesE & ", ProcOdonto = " & Me!txtProcOdontoE & ", Medicamentos = " & Me!txtMedicamentosE & ", Outros = " & Me!txtOutrosE & " WHERE Controle = '" & Me!txtControleE & "';"

    O problema era as aspas simples que faltaram no final: '" & Me!txtControleE & "'

    Paz e Luz!

      Data/hora atual: Qui 8 Dez 2016 - 14:06