[Resolvido]Atualizar campos com uma caixa de seleção

Boa Noite a todos!

Bom estou desenvolve um controle de estoque. No formulário principal tenho os campos: Produto, IdProduto, Valor, Estoque (quantidade atual) e Estoque Mín,. E um subfomulário que alimenta o sistema com a entrada dos novo produtos. No subformulário possui os campos: Produto, Quantidade, Valor e "Atualizar?" (caixa de seleção).

Necessito que quando o usuário clique na caixa de seleção e esta fica marcada, automaticamente some os valores Quantidade (do subformulário) + Estoque e o resultado fique no próprio campo estoque.

Se possível também quando clica na caixa de seleção, o sistema avise que o estoque será atualizado. Se o usuário deseje que isto ocorra ou não.

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

Você pode atualizar a tabela e depois atualizar o formulário e o subformulário:

Código:

If Me.NomeDaCaixaSeleção.Value = - 1 Then
    If MsgBox("Deseja mesmo atualizar?", vbQuestion, "Atualizar dados") = vbYes Then
        CurrentDb.Execute "UPDATE NomeDaTabela SET Campo1DaTabela = 'Valor para o campo' WHERE Código=" & Me.Código & ""
        Me.Forms.Requery
        Me.NomeControleSubForm.Requery
    Else
    End If
Else
End If

Opa Criquio, Muito obrigado pela sua ajuda. Estou começando agora a trabalhar com Access... teria como vc descriminar um pouco mais como posso usar o código.


Muito Obrigado Pela Ajuda

Olá marxlf
Vai usar o código exatamente onde você quer, ou seja, na propriedade Após atualizar da caixa de seleção.
Vá na folha de propriedades da caixa de seleção, escolha a propriedade acima e coloque o código que o criquio postou.
Não esqueça de colocar o nomes dos controles da tua aplicação no lugar dos nomes do exemplo do criquio.

Abraços

Olá Belém,

Primeiramente obrigado pela sua atenção. Conseguir localizar o caminho informado. Agora outro problema: Quando clico na caixa de seleção, dá um erro que não encontra o campo informado. Segue abaixo o código com os devidos campos. Por favor, verifique se estão corretos.

Private Sub Atualizar_Entrada_AfterUpdate()
If Me.Atualizar_Entrada.Value = -1 Then
If MsgBox("Deseja mesmo atualizar?", vbQuestion, "Atualizar dados") = vbYes Then
CurrentDb.Execute "UPDATE Tb_Produtos_Entrada (Tabela do Subformulário) SET Qtde_Entrada (Campo do subformulário) = 'Estoque (Campo do formulário principal -> Onde ficará o resultado da soma)' WHERE Estoque=" & Me.Frm_Produtos (Formulário principal) & ""
Me.Forms.Requery
Me.Frm_Produtos_Entrada.Requery
Else
End If
End Sub

Olá marxlf

CurrentDb.Execute "UPDATE Tb_Produtos_Entrada SET Qtde_Entrada = 'Estoque' WHERE Estoque= " & Me.Frm_Produtos

O erro deve estar na parte em vermelho. Como o campo Estoque é numérico não precisa das aspas simples.
Copie e cole a linha acima, e retire as aspas simples do Estoque.
Veja se funfa
Mais abaixo tem dois forms.Requery, necessário os dois?
Abraços