[Resolvido]Tenho um cadastro de produtos e quero colocar grupo e sub grupo

Olá, Tenho um controle de materiais e neste, tenho várias tabelas e uma delas é cadastro de produtos. Preciso que nesta apareça grupo do produto e subgrupo.
Ex: 1, saco de cimento, marca, modelo, referência no Grupo: Alvenaria, Subgrupo: Argamassa. Isso na tabela de cadastro.

No formulário de cadastro quero que quando eu selecione Alvenaria no campo Grupo, quero que o sistema filtre só o que é do Grupo Alvenaria no campo subgrupo.

Não sei se fui claro agradeço ajuda.

Ademar Junior

tem como postar o banco de dados. fica mais façil a solução.

tudo vai depender de como esta a sua tabela de cadastro.

Bom dia amigo, então consegui resolver esta parte. Agora preciso dentro desse assunto enviar estes dados para a tabela de cadastro de produtos. Não consigo enviar o arquivo, pois esta muito grande.

posta no drop box e manda o link

apague o que for desnecessário, deixa so o basico relacionado a questao.

Segue o Link do google drive.

https://drive.google.com/file/d/1VzU4B2hYl73lZnFYaiMj4QNNwj4ln5il/view?usp=sharing

Agora preciso dentro desse assunto enviar estes dados para a tabela de cadastro de produtos

de qual formulario.


seus formularios sao vinculados ja salva automaticamente.

Tenho o Frm_CadProd, onde tenho o campo Grupo e SubGrupo desvinculado. Preciso que quando eu selecione os dados, eles aparecem na Tbl_CadProd nos campos com mesmo nome.

troque o seu codigo por este






On Error GoTo btnGuardar_Click_Err

Me.txtDesignação.Enabled = False
Me.txtCodProduto.Enabled = False
Me.txtUnid.Enabled = False
Me.txtMarca.Enabled = False
Me.txtModelo.Enabled = False
Me.txtReferência.Enabled = False
Me.LstGrupo.Enabled = False
Me.lstSubGrupo.Enabled = False
Me.btnAnterior.Enabled = True
Me.btnEliminar.Enabled = True
Me.btnPrimeiro.Enabled = True
Me.btnProximo.Enabled = True
Me.btnUltimo.Enabled = True
Me.btnNovo.Enabled = True
Me.btnAlterar.Enabled = True
Me.btnGuardar.Enabled = False

DoCmd.RunCommand acCmdSaveRecord
''''''''''''''''''''''''''''''''''''''
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
'abre a tabela cadastro no registro especifico
Set rs = db.OpenRecordset("select * from Tbl_CadProd where CodProduto = " & Me.CodProduto & "")

rs.Edit 'modo Edição
rs("Grupo") = Me.LstGrupo.Column(1)
rs("SubGrupo") = Me.lstSubGrupo

rs.Update
rs.Close
db.Close
''''''''''''''''''''''''''''''''''''''''''''''


btnGuardar_Click_Exit:
Exit Sub

btnGuardar_Click_Err:
MsgBox Error$
Resume btnGuardar_Click_Exit

Show amigo. Deu certo, muito obrigado.

Valeu pelo retorno

Marque o topico como resolvido.

Valeu obrigado pela ajuda.