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!
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!