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]Atualizar 2 tabelas

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]Atualizar 2 tabelas Empty [Resolvido]Atualizar 2 tabelas

    Mensagem  crysostomo 10/6/2022, 16:05

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2416
    Registrado : 13/12/2016

    [Resolvido]Atualizar 2 tabelas Empty Re: [Resolvido]Atualizar 2 tabelas

    Mensagem  Alexandre Fim 10/6/2022, 17:15

    Qual o erro que está gerando?


    .................................................................................
    [Resolvido]Atualizar 2 tabelas Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Atualizar 2 tabelas Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Atualizar 2 tabelas Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2416
    Registrado : 13/12/2016

    [Resolvido]Atualizar 2 tabelas Empty Re: [Resolvido]Atualizar 2 tabelas

    Mensagem  Alexandre Fim 10/6/2022, 17:21

    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


    .................................................................................
    [Resolvido]Atualizar 2 tabelas Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Atualizar 2 tabelas Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Atualizar 2 tabelas Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]Atualizar 2 tabelas Empty Re: [Resolvido]Atualizar 2 tabelas

    Mensagem  crysostomo 10/6/2022, 17:47

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2416
    Registrado : 13/12/2016

    [Resolvido]Atualizar 2 tabelas Empty Re: [Resolvido]Atualizar 2 tabelas

    Mensagem  Alexandre Fim 10/6/2022, 18:07

    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


    .................................................................................
    [Resolvido]Atualizar 2 tabelas Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Atualizar 2 tabelas Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Atualizar 2 tabelas Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]Atualizar 2 tabelas Empty Re: [Resolvido]Atualizar 2 tabelas

    Mensagem  crysostomo 11/6/2022, 00:30

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 3/7/2022, 08:42