[Resolvido]Trocar registros de tabela de posição

Boa tarde caros colaboradores. Preciso de uma dica.

Tenho uma tabela:
ID  | quarto | leito | prontuario  | nome paciente
1   | 10       | 1     | 100           | fulano
2   | 10       | 2     | 150           | ciclano
3   | 11       | 3     | 200           | beltrano
4   | 11       | 4     | 250           | fulano da silva
5   | 11       | 5     | 300           | ciclano dos santos

Gostaria de ter um código VB para incluir num botão que quando clicado, ele troque de posição o prontuário 100 com o prontuário 300.
Porque isso? Porque às vezes o paciente troca de leito e quarto. Pra que não precise apagar tudo e cadastrar novamente, gostaria de um código que trocasse automaticamente no clique do botão. Que o código pergunte os os dois prontuários que quero trocar.

Alguma boa alma pra me ajudar?

fiz o codigo para vc, creio eu que vc tera q mudar 4 linhas, elas estão comentada assim: 'mudar aqui
nessas linhas a unica coisa que vc tera que mudar e o nome da tabela. eu chamei minha tabela de quarto, ai vc troca para o nome da sua.
coloque o codigo abaixo no evento ao clicar do botao

Código:

Dim nuProntuario1 As Integer
Dim nuProntuario2 As Integer
Dim validacao As Boolean 'usado na hora de verificar se os dados dos 2 prontuarios digitados existem
Dim msgErro As String

Dim id1 As Integer
Dim nmPaciente1 As String

Dim id2 As Integer
Dim nmPaciente2 As String

Dim rs As Recordset
Dim SQL As String

On Error GoTo erros
nuProntuario1 = InputBox("Digite o prontuário que deseja trocar", "Troca de leitos")
nuProntuario2 = InputBox("Digite o prontuário a ser trocar com prontuário: " & nuProntuario1, "Troca de leitos")
validacao = True
'verifica se os dois prontuarios sao numeros
If IsNumeric(nuProntuario1) And IsNumeric(nuProntuario2) Then
    'verifica a movimentação de prontuarios
    If MsgBox("Deseja mover o prontuário " & nuProntuario1 & " para o leito do prontuário " & nuProntuario2 & "?", vbYesNo, "Confirmação de Sistema") = vbYes Then
        'abre a tabela com os dados do prontuario1
        Set rs = CurrentDb().OpenRecordset("Select id,quarto,leito,prontuario,nomePaciente from Quarto where prontuario = " & nuProntuario1) ' mudar aqui
        'verificação de existencia do prontuario e captura dos dados
        If rs.RecordCount > 0 Then
            rs.MoveFirst
            id1 = rs!id
            quarto1 = rs!quarto
            leito1 = rs!leito
            nmPaciente1 = rs!nomePaciente
        Else
            validacao = False
            msgErro = "Não existem dados para o prontuario " & nuProntuario1 & Chr(13)
        End If
        
        'abre a tabela com os dados do prontuario2
        Set rs = CurrentDb().OpenRecordset("Select id,quarto,leito,prontuario,nomePaciente from Quarto where prontuario = " & nuProntuario2) ' mudar aqui
        'verificação de existencia do prontuario e captura dos dados
        If rs.RecordCount > 0 Then
            rs.MoveFirst
            id2 = rs!id
            quarto2 = rs!quarto
            leito2 = rs!leito
            nmPaciente2 = rs!nomePaciente
        Else
            validacao = False
            msgErro = msgErro & "Não existem dados para o prontuario " & nuProntuario2
        End If
        
        'verifica a validacao
        If validacao Then
            
            'faz a troca do prontuario 1 para prontuario 2
           ' mudar aqui
            SQL = "UPDATE Quarto SET " & _  
                          " prontuario = " & nuProntuario1 & "" & _
                          ", nomePaciente = '" & nmPaciente1 & "' " & _
                          "WHERE id = " & id2
            DoCmd.RunSQL SQL
                        
            'faz a troca do prontuario 2 para prontuario 1
            ' mudar aqui
            SQL = "UPDATE Quarto SET " & _  
                          " prontuario = " & nuProntuario2 & "" & _
                          ", nomePaciente = '" & nmPaciente2 & "' " & _
                          "WHERE id = " & id1
            DoCmd.RunSQL SQL
                                    
            MsgBox "Troca de prontuários executada com exito", vbInformation, "Sucesso"
        Else
            MsgBox msgErro, vbCritical, "Erro ao buscar informações de prontuário"
        End If
    End If
Else
    MsgBox "Apenas números são aceitos", vbCritical, "Erro na digitação de prontuários"
End If
set rs = Nothing
erros:
    Select Case Err.Number
        Case 0:
             Dim facaNada As String
        Case 13:
             MsgBox "Apenas números são aceitos", vbCritical, "Erro na digitação de prontuários"
        Case Else
            MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.LastDllError, vbCritical
    End Select

Ôpa Ronaldo. Obrigado. Vou testar. Depois informo de funcionou. Muito obrigado mesmo.

blz

Comecei fazer o teste deu um erro.
Após ele pedir a confirmação da troca de leitos e eu clicar em sim......

aparece esse erro:
Parâmetros insuficientes. Eram esperados 1.
3061
0

Ronaldo!!!! Funcionou!!!!
Olha que maravilha. Eu estava errando o nome de dois campos.

Agora outra pergunta, sem querer abusar, porque você já ajudou muito.!

No exemplo da tabela que te mandei são apenas 5 colunas...
ID, Quarto, Leito, Prontuario, e nome paciente

Nessa instrução que pega as colunas....

Set rs = CurrentDb().OpenRecordset("Select id,quarto,leito,prontuario,nomePaciente from Quarto where prontuario = " & nuProntuario1)

Na minha tabela real tem muito mais colunas, eu tenho que colocar todas as colunas ou tem uma forma resumida para pegar todos os registros da linha?

Grato

Jair

no select vc pode colocar * ficando assim
Set rs = CurrentDb().OpenRecordset("Select * from Quarto where prontuario = " & nuProntuario1)

agora no update nao tem jeito, tera que informar todos os campos envolvidos na troca de registros.

Beleza!! Manja muito!!!
Obrigado mesmo, muito sucesso e saúde pra você.

Abraço

Jair

obrigado pra vc tb.
não esqueça de marcar o topico como resolvido

Tá certo. Depois dessa última dúvida acho que dá para marcar tópico como resolvido.

Esta instrução....: Nota-se que está quebrando linha por causa do & _

UPDATE Quarto SET " & _
                         " prontuario = " & nuProntuario2 & "" & _
                         ", nomePaciente = '" & nmPaciente2 & "' " & _
                         ", Diagn = '" & nmDiagn2 & "' " & _
                         ", Dieta = '" & nmDieta2 & "' " & _
                         ", DataInternacao = '" & nmDataInternacao2 & "' " & _
                         "WHERE id = " & id1

Quero colocar todo o acima em apenas uma linha. Como escrever para não dar erro de sintaxe?

Na verdade minha tabela real é essa anexa. Mas não estou sabendo escrever. Por favor me ajuda aí.

Olá

Alguém pra me ajudar?

Obrigado

Jair

desculpe a demora, eu estava em um evento da empresa e nao dava para mexer.
segue codigo sem erro de sintaxe:
comando update

Não tem problema. Muito obrigado. Felicidades. Vou encerra o tópico como resolvido

deu certo o update?

Bom dia. Desculpe, não tinha visto sua resposta. Na verdade acho que não. Está dando erro: numero excessivo de campos definidos
Até a seleção vai tudo bem, mas no update dá esse erro.
Estou anexando o banco de dados teste.
Será que consegue dar uma olhada pra mim?

Na verdade deu certo quanto fiz o teste num banco de dados que continha 7 registros com 8 campos cada registro, mas quando fiz o teste com o banco de dados oficial com uma quantidade maior de campos por registro aí deu erro.

bom dia, desculpa a demora, mas sua consulta estava bem dificil de arrumar.
depois de muita luta e insistencia consegui fazer funcionar.
Esse lance de limite no update nao sabia que tinha, afinal nunca precisei atualizar tantos campos de uma unica vez, rsrs
entao dividi a consulta em duas partes fora os outros acertos de data, conversão de tipos, declarações de campos invalida, etc.
acertei muita coisa no codigo, mas sei que vc esta aprendendo, continua assim que logo vc vai ficar bom.
teste agora com o novo codigo.

Código:


Sub mudaLeito()

Dim nuProntuario1 As Integer
Dim nuProntuario2 As Integer
Dim validacao As Boolean 'usado na hora de verificar se os dados dos 2 prontuarios digitados existem
Dim msgErro As String

Dim CONTROL1 As Integer
'Dim id1 As Integer
Dim Tipo_Saida1 As String
Dim QUARTO1 As String
Dim LEITO1 As String
Dim NOME_PACIENTE1 As String
Dim IDADE1 As String
Dim DIETA1 As String
Dim DIAG1 As String
Dim DataIntern1 As String
Dim Especialidade1 As Integer
Dim Prontuario1 As Integer
Dim Resumo1 As String
Dim CID11 As String
Dim CID21 As String
Dim CID31 As String
Dim CID41 As String
Dim CID51 As String
Dim PROC11 As String
Dim PROC21 As String
Dim PROC31 As String
Dim PROC41 As String
Dim PROC51 As String
Dim ORIENTACAO11 As String
Dim ORIENTACAO21 As String
Dim ORIENTACAO31 As String
Dim ORIENTACAO41 As String
Dim ORIENTACAO_a1 As String
Dim ORIENTACAO_b1 As String
Dim ORIENTACAO_c1 As String
Dim ENCAMINHAMENTO1 As String
Dim medico1 As Integer
Dim ITEM1_1 As String
Dim ITEM2_1 As String
Dim ITEM3_1 As String
Dim ITEM4_1 As String
Dim ITEM5_1 As String
Dim ITEM6_1 As String
Dim ITEM7_1 As String
Dim ITEM8_1 As String
Dim ITEM9_1 As String
Dim ITEM10_1 As String
Dim ITEM11_1 As String
Dim ITEM12_1 As String
Dim ITEM13_1 As String
Dim ITEM14_1 As String
Dim ITEM15_1 As String
Dim ITEM16_1 As String
Dim ITEM17_1 As String
Dim ITEM18_1 As String
Dim ITEM19_1 As String
Dim ITEM20_1 As String
Dim ITEM21_1 As String
Dim ITEM22_1 As String
Dim ITEM23_1 As String
Dim ITEM24_1 As String
Dim ITEM25_1 As String
Dim ITEM26_1 As String
Dim ITEM27_1 As String
Dim ITEM28_1 As String
Dim ITEM29_1 As String
Dim ITEM30_1 As String
Dim ITEM31_1 As String
Dim ITEM32_1 As String
Dim ITEM33_1 As String
Dim ITEM34_1 As String
Dim ITEM35_1 As String
Dim ITEM36_1 As String
Dim txt1_1 As String
Dim txt2_1 As String
Dim txt3_1 As String
Dim txt4_1 As String
Dim txt5_1 As String
Dim txt6_1 As String
Dim txt7_1 As String
Dim txt8_1 As String
Dim txt9_1 As String
Dim txt10_1 As String
Dim txt11_1 As String
Dim txt12_1 As String
Dim txt13_1 As String
Dim txt14_1 As String
Dim txt15_1 As String
Dim txt16_1 As String
Dim txt17_1 As String
Dim txt18_1 As String
Dim txt19_1 As String
Dim txt20_1 As String
Dim txt21_1 As String
Dim txt22_1 As String
Dim txt23_1 As String
Dim txt24_1 As String
Dim txt25_1 As String
Dim txt26_1 As String
Dim txt27_1 As String
Dim txt28_1 As String
Dim txt29_1 As String
Dim txt30_1 As String
Dim txt31_1 As String
Dim txt32_1 As String
Dim txt33_1 As String
Dim txt34_1 As String
Dim txt35_1 As String
Dim txt36_1 As String
Dim evolucao1 As String
Dim ResumoClinInt1 As String
Dim Pareceresp1 As String
Dim Dainterc1 As String
Dim Parainterc1 As String
Dim DataInternrelmed1 As String
Dim Diaginicialrelmed1 As String
Dim Datarelmed1 As String
Dim SexoM1 As String
Dim SexoF1 As String
Dim Clinica1 As String
Dim Patolinicial1 As String
Dim Patolinfecciosa1 As String
Dim PatolIngecciosa1 As String
Dim Terapeutico1 As String
Dim Profilatico1 As String
Dim ATB1 As String
Dim DoseDiaria1 As String
Dim Dias1 As String
Dim FuncNormalS1 As String
Dim funcNormalN1 As String
Dim FuncHepaticaS1 As String
Dim FuncHepaticaN1 As String
Dim Antimicrobianos1 As String
Dim MedSolicitCRM1 As String
Dim Setor1 As String
Dim Entidade1 As String
Dim Codigo1 As String
Dim EndEntidade1 As String
Dim FoneEnt1 As String
Dim Peso1 As String
Dim TipoSanguinio1 As String
Dim Hemoglobinadopac1 As String
Dim Plaquetometriadopac1 As String
Dim HemocompSolic1 As String
Dim JustificativaMed1 As String
Dim datanascto1 As String
Dim Telefone1 As String
Dim UBS1 As String
Dim Endereco1 As String
Dim EndCont1 As String

Dim CONTROL2 As Integer
'Dim id2 As Integer
Dim Tipo_Saida2 As String
Dim QUARTO2 As String
Dim LEITO2 As String
Dim NOME_PACIENTE2 As String
Dim IDADE2 As String
Dim DIETA2 As String
Dim DIAG2 As String
Dim DataIntern2 As String
Dim Especialidade2 As Integer
Dim Prontuario2 As Integer
Dim Resumo2 As String
Dim CID12 As String
Dim CID22 As String
Dim CID32 As String
Dim CID42 As String
Dim CID52 As String
Dim PROC12 As String
Dim PROC22 As String
Dim PROC32 As String
Dim PROC42 As String
Dim PROC52 As String
Dim ORIENTACAO12 As String
Dim ORIENTACAO22 As String
Dim ORIENTACAO32 As String
Dim ORIENTACAO42 As String
Dim ORIENTACAO_a2 As String
Dim ORIENTACAO_b2 As String
Dim ORIENTACAO_c2 As String
Dim ENCAMINHAMENTO2 As String
Dim medico2 As Integer
Dim ITEM1_2 As String
Dim ITEM2_2 As String
Dim ITEM3_2 As String
Dim ITEM4_2 As String
Dim ITEM5_2 As String
Dim ITEM6_2 As String
Dim ITEM7_2 As String
Dim ITEM8_2 As String
Dim ITEM9_2 As String
Dim ITEM10_2 As String
Dim ITEM11_2 As String
Dim ITEM12_2 As String
Dim ITEM13_2 As String
Dim ITEM14_2 As String
Dim ITEM15_2 As String
Dim ITEM16_2 As String
Dim ITEM17_2 As String
Dim ITEM18_2 As String
Dim ITEM19_2 As String
Dim ITEM20_2 As String
Dim ITEM21_2 As String
Dim ITEM22_2 As String
Dim ITEM23_2 As String
Dim ITEM24_2 As String
Dim ITEM25_2 As String
Dim ITEM26_2 As String
Dim ITEM27_2 As String
Dim ITEM28_2 As String
Dim ITEM29_2 As String
Dim ITEM30_2 As String
Dim ITEM31_2 As String
Dim ITEM32_2 As String
Dim ITEM33_2 As String
Dim ITEM34_2 As String
Dim ITEM35_2 As String
Dim ITEM36_2 As String
Dim txt1_2 As String
Dim txt2_2 As String
Dim txt3_2 As String
Dim txt4_2 As String
Dim txt5_2 As String
Dim txt6_2 As String
Dim txt7_2 As String
Dim txt8_2 As String
Dim txt9_2 As String
Dim txt10_2 As String
Dim txt11_2 As String
Dim txt12_2 As String
Dim txt13_2 As String
Dim txt14_2 As String
Dim txt15_2 As String
Dim txt16_2 As String
Dim txt17_2 As String
Dim txt18_2 As String
Dim txt19_2 As String
Dim txt20_2 As String
Dim txt21_2 As String
Dim txt22_2 As String
Dim txt23_2 As String
Dim txt24_2 As String
Dim txt25_2 As String
Dim txt26_2 As String
Dim txt27_2 As String
Dim txt28_2 As String
Dim txt29_2 As String
Dim txt30_2 As String
Dim txt31_2 As String
Dim txt32_2 As String
Dim txt33_2 As String
Dim txt34_2 As String
Dim txt35_2 As String
Dim txt36_2 As String
Dim evolucao2 As String
Dim ResumoClinInt2 As String
Dim Pareceresp2 As String
Dim Dainterc2 As String
Dim Parainterc2 As String
Dim DataInternrelmed2 As String
Dim Diaginicialrelmed2 As String
Dim Datarelmed2 As String
Dim SexoM2 As String
Dim SexoF2 As String
Dim Clinica2 As String
Dim Patolinicial2 As String
Dim Patolinfecciosa2 As String
Dim PatolIngecciosa2 As String
Dim Terapeutico2 As String
Dim Profilatico2 As String
Dim ATB2 As String
Dim DoseDiaria2 As String
Dim Dias2 As String
Dim FuncNormalS2 As String
Dim funcNormalN2 As String
Dim FuncHepaticaS2 As String
Dim FuncHepaticaN2 As String
Dim Antimicrobianos2 As String
Dim MedSolicitCRM2 As String
Dim Setor2 As String
Dim Entidade2 As String
Dim Codigo2 As String
Dim EndEntidade2 As String
Dim FoneEnt2 As String
Dim Peso2 As String
Dim TipoSanguinio2 As String
Dim Hemoglobinadopac2 As String
Dim Plaquetometriadopac2 As String
Dim HemocompSolic2 As String
Dim JustificativaMed2 As String
Dim datanascto2 As String
Dim Telefone2 As String
Dim UBS2 As String
Dim Endereco2 As String
Dim EndCont2 As String



Dim rs As Recordset
Dim SQL1, SQL2 As String

On Error GoTo erros
nuProntuario1 = InputBox("Digite o prontuário que deseja trocar", "Troca de leitos")
nuProntuario2 = InputBox("Digite o prontuário a ser trocado com prontuário: " & nuProntuario1, "Troca de leitos")
validacao = True
'verifica se os dois prontuarios sao numeros
If IsNumeric(nuProntuario1) And IsNumeric(nuProntuario2) Then
    'verifica a movimentação de prontuarios
    If MsgBox("Deseja mover o prontuário " & nuProntuario1 & " para o leito do prontuário " & nuProntuario2 & "?", vbYesNo, "Confirmação de Sistema") = vbYes Then
        'abre a tabela com os dados do prontuario1
        Set rs = CurrentDb().OpenRecordset("Select * from TBL_LEITOS_Ots_Clin where prontuario = " & nuProntuario1) ' mudar aqui
        'verificação de existencia do prontuario e captura dos dados
        If rs.RecordCount > 0 Then
            rs.MoveFirst
            CONTROL1 = rs!CONTROL
            Tipo_Saida1 = rs!Tipo_Saida
            QUARTO1 = rs!QUARTO
            LEITO1 = rs!LEITO
            NOME_PACIENTE1 = rs!Nome_paciente
            IDADE1 = rs!IDADE
            DIETA1 = rs!Dieta
            DIAG1 = rs!DIAG
            DataIntern1 = rs!DataIntern
            Especialidade1 = Nz(rs!Especialidade, 0)
            Prontuario1 = rs!prontuario
            Resumo1 = rs!Resumo
            CID11 = rs!CID1
            CID21 = rs!CID2
            CID31 = rs!CID3
            CID41 = rs!CID4
            CID51 = rs!CID5
            PROC11 = rs!PROC1
            PROC21 = rs!PROC2
            PROC31 = rs!PROC3
            PROC41 = rs!PROC4
            PROC51 = rs!PROC5
            ORIENTACAO11 = rs!ORIENTACAO1
            ORIENTACAO21 = rs!ORIENTACAO2
            ORIENTACAO31 = rs!ORIENTACAO3
            ORIENTACAO41 = rs!ORIENTACAO4
            ORIENTACAO_a1 = rs!ORIENTACAO_a
            ORIENTACAO_b1 = rs!ORIENTACAO_b
            ORIENTACAO_c1 = rs!ORIENTACAO_c
            ENCAMINHAMENTO1 = rs!ENCAMINHAMENTO
            medico1 = Nz(rs!medico, 0)
            ITEM1_1 = rs!ITEM1
            ITEM2_1 = rs!item2
            ITEM3_1 = rs!item3
            ITEM4_1 = rs!item4
            ITEM5_1 = rs!item5
            ITEM6_1 = rs!item6
            ITEM7_1 = rs!item7
            ITEM8_1 = rs!item8
            ITEM9_1 = rs!item9
            ITEM10_1 = rs!item10
            ITEM11_1 = rs!item11
            ITEM12_1 = rs!item12
            ITEM13_1 = rs!item13
            ITEM14_1 = rs!item14
            ITEM15_1 = rs!item15
            ITEM16_1 = rs!item16
            ITEM17_1 = rs!item17
            ITEM18_1 = rs!item18
            ITEM19_1 = rs!ITEM19
            ITEM20_1 = rs!item20
            ITEM21_1 = rs!item21
            ITEM22_1 = rs!item22
            ITEM23_1 = rs!ITEM23
            ITEM24_1 = rs!ITEM24
            ITEM25_1 = rs!ITEM25
            ITEM26_1 = rs!ITEM26
            ITEM27_1 = rs!ITEM27
            ITEM28_1 = rs!ITEM28
            ITEM29_1 = rs!ITEM29
            ITEM30_1 = rs!ITEM30
            ITEM31_1 = rs!ITEM31
            ITEM32_1 = rs!ITEM32
            ITEM33_1 = rs!ITEM33
            ITEM34_1 = rs!ITEM34
            ITEM35_1 = rs!ITEM35
            ITEM36_1 = rs!ITEM36
            txt1_1 = rs!txt1
            txt2_1 = rs!txt2
            txt3_1 = rs!txt3
            txt4_1 = rs!txt4
            txt5_1 = rs!txt5
            txt6_1 = rs!txt6
            txt7_1 = rs!txt7
            txt8_1 = rs!txt8
            txt9_1 = rs!txt9
            txt10_1 = rs!txt10
            txt11_1 = rs!txt11
            txt12_1 = rs!txt12
            txt13_1 = rs!txt13
            txt14_1 = rs!txt14
            txt15_1 = rs!txt15
            txt16_1 = rs!txt16
            txt17_1 = rs!txt17
            txt18_1 = rs!txt18
            txt19_1 = rs!txt19
            txt20_1 = rs!txt20
            txt21_1 = rs!txt21
            txt22_1 = rs!txt22
            txt23_1 = rs!txt23
            txt24_1 = rs!txt24
            txt25_1 = rs!txt25
            txt26_1 = rs!txt26
            txt27_1 = rs!txt27
            txt28_1 = rs!txt28
            txt29_1 = rs!txt29
            txt30_1 = rs!txt30
            txt31_1 = rs!txt31
            txt32_1 = rs!txt32
            txt33_1 = rs!txt33
            txt34_1 = rs!txt34
            txt35_1 = rs!txt35
            txt36_1 = rs!txt36
            evolucao1 = rs!evolucao
            ResumoClinInt1 = rs!ResumoClinInt
            Pareceresp1 = rs!Pareceresp
            Dainterc1 = rs!Dainterc
            Parainterc1 = rs!Parainterc
            DataInternrelmed1 = Nz(rs!DataInternrelmed, "")
            Diaginicialrelmed1 = rs!Diaginicialrelmed
            Datarelmed1 = rs!Datarelmed
            SexoM1 = rs!SexoM
            SexoF1 = rs!SexoF
            Clinica1 = rs!Clinica
            Patolinicial1 = rs!Patolinicial
            Patolinfecciosa1 = rs!Patolinfecciosa
            PatolIngecciosa1 = rs!PatolIngecciosa
            Terapeutico1 = rs!Terapeutico
            Profilatico1 = rs!Profilatico
            ATB1 = rs!ATB
            DoseDiaria1 = rs!DoseDiaria
            Dias1 = rs!Dias
            FuncNormalS1 = rs!FuncNormalS
            funcNormalN1 = rs!FuncNormalN
            FuncHepaticaS1 = rs!FuncHepaticaS
            FuncHepaticaN1 = rs!FuncHepaticaN
            Antimicrobianos1 = rs!Antimicrobianos
            MedSolicitCRM1 = rs!MedSolicitCRM
            Setor1 = rs!Setor
            Entidade1 = rs!Entidade
            Codigo1 = rs!Codigo
            EndEntidade1 = rs!EndEntidade
            FoneEnt1 = rs!FoneEnt
            Peso1 = rs!Peso
            TipoSanguinio1 = rs!TipoSanguinio
            Hemoglobinadopac1 = rs!Hemoglobinadopac
            Plaquetometriadopac1 = rs!Plaquetometriadopac
            HemocompSolic1 = rs!HemocompSolic
            JustificativaMed1 = rs!JustificativaMed
            datanascto1 = rs!datanascto
            Telefone1 = rs!Telefone
            UBS1 = rs!UBS
            Endereco1 = rs!Endereco
            EndCont1 = rs!EndCont

            
            
                      
        Else
            validacao = False
            msgErro = "Não existem dados para o prontuario " & nuProntuario1 & Chr(13)
        End If
        
        'abre a tabela com os dados do prontuario2
        Set rs = CurrentDb().OpenRecordset("Select * from TBL_LEITOS_Ots_Clin where prontuario = " & nuProntuario2) ' mudar aqui
        'verificação de existencia do prontuario e captura dos dados
        If rs.RecordCount > 0 Then
            rs.MoveFirst
            CONTROL2 = rs!CONTROL
            Tipo_Saida2 = rs!Tipo_Saida
            QUARTO2 = rs!QUARTO
            LEITO2 = rs!LEITO
            NOME_PACIENTE2 = rs!Nome_paciente
            IDADE2 = rs!IDADE
            DIETA2 = rs!Dieta
            DIAG2 = rs!DIAG
            DataIntern2 = rs!DataIntern
            Especialidade2 = Nz(rs!Especialidade, 0)
            Prontuario2 = rs!prontuario
            Resumo2 = rs!Resumo
            CID12 = rs!CID1
            CID22 = rs!CID2
            CID32 = rs!CID3
            CID42 = rs!CID4
            CID52 = rs!CID5
            PROC12 = rs!PROC1
            PROC22 = rs!PROC2
            PROC32 = rs!PROC3
            PROC42 = rs!PROC4
            PROC52 = rs!PROC5
            ORIENTACAO12 = rs!ORIENTACAO1
            ORIENTACAO22 = rs!ORIENTACAO2
            ORIENTACAO32 = rs!ORIENTACAO3
            ORIENTACAO42 = rs!ORIENTACAO4
            ORIENTACAO_a2 = rs!ORIENTACAO_a
            ORIENTACAO_b2 = rs!ORIENTACAO_b
            ORIENTACAO_c2 = rs!ORIENTACAO_c
            ENCAMINHAMENTO2 = rs!ENCAMINHAMENTO
            medico2 = Nz(rs!medico, 0)
            ITEM1_2 = rs!ITEM1
            ITEM2_2 = rs!item2
            ITEM3_2 = rs!item3
            ITEM4_2 = rs!item4
            ITEM5_2 = rs!item5
            ITEM6_2 = rs!item6
            ITEM7_2 = rs!item7
            ITEM8_2 = rs!item8
            ITEM9_2 = rs!item9
            ITEM10_2 = rs!item10
            ITEM11_2 = rs!item11
            ITEM12_2 = rs!item12
            ITEM13_2 = rs!item13
            ITEM14_2 = rs!item14
            ITEM15_2 = rs!item15
            ITEM16_2 = rs!item16
            ITEM17_2 = rs!item17
            ITEM18_2 = rs!item18
            ITEM19_2 = rs!ITEM19
            ITEM20_2 = rs!item20
            ITEM21_2 = rs!item21
            ITEM22_2 = rs!item22
            ITEM23_2 = rs!ITEM23
            ITEM24_2 = rs!ITEM24
            ITEM25_2 = rs!ITEM25
            ITEM26_2 = rs!ITEM26
            ITEM27_2 = rs!ITEM27
            ITEM28_2 = rs!ITEM28
            ITEM29_2 = rs!ITEM29
            ITEM30_2 = rs!ITEM30
            ITEM31_2 = rs!ITEM31
            ITEM32_2 = rs!ITEM32
            ITEM33_2 = rs!ITEM33
            ITEM34_2 = rs!ITEM34
            ITEM35_2 = rs!ITEM35
            ITEM36_2 = rs!ITEM36
            txt1_2 = rs!txt1
            txt2_2 = rs!txt2
            txt3_2 = rs!txt3
            txt4_2 = rs!txt4
            txt5_2 = rs!txt5
            txt6_2 = rs!txt6
            txt7_2 = rs!txt7
            txt8_2 = rs!txt8
            txt9_2 = rs!txt9
            txt10_2 = rs!txt10
            txt11_2 = rs!txt11
            txt12_2 = rs!txt12
            txt13_2 = rs!txt13
            txt14_2 = rs!txt14
            txt15_2 = rs!txt15
            txt16_2 = rs!txt16
            txt17_2 = rs!txt17
            txt18_2 = rs!txt18
            txt19_2 = rs!txt19
            txt20_2 = rs!txt20
            txt21_2 = rs!txt21
            txt22_2 = rs!txt22
            txt23_2 = rs!txt23
            txt24_2 = rs!txt24
            txt25_2 = rs!txt25
            txt26_2 = rs!txt26
            txt27_2 = rs!txt27
            txt28_2 = rs!txt28
            txt29_2 = rs!txt29
            txt30_2 = rs!txt30
            txt31_2 = rs!txt31
            txt32_2 = rs!txt32
            txt33_2 = rs!txt33
            txt34_2 = rs!txt34
            txt35_2 = rs!txt35
            txt36_2 = rs!txt36
            evolucao2 = rs!evolucao
            ResumoClinInt2 = rs!ResumoClinInt
            Pareceresp2 = rs!Pareceresp
            Dainterc2 = rs!Dainterc
            Parainterc2 = rs!Parainterc
            DataInternrelmed2 = Nz(rs!DataInternrelmed, "")
            Diaginicialrelmed2 = rs!Diaginicialrelmed
            Datarelmed2 = rs!Datarelmed
            SexoM2 = rs!SexoM
            SexoF2 = rs!SexoF
            Clinica2 = rs!Clinica
            Patolinicial2 = rs!Patolinicial
            Patolinfecciosa2 = rs!Patolinfecciosa
            PatolIngecciosa2 = rs!PatolIngecciosa
            Terapeutico2 = rs!Terapeutico
            Profilatico2 = rs!Profilatico
            ATB2 = rs!ATB
            DoseDiaria2 = rs!DoseDiaria
            Dias2 = rs!Dias
            FuncNormalS2 = rs!FuncNormalS
            funcNormalN2 = rs!FuncNormalN
            FuncHepaticaS2 = rs!FuncHepaticaS
            FuncHepaticaN2 = rs!FuncHepaticaN
            Antimicrobianos2 = rs!Antimicrobianos
            MedSolicitCRM2 = rs!MedSolicitCRM
            Setor2 = rs!Setor
            Entidade2 = rs!Entidade
            Codigo2 = rs!Codigo
            EndEntidade2 = rs!EndEntidade
            FoneEnt2 = rs!FoneEnt
            Peso2 = rs!Peso
            TipoSanguinio2 = rs!TipoSanguinio
            Hemoglobinadopac2 = rs!Hemoglobinadopac
            Plaquetometriadopac2 = rs!Plaquetometriadopac
            HemocompSolic2 = rs!HemocompSolic
            JustificativaMed2 = rs!JustificativaMed
            datanascto2 = rs!datanascto
            Telefone2 = rs!Telefone
            UBS2 = rs!UBS
            Endereco2 = rs!Endereco
            EndCont2 = rs!EndCont
            
            
        Else
            validacao = False
            msgErro = msgErro & "Não existem dados para o prontuario " & nuProntuario2
        End If
        
        'verifica a validacao
        If validacao Then
            
            'faz a troca do prontuario 1 para prontuario 2
           ' mudar aqui
           Dim SQL3 As String
           Dim SQL_campo_data1, SQL_campo_data2 As String
          
           'arruma campos data1
           SQL_campo_data1 = IIf(Len(DataIntern1) > 0, "DataIntern = '" & DataIntern1 & "'", "")
          
           'coloca virgula caso precise
           SQL_campo_data1 = IIf(Len(SQL_campo_data1) > 0 And Len(DataIntern1) > 0, SQL_campo_data1 & ",", "")
          
           'concatena o proximo campo de data (DataInternrelmed1)
           SQL_campo_data1 = IIf(Len(DataInternrelmed1) > 0, SQL_campo_data1 & "DataInternrelmed = '" & DataInternrelmed1 & "'", "")
          
           'coloca virgula caso precise
           SQL_campo_data1 = IIf(Len(SQL_campo_data1) > 0 And Len(Datarelmed1) > 0, SQL_campo_data1 & ",", "")
          
           'concatena o proximo campo de data (Datarelmed1)
           SQL_campo_data1 = IIf(Len(Datarelmed1) > 0, SQL_campo_data1 & "Datarelmed = '" & Datarelmed1 & "'", "")
          
           'coloca virgula no fim da sql_campo_data1 caso precise, com isso vou poder unir a consulta update corretamente
           SQL_campo_data1 = IIf(Len(SQL_campo_data1), SQL_campo_data1 & ",", "")
          
           '---------------------------------------------------------------------------
           'arruma campos data2
           SQL_campo_data2 = IIf(Len(DataIntern2) > 0, "DataIntern = '" & DataIntern2 & "'", "")
          
           'coloca virgula caso precise
           SQL_campo_data2 = IIf(Len(SQL_campo_data2) > 0 And Len(DataIntern2) > 0, SQL_campo_data2 & ",", "")
          
           'concatena o proximo campo de data (DataInternrelmed2)
           SQL_campo_data2 = IIf(Len(DataInternrelmed2) > 0, SQL_campo_data2 & "DataInternrelmed = '" & DataInternrelmed2 & "'", "")
          
           'coloca virgula caso precise
           SQL_campo_data2 = IIf(Len(SQL_campo_data2) > 0 And Len(Datarelmed2) > 0, SQL_campo_data2 & ",", "")
          
           'concatena o proximo campo de data (Datarelmed2)
           SQL_campo_data2 = IIf(Len(Datarelmed2) > 0, SQL_campo_data2 & "Datarelmed = '" & Datarelmed2 & "'", "")
          
           'coloca virgula no fim da sql_campo_data2 caso precise, com isso vou poder unir a consulta update corretamente
           SQL_campo_data2 = IIf(Len(SQL_campo_data2), SQL_campo_data2 & ",", "")
          
          
          
            SQL1 = "UPDATE TBL_LEITOS_Ots_Clin SET " & _
                          " Tipo_Saida = '" & Tipo_Saida1 & "', NOME_PACIENTE = '" & NOME_PACIENTE1 & "', IDADE = '" & IDADE1 & "', DIETA = '" & DIETA1 & "', DIAG = '" & DIAG1 & "' , Especialidade = " & Especialidade1 & " , Prontuario = " & Prontuario1 & " , Resumo = '" & Resumo1 & "' , CID1 = '" & CID11 & "' , CID2 = '" & CID21 & "' , CID3 = '" & CID31 & "' , CID4 = '" & CID41 & "' , CID5 = '" & CID51 & "' , PROC1 = '" & PROC11 & "' , PROC2 = '" & PROC21 & "', PROC3 = '" & PROC31 & "' , PROC4 = '" & PROC41 & "', PROC5 = '" & PROC51 & "' , ORIENTACAO1 = '" & ORIENTACAO11 & "', ORIENTACAO2 = '" & ORIENTACAO21 & "' , ORIENTACAO3 = '" & ORIENTACAO31 & "', ORIENTACAO4 = '" & ORIENTACAO41 & "' , ORIENTACAO_a = '" & ORIENTACAO_a1 & "', ORIENTACAO_b = '" & ORIENTACAO_b1 & "' , ORIENTACAO_c = '" & ORIENTACAO_c1 & "', ENCAMINHAMENTO = '" & ENCAMINHAMENTO1 & "' , medico = " & medico1 & ", " & _
                          " ITEM1 = '" & ITEM1_1 & "', ITEM2 = '" & ITEM2_1 & "' , ITEM3 = '" & ITEM3_1 & "' , ITEM4 = '" & ITEM4_1 & "' , ITEM5 = '" & ITEM5_1 & "' , ITEM6 = '" & ITEM6_1 & "' , ITEM7 = '" & ITEM7_1 & "' , ITEM8 = '" & ITEM8_1 & "' , ITEM9 = '" & ITEM9_1 & "' , ITEM10 = '" & ITEM10_1 & "' , ITEM11 = '" & ITEM11_1 & "' , ITEM12 = '" & ITEM12_1 & "' , ITEM13 = '" & ITEM13_1 & "' , ITEM14 = '" & ITEM14_1 & "' , ITEM15 = '" & ITEM15_1 & "' , ITEM16 = '" & ITEM16_1 & "', ITEM17 = '" & ITEM17_1 & "' , ITEM18 = '" & ITEM18_1 & "', ITEM19 = '" & ITEM19_1 & "' , ITEM20 = '" & ITEM20_1 & "', ITEM21 = '" & ITEM21_1 & "' , ITEM22 = '" & ITEM22_1 & "', ITEM23 = '" & ITEM23_1 & "' , ITEM24 = '" & ITEM24_1 & "', ITEM25 = '" & ITEM25_1 & "' , ITEM26 = '" & ITEM26_1 & "', ITEM27 = '" & ITEM27_1 & "' , ITEM28 = '" & ITEM28_1 & "', " & _
                          " ITEM29 = '" & ITEM29_1 & "', ITEM30 = '" & ITEM30_1 & "' , ITEM31 = '" & ITEM31_1 & "' , ITEM32 = '" & ITEM32_1 & "' , ITEM33 = '" & ITEM33_1 & "' , ITEM34 = '" & ITEM34_1 & "' , ITEM35 = '" & ITEM35_1 & "' , ITEM36 = '" & ITEM36_1 & "' , txt1 = '" & txt1_1 & "' , txt2 = '" & txt2_1 & "' , txt3 = '" & txt3_1 & "' , txt4 = '" & txt4_1 & "' , txt5 = '" & txt5_1 & "' , txt6 = '" & txt6_1 & "' , txt7 = '" & txt7_1 & "' , txt8 = '" & txt8_1 & "', txt9 = '" & txt9_1 & "' , txt10 = '" & txt10_1 & "', txt11 = '" & txt11_1 & "' , txt12 = '" & txt12_1 & "', txt13 = '" & txt13_1 & "' , txt14 = '" & txt14_1 & "', txt15 = '" & txt15_1 & "' , txt16 = '" & txt16_1 & "', txt17 = '" & txt17_1 & "' , txt18 = '" & txt18_1 & "', txt19 = '" & txt19_1 & "' , txt20 = '" & txt20_1 & "' " & _
                          " WHERE CONTROL = " & CONTROL2
                          
                          
                          
            SQL2 = "UPDATE TBL_LEITOS_Ots_Clin SET " & _
                          " txt21 = '" & txt21_1 & "', txt22 = '" & txt22_1 & "' , txt23 = '" & txt23_1 & "' , txt24 = '" & txt24_1 & "' , txt25 = '" & txt25_1 & "' , txt26 = '" & txt26_1 & "' , txt27 = '" & txt27_1 & "' , txt28 = '" & txt28_1 & "' , txt29= '" & txt29_1 & "' , txt30 = '" & txt30_1 & "' , txt31 = '" & txt31_1 & "' , txt32 = '" & txt32_1 & "' , txt33 = '" & txt33_1 & "' , txt34 = '" & txt34_1 & "' , txt35 = '" & txt35_1 & "' , txt36 = '" & txt36_1 & "', evolucao = '" & evolucao1 & "' , ResumoClinInt = '" & ResumoClinInt1 & "', Pareceresp = '" & Pareceresp1 & "' , Dainterc = '" & Dainterc1 & "', Parainterc = '" & Parainterc1 & "' , Diaginicialrelmed = '" & Diaginicialrelmed1 & "' , SexoM = '" & SexoM1 & "' , SexoF = '" & SexoF1 & "', Clinica = '" & Clinica1 & "' , Patolinicial = '" & Patolinicial1 & "', " & _
                          " Patolinfecciosa = '" & Patolinfecciosa1 & "', PatolIngecciosa = '" & PatolIngecciosa1 & "' , Terapeutico = '" & Terapeutico1 & "' , Profilatico = '" & Profilatico1 & "' , ATB = '" & ATB1 & "' , DoseDiaria = '" & DoseDiaria1 & "' , Dias = '" & Dias1 & "' , FuncNormalS = '" & FuncNormalS1 & "' , FuncNormalN = '" & funcNormalN1 & "' , FuncHepaticaS = '" & FuncHepaticaS1 & "' , FuncHepaticaN = '" & FuncHepaticaN1 & "' , Antimicrobianos = '" & Antimicrobianos1 & "' , MedSolicitCRM = '" & MedSolicitCRM1 & "', Setor = '" & Setor1 & "' , Entidade = '" & Entidade1 & "', Codigo = '" & Codigo1 & "' , EndEntidade = '" & EndEntidade1 & "', FoneEnt = '" & FoneEnt1 & "' , Peso = '" & Peso1 & "', TipoSanguinio = '" & TipoSanguinio1 & "' , Hemoglobinadopac = '" & Hemoglobinadopac1 & "', Plaquetometriadopac = '" & Plaquetometriadopac1 & "', " & _
                          " HemocompSolic = '" & HemocompSolic1 & "'," & SQL_campo_data1 & " JustificativaMed = '" & JustificativaMed1 & "' , datanascto = '" & datanascto1 & "' , Telefone = '" & Telefone1 & "' , UBS = '" & UBS1 & "' , Endereco = '" & Endereco1 & "' , EndCont = '" & EndCont1 & "'" & _
                          " WHERE CONTROL = " & CONTROL2
                          
            DoCmd.RunSQL SQL1
            DoCmd.RunSQL SQL2
                        
            'faz a troca do prontuario 2 para prontuario 1
            ' mudar aqui
            SQL1 = "UPDATE TBL_LEITOS_Ots_Clin SET " & _
                          " Tipo_Saida = '" & Tipo_Saida2 & "', NOME_PACIENTE = '" & NOME_PACIENTE2 & "', IDADE = '" & IDADE2 & "', DIETA = '" & DIETA2 & "', DIAG = '" & DIAG2 & "' , DataIntern = '" & DataIntern2 & "' , Especialidade = " & Especialidade2 & " , Prontuario = " & Prontuario2 & " , Resumo = '" & Resumo2 & "' , CID1 = '" & CID12 & "' , CID2 = '" & CID22 & "' , CID3 = '" & CID32 & "' , CID4 = '" & CID42 & "' , CID5 = '" & CID52 & "' , PROC1 = '" & PROC12 & "' , PROC2 = '" & PROC22 & "', PROC3 = '" & PROC32 & "' , PROC4 = '" & PROC42 & "', PROC5 = '" & PROC52 & "' , ORIENTACAO1 = '" & ORIENTACAO12 & "', ORIENTACAO2 = '" & ORIENTACAO22 & "' , ORIENTACAO3 = '" & ORIENTACAO32 & "', ORIENTACAO4 = '" & ORIENTACAO42 & "' , ORIENTACAO_a = '" & ORIENTACAO_a2 & "', ORIENTACAO_b = '" & ORIENTACAO_b2 & "' , ORIENTACAO_c = '" & ORIENTACAO_c2 & "', ENCAMINHAMENTO = '" & ENCAMINHAMENTO2 & "' , medico = " & medico2 & ", " & _
                          " ITEM1 = '" & ITEM1_2 & "', ITEM2 = '" & ITEM2_2 & "' , ITEM3 = '" & ITEM3_2 & "' , ITEM4 = '" & ITEM4_2 & "' , ITEM5 = '" & ITEM5_2 & "' , ITEM6 = '" & ITEM6_2 & "' , ITEM7 = '" & ITEM7_2 & "' , ITEM8 = '" & ITEM8_2 & "' , ITEM9 = '" & ITEM9_2 & "' , ITEM10 = '" & ITEM10_2 & "' , ITEM11 = '" & ITEM11_2 & "' , ITEM12 = '" & ITEM12_2 & "' , ITEM13 = '" & ITEM13_2 & "' , ITEM14 = '" & ITEM14_2 & "' , ITEM15 = '" & ITEM15_2 & "' , ITEM16 = '" & ITEM16_2 & "', ITEM17 = '" & ITEM17_2 & "' , ITEM18 = '" & ITEM18_2 & "', ITEM19 = '" & ITEM19_2 & "' , ITEM20 = '" & ITEM20_2 & "', ITEM21 = '" & ITEM21_2 & "' , ITEM22 = '" & ITEM22_2 & "', ITEM23 = '" & ITEM23_2 & "' , ITEM24 = '" & ITEM24_2 & "', ITEM25 = '" & ITEM25_2 & "' , ITEM26 = '" & ITEM26_2 & "', ITEM27 = '" & ITEM27_2 & "' , ITEM28 = '" & ITEM28_2 & "', " & _
                          " ITEM29 = '" & ITEM29_2 & "', ITEM30 = '" & ITEM30_2 & "' , ITEM31 = '" & ITEM31_2 & "' , ITEM32 = '" & ITEM32_2 & "' , ITEM33 = '" & ITEM33_2 & "' , ITEM34 = '" & ITEM34_2 & "' , ITEM35 = '" & ITEM35_2 & "' , ITEM36 = '" & ITEM36_2 & "' , txt1 = '" & txt1_2 & "' , txt2 = '" & txt2_2 & "' , txt3 = '" & txt3_2 & "' , txt4 = '" & txt4_2 & "' , txt5 = '" & txt5_2 & "' , txt6 = '" & txt6_2 & "' , txt7 = '" & txt7_2 & "' , txt8 = '" & txt8_2 & "', txt9 = '" & txt9_2 & "' , txt10 = '" & txt10_2 & "', txt11 = '" & txt11_2 & "' , txt12 = '" & txt12_2 & "', txt13 = '" & txt13_2 & "' , txt14 = '" & txt14_2 & "', txt15 = '" & txt15_2 & "' , txt16 = '" & txt16_2 & "', txt17 = '" & txt17_2 & "' , txt18 = '" & txt18_2 & "', txt19 = '" & txt19_2 & "' , txt20 = '" & txt20_2 & "' " & _
                          " WHERE CONTROL = " & CONTROL1
                          
            SQL2 = "UPDATE TBL_LEITOS_Ots_Clin SET " & _
                          " txt21 = '" & txt21_2 & "', txt22 = '" & txt22_2 & "' , txt23 = '" & txt23_2 & "' , txt24 = '" & txt24_2 & "' , txt25 = '" & txt25_2 & "' , txt26 = '" & txt26_2 & "' , txt27 = '" & txt27_2 & "' , txt28 = '" & txt28_2 & "' , txt29= '" & txt29_2 & "' , txt30 = '" & txt30_2 & "' , txt31 = '" & txt31_2 & "' , txt32 = '" & txt32_2 & "' , txt33 = '" & txt33_2 & "' , txt34 = '" & txt34_2 & "' , txt35 = '" & txt35_2 & "' , txt36 = '" & txt36_2 & "', evolucao = '" & evolucao2 & "' , ResumoClinInt = '" & ResumoClinInt2 & "', Pareceresp = '" & Pareceresp2 & "' , Dainterc = '" & Dainterc2 & "', Parainterc = '" & Parainterc2 & "' , SexoM = '" & SexoM2 & "' , SexoF = '" & SexoF2 & "', Clinica = '" & Clinica2 & "' , Patolinicial = '" & Patolinicial2 & "', " & _
                          " Patolinfecciosa = '" & Patolinfecciosa2 & "', PatolIngecciosa = '" & PatolIngecciosa2 & "' , Terapeutico = '" & Terapeutico2 & "' , Profilatico = '" & Profilatico2 & "' , ATB = '" & ATB2 & "' , DoseDiaria = '" & DoseDiaria2 & "' , Dias = '" & Dias2 & "' , FuncNormalS = '" & FuncNormalS2 & "' , FuncNormalN = '" & funcNormalN2 & "' , FuncHepaticaS = '" & FuncHepaticaS2 & "' , FuncHepaticaN = '" & FuncHepaticaN2 & "' , Antimicrobianos = '" & Antimicrobianos2 & "' , MedSolicitCRM = '" & MedSolicitCRM2 & "', Setor = '" & Setor2 & "' , Entidade = '" & Entidade2 & "', Codigo = '" & Codigo2 & "' , EndEntidade = '" & EndEntidade2 & "', FoneEnt = '" & FoneEnt2 & "' , Peso = '" & Peso2 & "', TipoSanguinio = '" & TipoSanguinio2 & "' , Hemoglobinadopac = '" & Hemoglobinadopac2 & "', Plaquetometriadopac = '" & Plaquetometriadopac2 & "', " & _
                          " HemocompSolic = '" & HemocompSolic2 & "'," & SQL_campo_data2 & " JustificativaMed = '" & JustificativaMed2 & "' , datanascto = '" & datanascto2 & "' , Telefone = '" & Telefone2 & "' , UBS = '" & UBS2 & "' , Endereco = '" & Endereco2 & "' , EndCont = '" & EndCont2 & "'" & _
                          " WHERE CONTROL = " & CONTROL1
            DoCmd.RunSQL SQL1
            DoCmd.RunSQL SQL2
                                    
            MsgBox "Troca de prontuários executada com exito", vbInformation, "Sucesso"
        Else
            MsgBox msgErro, vbCritical, "Erro ao buscar informações de prontuário"
        End If
    End If
Else
    MsgBox "Apenas números são aceitos", vbCritical, "Erro na digitação de prontuários"
End If
Set rs = Nothing
erros:
    Select Case Err.Number
        Case 0
             Dim facaNada As String
        Case 13
             MsgBox "Apenas números são aceitos", vbCritical, "Erro na digitação de prontuários"
        Case Else
            MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.LastDllError, vbCritical
    End Select

End Sub


Boa tarde Ronaldo. Você respondeu até muito rápido pelo trabalho que deu.
Funcionou beleza. Só o probleminha de ficar pedindo pra dar ok 4 vezes enquanto faz o update. Mas dá pra usar assim.
Realmente estou aprendendo. Isso será muito útil pra nós aqui.
Muito obrigado mesmo pelo empenho e atenção.
Que Deus lhe dê em dobro.

Abraço

que bom que funcionou td ok, toda duvida gera um aprendizado novo para os dois lados(pra quem pergunta e pra quem responde)
por isso gosto de participar no forum, mas enfim vou deixar uma dica pra vc.
Para nao ficar mostrando essas mensagens do update eu desabilito uma opção no access chamada "Consultas Ação".
voce acha ela em: Opções do access > Configuração do cliente
na sessão "Confirmar" vc acha a opção "Consultas Ação".

Beleza. Valeu
Resolveu tudo..!!

Com essa dica que me deu inseri um DoCmd.SetWarnings False antes do update e um DoCmd.SetWarnings True no final do update. Deu certo.