[Resolvido]Acrescentar dados em um subformulário através da Instrução Insert Into.

Olá! Pessoal, Boa noite;

Estou criando um banco de dados onde tenho um formulário e um subformulario acoplado.
Tenho um botão (Inserir Função - MOI ) no formulário, no evento ao clicar tentei criar um procedimento usando a instrução Insert Into, só que não está funcionando.
Teria como verificar o que esta errado no procedimento de evento, ou sugerir outra solução?
Estou usando a verão 2016 do access.
Segue banco de dados.

Desde já agradeço a tenção de todos.

Sds,
Daelson

Tente assim

Código:

CurrentDb.Execute "INSERT INTO tbl_CadastroSalario (ID_Funcao_tblfuncao, Nome_FuncaotblCadastroSalario, TipoMaodeObra_CadastroSalario ) " & _
                  "SELECT Id_Funcao, Descricao_Funcao, Tipo_MaodeObra FROM tbl_Funcao " & _
                  "WHERE (((tbl_Funcao.Tipo_MaodeObra)=""MOI""))" & ";", dbFailOnError

Olá! DamascenoJr., Bom dia!

Agradeço a atenção dispensada ao assunto.

Implementei o código sugerido, porém, foi retornado o erro a seguir:




Segue o bando com o código sugerido.


Por favor, teria como verificar?

O início da linha é

Current

no seu arquivo está

CCurrent

Executei aqui e funcionou. Só seu problema de campo obrigatório não preenchido, mas nesse caso você pode analisar e ajustar.

Olá DamascenoJr., Boa noite!

Corrigi o código e funcionou. Os registros foram acrescentados na tabela.

Só não consigo fazer com que o campo obrigatório (ID_BaseSalarial_tblBaseSalarial da tbl_CadastroSalario) receba o ID (ID_BaseSalarial da tbl_BaseSalarial) do formulário. Com isso conseguiria fazer com que os registros acrescentados ficassem relacionados com o ID do formulário.


Caso não tenha uma sugestão para esse problema, darei o tópico como concluído e tentarei outra solução.


Aproveito para agradecer sua atenção e disposição em ajudar.



At.
Daelson

Olá, Bom dia!

Ajustei o código e funcionou conforme esperado.

Segue o código:

Private Sub cmd_InserirFuncaoMOI_Click()

CurrentDb.Execute "INSERT INTO tbl_CadastroSalario (TipoMaodeObra, Nome_Funcao, ID_BaseSalarial) SELECT tbl_Funcao.Tipo_MaodeObra, tbl_Funcao.Descricao_Funcao, tbl_BaseSalarial.ID_BaseSalarial FROM tbl_BaseSalarial, tbl_Funcao WHERE [tbl_Funcao]![Tipo_MaodeObra]=""MOI"" AND [tbl_BaseSalarial]![ID_BaseSalarial]=" & Forms![frm_CadastroBaseClasse]![ID_BaseSalarial] & ";", dbFailOnError

'A linha a seguir é para após inserir os registros o formulário ficar no registro atual
Dim rs
rs = Me.Bookmark
Me.Requery
Me.Bookmark = rs


End Sub



Aproveito para reiterar meus agradecimentos ao DamascenoJr.



At.
Daelson

O fórum agradece o retorno. Sucesso.