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]Trocar registros de tabela de posição

    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

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

    Mensagem  jnnneves 5/6/2017, 19:23

    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.
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 6/6/2017, 17:52

    Alguma boa alma pra me ajudar?
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 12/6/2017, 13:01

    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


    Última edição por ronaldojr1 em 12/6/2017, 18:16, editado 1 vez(es)
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 12/6/2017, 18:08

    Ôpa Ronaldo. Obrigado. Vou testar. Depois informo de funcionou. Muito obrigado mesmo.
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 12/6/2017, 18:17

    blz
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 12/6/2017, 18:44

    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

    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 12/6/2017, 18:56

    Ronaldo!!!! Funcionou!!!! Very Happy
    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

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 12/6/2017, 19:36

    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.
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 12/6/2017, 20:08

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

    Abraço

    Jair
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 12/6/2017, 20:09

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 14/6/2017, 16:50

    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í.
    Anexos
    [Resolvido]Trocar registros de tabela de posição Attachmentcomando update.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (6 Kb) Baixado 3 vez(es)
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 22/6/2017, 12:09

    Olá

    Alguém pra me ajudar?

    Obrigado

    Jair
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 22/6/2017, 12:54

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 22/6/2017, 18:31

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 22/6/2017, 19:07

    deu certo o update?
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 29/6/2017, 14:15

    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?
    Anexos
    [Resolvido]Trocar registros de tabela de posição Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 2 vez(es)
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 29/6/2017, 18:38

    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. No No
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 30/6/2017, 14:30

    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
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 30/6/2017, 17:57

    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
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  ronaldojr1 30/6/2017, 18:12

    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".
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2015

    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  jnnneves 30/6/2017, 18:40

    Beleza. Valeu bounce bounce
    Resolveu tudo..!! cheers cheers

    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.

    Conteúdo patrocinado


    [Resolvido]Trocar registros de tabela de posição Empty Re: [Resolvido]Trocar registros de tabela de posição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:14