[Resolvido]Problema Atualizar Subformulario

Apesar de ter tentado seguir alguns exemplos para atualizar o Subformulario ainda não consegui.
Podem me ajudar?
For_Cad_Reg_Validade

https://www.dropbox.com/s/l5uhgp42na4lgu1/BD%20Brigada%20MKRO1.accdb?dl=0

Obrigado,
Orival_Junior

Boa tarde,

Experimente acrescentar no procedimento de evento da sua Caixa de Combinação "Cod_Mkro" do seu formulário For_Reg_Cad_Validade

Me.Requery

Deixa so Complementar aqui...

Private Sub Cod_Mkro_AfterUpdate()
If Cod_Mkro.Value > 0 Then
Me.Descricao = DLookup("[Descricao_Prod]", "Tab_Cad_Prod_Mkro", "[Código]=" & Cod_Mkro.Value)

End If
DoCmd.Requery

End Sub

Obrigado pela ajuda amigo FabioPaes,

Faltava um toque de mestre

Cumprimentos

Amigos,

A minha dúvida esta quanto ao Subformulario do For_Reg_Cad_Validade.

Desejo que:

1) Após realizar o registro do item ao clicar no botão salvar ou editar que o registro seja exibido no Subformulario exibindo os registros cadastrados naquele momento por aquele usuario.
2) Toda vez que o For_Reg_cad_validade for aberto deverá ser exibido em branco, tanto o Formulário quanto o Subformulario; Os dados do Subformulario deverá ser exibido somente no momento que o usuario estiver realizando os registros.
Se o usuario realizar o registro de 5..10 itens o Subformulario exibe os itens e o Formulario fica em branco aguardando nova digitação para registro....
Como o usuario irá realizar o cadastro varias vezes ao dia o subformulario apenas demonstra os itens cadastrados naquele momento e NÃO de todo o dia ou todos os cadastros...

Deixei no proprio For_Reg_cad_validade melhor esclarecimento da minha dúvida.

A função que o amigo mencionou esta funcionando.

Meu amigo, a resposta ja foi posta... Docmd.Requery.

Item 1:

No botão de Salvar Mude para:

Private Sub Comando10_Click()
   DoCmd.Requery
   MsgBox "REGISTRO SALVO"
End Sub

Item 2:

No evento "Ao Carregar " do seu formulário "For_Reg_Cad_Validade" coloque:


Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

Estou tentando fazer com que este For_Cad_Reg_validade funcione como se fosse um cadastro de compra por exemplo.
Conforme vou registrando os itens no atraves do Formulario o Subformulario exibe todos os registros realizados naquele momento: Feijão,arroz,açucar.

Quando clicar em salvar: O Subformulario exibe o item que foi registrado, esta função esta OK.
Quando clicar no botao novo os campos do formulario deve limpar para ser inserido outro registro porem o subformulario permanece preenchido com o registro que foi cadastrado naquele momento e assim sucessivamente, clicou botao novo o registro é atualizado no subformulario e o formulario fica em branco aguardando novo registro.

Como se fosse uma compra em um mercado.

Amigão, a resposta ja foi dada....

O que precisa é colocar esse comando ( DoCmd.Requery ) apos inserir o produto... ex: Digito o produto e ao sair da qnt coloca-se esse comando para recarregar o formulário. Sendo que a qnt é o ultimo campo da linha...

FabioPaes me perdoe pela minha inexperiência e pela insistência na tratativa do Bd.

Quando eu coloco DoCmd.requery ele abre um novo Cadastro tanto no formulario quanto no Subformulario. E não e isto que desejo pois o Subformulario deve continuar exibindo o registro que foi cadastrado.

Eu fiz o seguinte:
Fiz o meu Subformulario baseado em uma consulta.:Após clicar BtSalvar o Subformulario deve acrescentar e exibir o registro cadastrado;
Logo quando eu clicar em BtNovo os Campos como:Cod_Mkro, Descrição, DataValidade devem ser limpos para novo cadasto porem o subformulario NÃO deve ser limpo deve continuar exibindo os registros que acabaram de ser registrados.

Então fica assim:
Digito o cod_Mkro: 10 clico em salvar. O Subformulario exibe a descrição do item ao clicar no botão Salvar
Digito BtNovo: Os campos Cod_Makro, Descrição e Validade são limpos porem o Subformulario permanece exibindo os registros daquele momento.
Digito o Cod_Mkro: 20 Clico em Salvar...e sucessivamente...BtNovo....limpa os campos...

O Subformulario apenas exibira nenhuma informação quando o Form for aberto pela primeira vez.

Por favor, se puder aplicar isto no proprio Bd que postei e puder postar eu agradeço imensamente.

Logo quando eu clicar em BtNovo os Campos como:Cod_Mkro, Descrição, DataValidade devem ser limpos para novo cadasto porem o subformulario NÃO deve ser limpo deve continuar exibindo os registros que acabaram de ser registrados.

Meu amigo, da forma como esta seu sistema isso não ocorrerá... Pois o subformulario tem um relacionamento com o Formulario atraves do Codigo Makro. Ou seja, so exibirar no subformulario os de Codigos Iguais. Então se vc selecionar codigo 39, preencher tudo, salvar... Ao clicar em novo ele ira limpar tudo... e quando digitar codigo 223, ele so exibirar referentes ao código 223. Para o que pretende terá que Mudar seu sistema.

Mudei la pra uma forma de como vc pode utilizar, sem fugir muito do que vc precisa.

Obs: Feito as preças... ajuste o que precisar...

A parte do Subformulário não funfou. não esta exibindo os registros realizados..

Olhei a tbDetValidade não esta salvando os registros bem como na tbValidade.

Olha, estranho... pois aqui se comportou direitinho...

Abre em novo registro, e vou add produto e sua validade... e ele ja aparece no Subformulario, um apos o outro. Clico em Novo e ele limpa o formulario e Sub...

Nao era isso que pretendia?

Desculpe amigo, na pressa, findei postando arquivo errado.

Mude o Codigo que esta no evento Apos atualizar do campo Data_Validade, para:

Código:


Private Sub Data_Validade_AfterUpdate()
'Salva o Registro da tabela para poder add os novos registros na tabela Detalhe.
DoCmd.RunCommand acCmdSaveRecord
'Insere o produto na tabela tbDetValidade
CurrentDb.Execute "INSERT INTO tbDetValidade (Cod_Mkro,Descricao,Hora_registro,Data_validade,IdValidade)" & _
"VALUES (" & Me.Cod_Mkro.Column(0) & ", '" & Me.Cod_Mkro.Column(1) & "', #" & Format(Now(), "hh:mm:ss") & "#, #" & Format(Me.Data_Validade.Value, "dd/mm/yyyy") & "#, " & Me.ID & ")"

'Mostra os produto inserido no subformulario
Me.Recalc
'limpa os dados dos campos
Me.Cod_Mkro = Null
Me.Descricao_Prod = Null
Me.Data_Validade = Null

End Sub


Nessa versao postada estava faltando o Comando "DoCmd.RunCommand acCmdSaveRecord" no inicio, para salvar os dados na tabela para podermos trabalhar com ele na tabela Detalhe...

Obrigado Mestre pela Grande ajuda.

Apliquei os códigos e funfou corretamente.

Grande Abraço,
Orival_Junior

Bacana, Ate a Proxima e bons Estudos...