[Resolvido]Utilização do comando UPDATE

Olá amigos,
Estou com um pequeno problema, preciso de fazer um update em uma tabela com dados de um registo de introduzidos no formulário nomeadamente a data introduzida.

Para isso, no form introduzi a expressão:

CurrentDb.Execute "UPDATE IdentificaçãoAlunos SET IdentificaçãoAlunos.Mensalidade = tbl_Vendas.DtVenda WHERE IdentificaçãoAlunos.NúmeroAluno = tab_Vendas.CodCliente;"

acontece que me dá um erro: Run-time error '3061'. Too few parameters. Expected 2
será que me podem ajudar por favor?

Obrg.
Sparky

Jamais o UPDATE funfará desse jeito "IdentificaçãoAlunos.Mensalidade = tbl_Vendas.DtVenda"

Quer dar um update num registo existente ?
Baseado na informação das caixas de texto do form ?

Mais ou menos assim;

CurrentDb.Execute "UPDATE [IdentificaçãoAlunos] SET Mensalidade= #" & Me.DtVenda & "# WHERE [NúmeroAluno] = " & Me.CodCliente & ";"

olá amigo JPaulo,

antes demais obrigado pela resposta.

o que pretendo é actualizar um campo (Mensalidade) de uma tabela com dados do formulário (Vendas) que contém um subformulário (VItensVenda) onde coloquei a instrução.

com a sua instrução dá-me o erro: Compile error Method or data member not found
e seleciona Me.DtVenda

Peço um pouco de paciência pois tenho poucos conhecimentos de VBA e SQL. e neste campo toda a ajuda é bem vinda.

Pode colocar aqui parte do seu banco para vermos e ajudar ?

Peço desculpa pela demora, mas estive ausente deste PC.

Amigão JPaulo, já descobri o erro da minha BD, o Nome estava mal escrito, sem querer tinha colocado um acento gramatical que não deveria de existir.

Resolvido este problema com a instrução já funciona. Obrigado.

Gostaria, e ainda não tentei, de colocar uma instrução tipo if then else, para só correr este Update quando efectivamente vender uma mensalidade e não sempre que faço uma venda.

De qualquer forma vou colocar parte da BD para que me possa aconcelhar melhor.

Obrigado

Como posso colocar uma instrução para só correr este Update quando efectivamente vender uma mensalidade (mens)?

Não entendi só quando "vender uma mensalidade"

Pode detalhar por favor ?

Basicamente o que pretendo é relacionar um campo do formulario principal com outro do sub formulario.
Na BD que enviei tenho o form vendas que vai buscar os dados do cliente, e nele existe um subform venda itens que é onde coloco os artigos ou serviços que pretendo vender.

A ideia era que ao vender um serviço (por exemplo mensalidade) a ficha do cliente (ou aluno) fosse actualizada com a data colocada no form principal (vendas).

Eu coloquei a instrução no botão fechar, (poderia de ser outro qq ex: gravar, e assim basta vender qualquer outro produto que a ficha fica atualizada, (o que não pretendo).

Sinceramente não sei como resolver esta situação.

.
Primeiro cria-se uma variavel global num modulo novo;

Public alteracoesnoSubForm As Boolean

No SubFormulario colocamos assim;

Private Sub Form_Dirty(Cancel As Integer)
'variavel global para checkar se existiu alterações no subform
If Me.Dirty Then
'sempre verdadeira em ambos, para enganar o sistema
alteracoesnoSubForm = True
Else
alteracoesnoSubForm = True
End If
End Sub

No evento VBA ao pressionar do seu botão fechar;


Private Sub Comando17_Click()
On Error Resume Next
'se a variavel global for verdadeira faz o update
If alteracoesnoSubForm = True Then
CurrentDb.Execute "UPDATE [IdentificaçãoAlunos] SET Mensalidade= #" & Me.txtDataVenda & "# WHERE [NúmeroAluno] = " & Me.CodCliente & ";"
Else
'se não for ,não faz nada e fecha
End If
DoCmd.Close
End Sub

Seu Banco Aqui:

http://dl.dropbox.com/u/771097/ACADEMIA_OLD.zip

Se bem entendi, (e pelos testes que fiz) isto é válido para qualquer alteração no subformulário.

Como posso adaptar isto para uma alteração específica? (quando o [codprod] for igual a "mens" por exepl.)

Já tentei sem sucesso.

Obrigado

Nesse caso como está não vai dar mesmo, é um subformulario que poderá ter mais de um produto.

Amigão JPaulo

Obrigado pela sua ajuda. Foi muito preciosa.

Irei estudar melhor as instruções que me deu para perceber o seu funcionamento.

Tentarei resolver o problema de outra maneira.

Mais uma vez Obrigado JPaulo.

Aquele abraço

E um feliz Natal