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

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.  
Abraço a todos

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.

Boa noite.

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

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

Boa tarde Jair!

Em anexo

Saludos

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.

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.

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

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 .

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

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

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


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,

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

É verdade.
Tenho muito que aprender nisso aqui. kkk

Funcionou beleza. Alexandre!!

Faltou o Resolvido

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)

Dá pra ajudar  

Obrigado e abraço

Boa noite,

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

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

Ok. Vou verificar essas informações.