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


4 participantes

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 17/6/2020, 00:23

    Pessoal preciso de uma ajuda.
    Gostaria de "mover" os dados de um registro para outra linha da mesma tabela.

    Exemplo: (TEM UM DESENHO MAIS CLARO ANEXO)

    Auto  |  nome   | registro  | quarto | Leito |
    -------|----------|----------|---------|-------|
    1       | Fulano   | 125456 | 300     | 1      |
    -------|----------|----------|---------|-------|
    2       | Ciclano  | 123890 | 300     | 2      |
    -------|----------|----------|---------|-------|
    3       | Beltrano| 678098 | 301      | 3      |
    -------|----------|----------|---------|-------|
    4       |             |             | 301     | 4       |
    -------|----------|----------|---------|-------|
    5       |             |             | 301     | 5      |
    -------|----------|----------|---------|-------|

    Então, gostaria de uma solução para 'mover' os dados do Fulano de Tal e o registro dele 125456 com base no número do leito para qualquer outro campo, no exemplo para o leito 4, mas poderia ser pra qualquer outro leito, o 5, por exemplo.
    Mas que antes, ele deve se certificar se os campos de destino estão vazios, se tiver então ele move.

    Depois de movido deverá ficaria assim a linha 4 (leito 4):

    ----|----------|----------|------|----|
    4   | Fulano   | 125456 | 301 | 4   |
    ----|----------|----------|------|----|

    E o a linha 1 leito 1 ficaria assim:

    ---|----|----|-------|---|
    1  |     |      | 300  | 1 |
    ---|----|----|-------|---|

    Alguém com alguma solução, por favor.  rabbit
    Abraço a todos
    Anexos
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Attachmentbanco.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (3 Kb) Baixado 2 vez(es)


    Última edição por jnnneves em 17/6/2020, 01:42, editado 2 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Marcelo David 17/6/2020, 00:48

    Esse tópico é o mesmo desse:

    https://www.maximoaccess.com/t38033-troca-de-registros-de-posicao#259632

    Caso sim, será apagado, pois não pode criar várias dúvidas iguais.


    .................................................................................
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Marcel11
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 17/6/2020, 00:52

    Boa noite.

    Não, é diferente. Uma eu quero trocar trocar entre leitos e a outra mover de um para outro.
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 17/6/2020, 16:28

    Pessoal preciso de uma ajuda.
    Gostaria de "mover" os dados de um registro para outra linha da mesma tabela.

    VEJAM O DESENHO ANEXO

    Então, gostaria de uma solução para 'mover' os dados do Fulano de Tal e o registro dele 125456 com base no número do leito para qualquer outro campo, no exemplo para o leito 4, mas poderia ser pra qualquer outro leito, o 5, por exemplo.
    Mas que antes, ele deve se certificar se os campos de destino estão vazios, se tiver então ele move.


    Alguém com alguma solução, por favor.  rabbit

    Abraço a todos
    Anexos
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Attachmentbanco.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (3 Kb) Baixado 1 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  FranklinJSP 17/6/2020, 18:29

    Boa tarde Jair!

    Em anexo

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 18/6/2020, 03:53

    Franklin,

    Excelente, obrigado pela ajuda.
    Digamos que está quase bom.
    Seria interessante, na verdade é o que eu preciso aqui.
    Ele perguntasse para qual leito eu quero mover, e claro, verificar antes se o leito de destino está vazio.
    Não é que eu queira mastigado, é que não manjo nada de programação. Very Happy
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 18/6/2020, 03:58

    Se puder fazer o exemplop sem subform ficaria melhor pra eu entender e aplicar no meu banco.
    Aqui não uso subform, uso o formulário direto.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 18/6/2020, 23:44

    Boa noite

    Veja este
    Código:
    Sub TrocaParaLeitoVazio()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim Rst As DAO.Recordset, bytTrocar As Byte, BytLeitoVazio As Byte, strNome As String, lngRegistro As Long
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Tabela")
        Do Until Rst.EOF
            If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then BytLeitoVazio = Rst("Leito")
            Rst.MoveNext
        Loop
        If BytLeitoVazio = 0 Then
            MsgBox "Não tem nenhum leito disponível": Exit Sub
        Else
            bytTrocar = InputBox("Introduza o leito a trocar.")
        End If
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Tabela WHERE Leito=" & bytTrocar)
        CurrentDb.Execute "UPDATE Tabela SET Nome='" & Rst("Nome") & "',Registro=" & Rst("registro") & " WHERE Leito=" & BytLeitoVazio
        CurrentDb.Execute "UPDATE Tabela SET Nome=Null,Registro=Null WHERE Leito=" & bytTrocar
        MsgBox "Troca efectuada do leito " & bytTrocar & " para o leito " & BytLeitoVazio
        Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 19/6/2020, 02:48

    Boa noite Alexandre,

    Cara !! É quase isso!
    O problema é que ele só troca quando tem paciente em ambos os leitos.
    Mesmo assim ele não faz a troca corretamente.
    Quando troco para um leito que está vazio ele dá um erro de update.
    Ele precisa:
    1) Permitir a troca entre leitos, onde os dois leitos têm paciente, deve permitir a troca entre si. Paciente que está no leito 4 vai para o 3, e o que está no 3 vai para o 4.
    2) Precisa mover um paciente para um leito vazio.

    BANCO ANEXO PARA TESTE . Smile
    Anexos
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela AttachmentLeitos_Alex.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 19/6/2020, 08:19

    Bom dia
    Mas isso era a dúvida do outro tema, que o colega moderador Marcelo David lhe perguntou e você disse que não.
    Explique melhor para entendermos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 19/6/2020, 16:29

    Então,

    Numa mensagem anterior pedi pra ele, se for o caso, excluir o outro tópico e deixar esse.
    Desconsiderem a outra dúvida (tópico) e vamos seguir com essa aqui.
    Desculpem pela confusão.

    O que preciso é:

    1) Permitir a troca entre leitos. Onde os dois leitos possuem pacientes, deve permitir a troca entre si. Exemplo, Paciente que está no leito 4 vai para o 3, e o que está no 3 vai para o 4. (Antes de trocar precisa perguntar: "Tem certeza que quer trocar do leito 'tal' pro leito 'tal' ?)

    2) Precisa mover um paciente para um leito vazio. (Antes de mover precisa perguntar: "Tem certeza que quer mover do leito 'tal' pro leito 'tal' ?)

    3) Essa troca deve ser baseada no Leito. Exemplo. o código pergunta: "Qual leito quer trocar?", Depois, "Qual leito vai receber?"

    4) Podem ser dois botões, um que mova para um leito vazio e outro botão que troca entre Leitos

    BANCO ANEXO PARA TESTE
    Anexos
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela AttachmentLeitos_Alex.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 19/6/2020, 20:14

    Veja
    Código:
    Sub TrocaLeito()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim Rst As DAO.Recordset, bytOrigem As Byte, bytDestino As Byte, strNome As String, lngRegistro As Long
       
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos")
       
        bytOrigem = InputBox("Qual leito quer trocar?") 'Qual leito quer trocar?", Depois, "Qual leito vai receber?
        Rst.MoveFirst
        Rst.Move bytOrigem - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytOrigem & " que pretende trocar está livre": GoTo Fim
        End If
        strNome = Rst("Nome")
        lngRegistro = Rst("Registro")
       
        bytDestino = InputBox("Qual leito vai receber?") 'Qual leito quer trocar?", Depois, "Qual leito vai receber?
        Rst.MoveFirst
        Rst.Move bytDestino - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytDestino & " que pretende receber está livre": GoTo Fim
        End If
        If MsgBox("Tem certeza que quer mover do leito " & bytOrigem & " pro leito " & bytDestino & "?", vbYesNo) <> vbYes Then GoTo Fim
       
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & Rst("Nome") & "',Registro=" & Rst("registro") & " WHERE Leito=" & bytOrigem
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & strNome & "',Registro=" & lngRegistro & " WHERE Leito=" & bytDestino
        MsgBox "Troca efectuada entre o leito " & bytOrigem & " e o leito " & bytDestino
    Fim:
        Set Rst = Nothing
    End Sub

    Sub TrocaVazio()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim Rst As DAO.Recordset, bytTrocar As Byte, BytLeitoVazio As Byte
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos")
        Do Until Rst.EOF
            If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then BytLeitoVazio = Rst("Leito"): Exit Do
            Rst.MoveNext
        Loop
        If BytLeitoVazio = 0 Then
            MsgBox "Não tem nenhum leito disponível": Exit Sub
        Else
            bytTrocar = InputBox("Introduza o leito a trocar.")
        End If
        Rst.MoveFirst
        Rst.Move bytTrocar - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytTrocar & " que pretende trocar está livre": GoTo Fim
        End If
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos WHERE Leito=" & bytTrocar)
        If MsgBox("Tem certeza que quer mover do leito " & bytTrocar & " pro leito " & BytLeitoVazio & "?", vbYesNo) <> vbYes Then GoTo Fim
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & Rst("Nome") & "',Registro=" & Rst("registro") & " WHERE Leito=" & BytLeitoVazio
        CurrentDb.Execute "UPDATE Leitos SET Nome=Null,Registro=Null WHERE Leito=" & bytTrocar
        MsgBox "Troca efectuada do leito " & bytTrocar & " para o leito " & BytLeitoVazio
    Fim:
        Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 19/6/2020, 22:16

    Boa noite Alexandre,

    Mais uma vez obrigado pela ajuda aí.

    Você deve ser meu parente, meu nome é Jair Neves. kkk

    Meu,! Quase bom! Na troca entre leitos com pacientes funcionou beleza.

    Já no mover para o leito vazio tá mais ou menos.

    O que acontece? Ele não pergunta pra qual leito vazio eu quero mover, ele simplesmente escolhe um leito vazio e coloca o paciente lá.

    Eu precisaria informar pra qual leito vazio será movido.

    Beleza? Dá pra ajudar mais essa aí?

    Abraço,
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 20/6/2020, 09:09

    Bom dia
    Precisa começar pelos pequenos trabalhos para chegar aos grandes
    Código:
    Sub TrocaLeito()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim Rst As DAO.Recordset, bytOrigem As Byte, bytDestino As Byte, strNome As String, lngRegistro As Long
       
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos")
       
        bytOrigem = InputBox("Qual leito quer trocar?")
        Rst.MoveFirst
        Rst.Move bytOrigem - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytOrigem & " que pretende trocar está livre": GoTo Fim
        End If
        strNome = Rst("Nome")
        lngRegistro = Rst("Registro")
       
        bytDestino = InputBox("Qual leito vai receber?")
        Rst.MoveFirst
        Rst.Move bytDestino - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytDestino & " que pretende receber está livre": GoTo Fim
        End If
        If MsgBox("Tem certeza que quer mover do leito " & bytOrigem & " pro leito " & bytDestino & "?", vbYesNo) <> vbYes Then GoTo Fim
       
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & Rst("Nome") & "',Registro=" & Rst("registro") & " WHERE Leito=" & bytOrigem
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & strNome & "',Registro=" & lngRegistro & " WHERE Leito=" & bytDestino
        MsgBox "Troca efectuada entre o leito " & bytOrigem & " e o leito " & bytDestino
    Fim:
        Set Rst = Nothing
    End Sub

    Sub TrocaVazio()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim Rst As DAO.Recordset, bytTrocar As Byte, BytLeitoVazio As Byte
       
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos")
       
        bytTrocar = InputBox("Qual leito quer trocar?")
        Rst.MoveFirst
        Rst.Move bytTrocar - 1
        If Len("" & Rst("Nome")) = 0 And Len("" & Rst("Registro")) = 0 Then
            MsgBox "O leito " & bytTrocar & " que pretende trocar está livre": GoTo Fim
        End If
       
        BytLeitoVazio = InputBox("Qual leito vai receber?")
        Rst.MoveFirst
        Rst.Move BytLeitoVazio - 1
        If Len("" & Rst("Nome")) > 0 Or Len("" & Rst("Registro")) > 0 Then
            MsgBox "O leito " & BytLeitoVazio & " que pretende receber não está livre": GoTo Fim
        End If
        If MsgBox("Tem certeza que quer mover do leito " & bytTrocar & " pro leito " & BytLeitoVazio & "?", vbYesNo) <> vbYes Then GoTo Fim
       
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Leitos WHERE Leito=" & bytTrocar)
        CurrentDb.Execute "UPDATE Leitos SET Nome='" & Rst("Nome") & "',Registro=" & Rst("registro") & " WHERE Leito=" & BytLeitoVazio
        CurrentDb.Execute "UPDATE Leitos SET Nome=Null,Registro=Null WHERE Leito=" & bytTrocar
        MsgBox "Troca efectuada do leito " & bytTrocar & " para o leito " & BytLeitoVazio
    Fim:
        Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 20/6/2020, 21:49

    É verdade.
    Tenho muito que aprender nisso aqui. kkk

    bounce cheers cheers Funcionou beleza. Alexandre!!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 20/6/2020, 22:18

    Faltou o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 22/6/2020, 20:54

    Boa tarde caro Alexandre,

    Como disse começar com os pequenos para ir para os grandes.
    Veja por favor, banco anexo, onde apliquei o conhecimento que você me passou.
    Claro, agora com mais campos da tabela.
    Veja que dá um erro na hora de trocar entre leitos. Não consegui localizar o erro.
    Para acessar pelo Menu Principal, o item se chama prescrição.
    O form se chama "frm_Prescr_Ots Clin". Nele tem um botão se chama Troca de Leitos, foi onde coloquei o seu código. (Tentei adaptar aqui, fiz algo errado que não funcionou) Embarassed

    Dá pra ajudar  Surprised

    Obrigado e abraço
    Anexos
    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Attachmentbanco_maximo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (447 Kb) Baixado 8 vez(es)
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 26/6/2020, 22:55

    Boa noite,

    Alexandre Neves ou alguém pra me ajudar nesse projeto?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Alexandre Neves 27/6/2020, 09:37

    Bom dia
    Deve melhorar as tabelas: números não devem ser do tipo texto
    Na expressão, se o dado fôr número, deixe o dado sem envolver qualquer caracter; se o dado fôr texto, envolva-o dado em pelicas; se o dado fôr data, envolva-o em cardinais


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jnnneves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  jnnneves 29/6/2020, 01:00

    Ok. Vou verificar essas informações.

    Conteúdo patrocinado


    Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela Empty Re: Mover informações de uma linha (registro) para outra linha (registro) na mesma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 18:17