[Resolvido]Insert Into e Select

Bom dia a todos, montei um Bd com o objetivo de puxar dados de uma coluna específica de uma tabela e inserir em outra tabela, porém há algo de errado com meu código, podem me ajudar?
Segue Código:

Private Sub Distribuir_Processos_Click()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TbUsuarios WHERE ProfissionalID=" & Me.ProfissionalID & "")

CurrentDb.Execute "INSERT INTO TbConsolidado(Profissional) VALUES('" & rs!ProfissionalID & "')"

...

rs.Close
Set rs = Nothing

End Sub

Vê se é isso:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM TbUsuarios WHERE ProfissionalID=" & Me.ProfissionalID)

CurrentDb.Execute "INSERT INTO TbConsolidado(Profissional) VALUES(" & rs!ProfissionalID & ")"

Bom dia Claudio, Muito obrigado pelo breve retorno.
Está apresentando o seguinte erro: Método ou membro de dados não encontrado.
Segue abaixo o código utilizado e anexo print para melhor visualização, desde já agradeço.

Código:

Private Sub Distribuir_Processos_Click()

    Dim Profissional As String
    Dim ProfissionalID As String

      Set rs = CurrentDb.OpenRecordset("SELECT * FROM TbUsuarios WHERE ProfissionalID=" & Me.ProfissionalID)
      'Selecionar dados da coluna ProfissionalID da tabela TbUsuarios
     
      CurrentDb.Execute "INSERT INTO TbConsolidado(Profissional) VALUES(" & rs!ProfissionalID & ")"
      'Insere valores copiados na coluna Profissional da tabela TbConsolidado
     
End Sub

Tenta Me!ProfissionalID no lugar de Me.ProfissionalID

Agora me retornou o seguinte erro: O Microsoft Access não pode localizar o campo 'ProfissionalID' referido em sua expressão.

Então o nome do campo não é exatamente "ProfissionalID", ou nem existe esse campo no formulário, já verificou?

Sim, posso postar o Bd para o senhor dar uma olhada?

Sim senhor, pode sim.

Segue:

Realmente faltava o campo ProfissionalID, veja o arquivo em anexo.

Agradeço muito seu esforço mas a ideia não era essa, o objetivo é pegar os dados da coluna ProfissionalID da TbUsuarios e inserir na coluna Profissional da TbConsolidado de forma aleatória enquanto tiver linhas em branco, se puder me ajudar com isso agradeço.

Posso tentar ajudar sim, mas preciso entender o que quis dizer com "de forma aleatória enquanto tiver linhas em branco".

Então, TbConsolidado tem mais de uma coluna, sendo as mais importantes: |Processo|Profissional|
O objetivo é: Pegar os nomes dos profissionais na TbUuarios (serão 7 profissionais listados nessa tabela (Exemplo:Maria,João,Pedro,Gabriel,José,Ana e Roberto)), e em seguida distribuí-los na coluna |Profissional| da TbConsolidado conforme a quantidade de processos presentes (que pode ser infinita).
Resumindo, Distribuir os nomes de acordo com a quantidade de processos.
Espero ter sido e agradeço imensamente a dedicação em me ajudar!

Cliquei no botão "resolvido" por acidente

Na tabela TbConsolidado só tem o campo Profissional, e na tabela TbUsuarios, somente ProfissionalID.

Eu posso até criar o campo Processo na tabela TbConsolidado, mas onde buscar a quantidade de processos, para totalizar em TbConsolidado?

Na verdade, TbConsolidado pode ser substituído por uma consulta, o que é recomendado.
Para exemplificar, preciso de um arquivo melhor estruturado.

Segue anexado o Bd com melhor estruturação para facilitar o entendimento do que desejo fazer.
Preciso que os nomes dos Profissionais sejam distribuidos de acordo com a quantidade de processos presentes na tabela.
(Ir na TbUsuarios, copiar os nomes dos profissionais e distribuí-los na TbConsolidado de acordo com q quantidade de processos presentes na mesma)
Mais uma vez obrigado pela grande ajuda!

Acho que entendi melhor a finalidade da tabela TbConsolidado.

O código abaixo considera que não haverá duplicidade de processos em TbConsolidado.
Como na sua tabela de exemplo existe duplicidade, poderá acontecer de o mesmo processo ser distribuído para mais de um profissional.

Código:

Dim qtd_proc As Long
Dim rs_Consolidado As Recordset
Dim rs_Uusarios As Recordset
Dim i

qtd_proc = DCount("*", "TbConsolidado")
qtd_proc = qtd_proc / DCount("*", "TbUsuarios")

Set rs_Consolidado = CurrentDb.OpenRecordset("TbConsolidado")
Set rs_Uusarios = CurrentDb.OpenRecordset("TbUsuarios")

Do While Not rs_Uusarios.EOF
    For i = 1 To qtd_proc
        rs_Consolidado.Edit
        rs_Consolidado("Profissional") = rs_Uusarios("ProfissionalID")
        rs_Consolidado.Update
        rs_Consolidado.MoveNext
        If rs_Consolidado.EOF Then Exit For
    Next i
    rs_Uusarios.MoveNext
Loop

rs_Consolidado.Close
rs_Uusarios.Close

MsgBox "Pronto"

Perfeito meu amigo Cláudio! Muito obrigado pela paciência e pela dedicação!

De nada.