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

    Compartilhe
    avatar
    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 09 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!
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    UPDATE - Tabela não está atualizando

    Mensagem  good guy em Qua 09 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
    avatar
    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 09 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 & ";"

    avatar
    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 09 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: Qua 13 Dez 2017, 09:21