Pessoal bom dia.
Agradeço a ajuda de todos, pois aprendi e aprendo muito com todos.
Estou com uma dúvida.
Tenho um formulário “CADASTRO” que possui o comando de abrir o formulário “CADASTRO USUARIO” e copiar o campo “nome” e jogar no outro como mostra o código abaixo.
Private Sub Comando31_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "CADASTRO USUÁRIO"
On Error GoTo Err_Comando31_Click
DoCmd.GoToRecord , , acNewRec
Forms![CADASTRO USUÁRIO].NOME = Me.[Combinacao0]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando31_Click:
Exit Sub
Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click
End Sub
O que estou querendo fazer é o seguinte.
No FORMULÁRIO DE CADASTRO quero colocar 4 subformulário onde em cada um deles eu seleciono algo, tipo.
FORMI01 seleciono o nome.
FORMI02 seleciono a empresa
FORMI03 seleciono a função
E criar um comando que ao clicar ele copie os itens dos formulários acima e inclua no FORMU04.
Não estou sabendo como fazer isso no código acima.
Agradeço a atenção de todos.
Agradeço a ajuda de todos, pois aprendi e aprendo muito com todos.
Estou com uma dúvida.
Tenho um formulário “CADASTRO” que possui o comando de abrir o formulário “CADASTRO USUARIO” e copiar o campo “nome” e jogar no outro como mostra o código abaixo.
Private Sub Comando31_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "CADASTRO USUÁRIO"
On Error GoTo Err_Comando31_Click
DoCmd.GoToRecord , , acNewRec
Forms![CADASTRO USUÁRIO].NOME = Me.[Combinacao0]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Comando31_Click:
Exit Sub
Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click
End Sub
O que estou querendo fazer é o seguinte.
No FORMULÁRIO DE CADASTRO quero colocar 4 subformulário onde em cada um deles eu seleciono algo, tipo.
FORMI01 seleciono o nome.
FORMI02 seleciono a empresa
FORMI03 seleciono a função
E criar um comando que ao clicar ele copie os itens dos formulários acima e inclua no FORMU04.
Não estou sabendo como fazer isso no código acima.
Agradeço a atenção de todos.