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

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Access365 9/7/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
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 9/7/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
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Access365 9/7/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 & ";"

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Access365 9/7/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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:40