[Resolvido]Atualizar 2 tabelas

Meus amigos, boa tarde.
Quero atualizar duas tabelas com recorrerá, refiz e não estou encontrando o erro.

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

 Set rs = Nothing 'Limpa da memória
db.Close
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 = ""


'----------atuliza tabela de rotina
Dim db1 As Database
Dim rs1 As Recordset
Set db1 = CurrentDb
Set rs1 = db.OpenRecordset("Select * from tbl_cad_rotinas Where Código=  " & Me.txt_codigo_paciente & "")
rs1.Edit
rs1("Paciente") = Me.txt_nome_cad_usuario.Value
rs1.Close
'Set1 rs1 = Nothing
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:
End Sub

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

Vou ver o problema de 3075 porque é impossível ter erro

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

Boa noite.
Vou resolvido, mas obsevervei um "erro" bobo.
Para que ele se atualize, tem que apertar 2x sendo que o evento é quando clicar.
Quando clica no botão o foco cai para o campo cpf  e temque clicar nele de novo para que se atualize sendo que o evento não tem setFocos
E problema que pode gerar é: vai ter usuário que não vai clicar duas veses.