[Resolvido]Ao vender um artigo/serviço expecífico, colocar a data de venda do formulário na tabela alunos (ou clientes)

Boa tarde,
Cá estou eu mais uma vez a precisar da vossa ajuda!

Bem, eu tenho um formulário de vendas, onde existe um subformulário para efectuar a venda dos produtos ou serviços.
Pretendo que ao vender, (sub formulário), um serviço chamado de “mensalidade” , (Codprod mens) seja colocada na ficha do aluno (Tabela de identificação dos alunos [Tabident]), no campo mensalidade a data do formulário de vendas (DataVenda), ou activar o campo como pago (tipo sim/não).

Com a finalidade de mais tarde ao aceder à ficha do aluno possa ser avisado da falta do pagamento.

Faz duas semanas que tenho pesquisado no fórum, retirei exemplos mas devido aos meus parcos conhecimentos, não consigo criar o código.

Peço encarecidamente que me indiquem como posso relacionar todos estes campos.
Obrigado

Basta você ter colocar, no "Valor padrão" do campo, na aba Dados das propriedades dele, a data automática: =Date()

Obrigado criquio, mas isso coloca apenas a data de hoje certo?

Se sim, eu pretendia era colocar a data que está no form vendas e que corresponde ao iten mensalidade.

Você se refere a colocar a data do campo do formulário em todos os registros do subformulário vinculados ao registro do form principal, é isso? Se sim, você pode atualizar o campo direto na tabela, colocando algo assim no "Ao clicar" de um botão por exemplo:

CurrentDb.Execute "UPDATE NomeDaTabela SET NomeDoCampoDaTabela='" & Me.NomeDoCampoDoForm & "' WHERE Código=" & Me.Código & ""

Me.NomeDoControleSubForm.Requery

Espétaculo quem sabe sabe! Funciona mesmo.

criquio se não for abusar da sua ajuda, será que é possível ligar o subformulário o campo codprod a esta instrução?
do tipo if [codprod]="mens" then executa a instrução anterior else grava e sai.

codprod está no formulário principal ou nas linhas do subform? Se for no principal, seria exatamente como escrevestes:

If Me.codprod = "mens" Then

CurrentDb.Execute "UPDATE NomeDaTabela SET NomeDoCampoDaTabela='" & Me.NomeDoCampoDoForm & "' WHERE Código=" & Me.Código & ""
Me.NomeDoControleSubForm.Requery

Else
End If

Se for nas linhas do subform e você quiser atualizar apenas as "mens", basta passar isso no parâmetro:

CurrentDb.Execute "UPDATE NomeDaTabela SET NomeDoCampoDaTabela='" & Me.NomeDoCampoDoForm & "' WHERE codprod='mens' And Código=" & Me.Código & ""

Me.NomeDoControleSubForm.Requery

Please advice.

Estou a fazer algo errado!
coloquei as instruções anteriores assim:

Private Sub Comando17_Click()
CurrentDb.Execute "UPDATE tabIdent SET Mensalidade='" & Me.DataVenda & "' WHERE codprod='mens' And Código=" & Me.Código & ""

Me.CodProd.Requery

DoCmd.Close

e aparece o erro "Compile error: Method or data member not found" e sublinha o campo que está a vermelho. Este campo está no form principal assim como o botão.

please help me...

O nome do campo está correto? É mesmo DataVenda? Verifique se não tem alguma letra diferente ou faltando ou a mais no nome do campo.

Bom dia mestre criquio,
Embora eu não perceba muito de programação mas acho que sim... vou anexar um print screen.


Como não dá para anexar segue o link

https://2img.net/r/ihimg/f/841/image3qr.jpg

O que mais poderá ser? Estará algo errado?
Agradeço qualquer ajuda...


Obrigado

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.