[Resolvido]Atualizar 2 tabelas

Qual o erro que está gerando?

Varios erros.
Copie e cole o codio abaixo:

Código:



On Error GoTo Trato
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from tbl_cad_pacientes Where Código=  " & Me.txt_codigo_paciente & "")
rs.Edit
rs("Nome") = Me.txt_nome_cad_usuario.Value
rs("Endereco") = Me.txt_end_cad_usuario.Value
rs("Telefone") = Me.txt_tel_cad_Usuario.Value
rs("Telefone1") = Me.Txt_tel1_cad_usuario.Value
rs("CPF") = Me.txt_cpf.Value
'-- Alexandre Fim -----------------
rs.Update
rs.Close
'----------------------------------
Set rs = Nothing 'Limpa da memória
 
'db.Close -> não precisa fechar o banco se ainda vai utilizar em outra rotina
MsgBox "Cadastro atualizado com suesso" & vbCrLf & " é obrigatório atualizar na tabela de rotina", vbExclamation, "Serviço Social"

Me.txt_codigo_paciente = ""
Me.txt_end_cad_usuario = ""
Me.txt_nome_cad_usuario = ""
Me.txt_tel_cad_Usuario = ""
Me.Txt_tel1_cad_usuario = ""


'-- Pode utilizar o mesmo recordset declarado acima, mas depois de limpa-lo e fecha-lo
'----------atuliza tabela de rotina
'Dim db1 As Database
'Dim rs1 As Recordset
'Set db1 = CurrentDb

Set rs = db.OpenRecordset("Select * from tbl_cad_rotinas Where Código=  " & Me.txt_codigo_paciente & "")
rs.Edit
rs("Paciente") = Me.txt_nome_cad_usuario.Value

'-- Alexandre Fim -----------------
rs.Update
rs.Close
'----------------------------------
'db1.Close
rs.Update
rs.Close
DoCmd.Close acForm, "from_cadastro_de_usuario"
'MsgBox "Cadastro atualizado com suesso" & vbCrLf & " é obrigatório atualizar na tabela de rotina", vbExclamation, "Serviço Social"
Trato:
    '-- Ao criar o tratamento de erro, é necessário informar qual erro, conforme abaixo
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   



É isso
Valeu
Att,
FIM

Do jeito que estava, ia dar erro mesmo.

Não tinha a instrução "rs.Update", pra depois chamar "rs.Close".
A rotina abria o recordset para edição (rs.Edit) e depois limpava (set rs = Nothing), e o "rs.Update" que estava la no final da instrução, não ia rodar nada.

NOTA: Você pode utilizar a mesma variável de recordset e uma mesma rotina, com tanto que vc feche e limpe da memória toda vez que as rotinas são executadas.

É isso.
Fim