[Resolvido]Vários Formulários gravar dados em uma tabela principal

Olá, Mestres!!

Estou precisando de uma ajuda, possuo uma tabela (DB_Protocolo_Producao) com várias colunas, devido especificações técnicas dos produtos produzidos, onde o formulário não comportou "quantidade de campos x quantidade de dados à preencher" e ficou um formulário difícil de entender. E para conseguir preencher todos os dados que preciso criei formulários (Frm_brilho); (Frm_Profundidade); etc. No momento que preencho os dados nos  formulários adicionais os dados não estão sendo preenchidos na linha correta da tabela (DB_Protocolo_Producao). Por hora não faço ideia como fazer a referência nos formulário adicionais com o formulário principal e por fim preencher na tabela principal.

Formulário Principal: Protocolo_Producao_Textura
Tabela Principal: DB_protprod_tex


Desde já agradeço a ajuda.

Não tem os (Frm_brilho); (Frm_Profundidade);

enfim , se nesses formulario , você quer preencher na tabela principal

Set db = CurrentDb
       sSQL = "INSERT INTO nomeDaTabela"
   
     'Aqui os campos da tabela---------------------------------------
       sSQL = sSQL & "("
       sSQL = sSQL & "  campo da tabela"
       sSQL = sSQL & " ,campo da tabela"
       sSQL = sSQL & " ,campo da tabela"
       sSQL = sSQL & ")"
     ''Aqui os valores que vai ser inserido do campo do formulário para a tabela principal -------------------------------------
       sSQL = sSQL & " VALUES"
       sSQL = sSQL & "("
       sSQL = sSQL & "  '" & Trim(Sua caixa de texto) & "'"
       sSQL = sSQL & " ,'" & Trim(Sua caixa de texto) & "'"
       sSQL = sSQL & " ,'" & Trim(Sua caixa de texto) & "'"
       sSQL = sSQL & ")"
       db.Execute sSQL
       Me.Refresh
       MsgBox " cadastrado !", vbInformation, "Protocolo de Produção"
       End Sub[/code]
Observação Tem que ficar na ordem os campos da tabela com os do frm

Foi um exemplo que dei, desculpe não ser tão claro, mas o botões que abrem os formulários são [passo 1], [passo2], [passo3],[passo4],[passo5],[passo6],[foscagem/blast], [Inspecao Final], e os formulários tem o mesmo nome.

crysostomo


obrigado pela ajuda vou testar aqui e já informo se correu tudo bem...

cumprimentos.

Olá, crysostomo

Realizei os testes aqui, a gravação é realizada na tabela, mas não no registro que preciso e sim é gerado um novo registro. Abaixo o print de como ficou para melhor entender.

Mas não é para preencher o formulário principal?

Sim, eu preenchi o formulário principal que gerou um número de protocolo de produção e quando preenchi o formulário adicional com aquele código que me passou, o formulário adicional criou uma linha nova na tabela principal.

O que preciso é que o formulário adicional preencha na mesma linha que o formulário principal criou na tabela.

No momento estou no celular, eu não sei se esse código é o certo não, mas da uma olhada ai ?

Código:

Dim db As DAO.Database
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM DB_ProtProd_Tex WHERE nome do campo IS NULL")
 
  If rst.RecordCount = 0 Then Exit Sub
  With rst
  .Edit
  rst("campoDaTabela") = Me.nomeDoCampo
  .Update
 End With
'fecha o recordset e limpa a memoria
rst.Close: Set rst = Nothing
End Sub


Bom dia! crysostomo

Tentei o código e não deu certo, realizei 2 tentativas na primeira salvou os dados do formulário "Passo1" em registros já salvos e não no que estava incluindo, e na segunda fez o mesmo do código anterior é criado uma linha nova na tabela.

Estava pensando que terei que criar uma tabela para cada formulário adicional e relacionar o "Num_Prot_P_tex" e depois quando quiser os dados compilados crio uma consulta.

Mas criando uma tabela para cada formulário ficarei com excessos de tabelas em meu banco.

Sei lá opinião de um novato em Access e programação.

Cumprimentos.

Amigo, bom dia, dei uma olhadinha rápida no seu  formulário, os campos estão tudo na mesma tabela , vão ser agravado tudo na mesma linha, porque quer abrir outros?

pelo que entendi você não precisa mais de outros.  Da uma olhada ai ..

Este formulário será preenchido pelo colaborador da fábrica e em um tablet, se tiver muitos dados no formulário com várias abas, fica confuso.

Por isso fiz os botões que abre formulários e preciso preencher na tabela principal. Onde cada botão é uma etapa do processo de fabricação.

A dificuldade é preencher o formulário adicional e que ele preencha o registro que estamos editando.

Amigo , pra mim deu erro aqui em colocar nas mesmas linha, você poderia fazer o seguinte então; fazer um login aonde cada usuário tenha acesso as seus respectivas funções , ou seja, usuário: fulano só tem permissão no passo1 então todos ostros botões vão ficar oculto, o usuário ciclano tem permissão somente no passo3 , então os outros botões ficaram ocultos, assim funcionara tripeiramente , e maneiro, faça assim para não ficar nesse impasse até que outros amigos tenho outra solução melhor.
Esse sistema vai para aplicação web?

Esse sistema, irá funcionar com o runtime access 2016. Porque na verdade os tablets que referi, são Surfaces e all-in-one's pela fábrica. Penso que num futuro terá que ser web, pois os vendedores terão que acessar no cliente esse sistema.

Com base em sua experiência o runtime access funciona bem ou temos limitações?

Funciona bem. No caso eu recomendo há você colocar as tabelas extraída do sistema.
Mesmo você fazendo do jeito da minha sugestão ou não.
Eu vou ficar acompanhando o tópico pq não entendo porque comigo errou, mas seguia em frente desse jeito ate outros fera aparecerem .

Sim, a ideia é fazer back end e front end, salvaguardando as tabelas e o banco de dados. Mas vou esperar outra solução, porque a que me passou o chefe aqui não aprovou.

Mas agradeço a ajuda.

Mais uma vez, resolvido com excelência!

O tópico resolvido com ajuda do Scandinavo me ajudou a resolver este problema. Abaixo coloco o link do tópico.

https://www.maximoaccess.com/t35979-resolvidoretornar-valor-de-um-formulario-para-o-sub-formulario

Agradeço imenso o amigo crysostomo que ajudou nesta questão.

E agradeço todos do fórum pela ajuda mútua e compartilhamento de conhecimento.

Cumprimentos.

Bruno Nunes