[Resolvido]Campo não armazenando informação

Boa tarde Senhores,
por mais uma vez venho pedir uma ajuda.
Tenho um banco de dados de alunos que armazena até 4 notas com pesos distintos.
Utilizei a fórmula abaixo para atribuir o resultado para um campo MEDIA do meu registro:

=Arred(SeImed(([Peso_2]=0);([Nota_1]*[Peso_1])/[Peso_1];SeImed(([Peso_3]=0);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2]))/([Peso_1]+[Peso_2]);SeImed(([Peso_4]=0);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2])+([Nota_3]*[Peso_3]))/([Peso_1]+[Peso_2]+[Peso_3]);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2])+([Nota_3]*[Peso_3])+([Nota_4]*[Peso_4]))/([Peso_1]+[Peso_2]+[Peso_3]+[Peso_4]))));2)

O cálculo é feito de forma correta, mas o campo MEDIA está sempre zerado.

Desde já agradeço

Essa formula vc colocou na propriedade do campo Fonte de Controle?

Se for, deverá mudar, pois na fonte de controle deve ficar o Nome do Campo da tabela para armazenar esse valor...
E o Calculo deve passar pelo VB em algum evento... (Me.NomeCampoMedia = coloque aqui a formula adaptada para VB)

Bom dia Fabio, e obrigada pelo retorno.
Foi exatamente o que você disse. Fiz outros testes que deram certo.
Mas eu tenho obrigatoriamente que passar pelo VB?
Não tenho como atribuir o valor de outra forma.
Fiquei na dúvida pois terei que testar todas as notas e pesos para saber se houve alteração e assim chamar a rotina em VB?
Hoje quando insiro um aluno chamo a rotina abaixo, e depois para inclusão/alteração de notas e pesos, fica por conta do access:

Private Sub Btn_Insere_Aluno_Nota_Click()
If IsNull(Me!Caixa_Sigla_turma_Nota) Or IsEmpty(Me!Caixa_Sigla_turma_Nota) Then
MsgBox "O campo Sigla da Turma é obrigatório"
Me!Caixa_Sigla_turma_Nota.SetFocus
ElseIf IsNull(Me!Caixa_Disciplina) Or IsEmpty(Me!Caixa_Disciplina) Then
MsgBox "O campo Disciplina é obrigatório"
Me!Caixa_Disciplina.SetFocus

ElseIf IsNull(Me!Caixa_Aluno_Matriculado) Or IsEmpty(Me!Caixa_Aluno_Matriculado) Then
MsgBox "O campo Aluno matriculado é obrigatório"
Me!Caixa_Aluno_Matriculado.SetFocus
Else
Dim Tabela_Notas As Database
Dim Registro_Notas As Recordset
Set Tabela_Notas = CurrentDb
Set Registro_Notas = Tabela_Notas.OpenRecordset("Tbl_Notas", dbOpenTable)

If DCount("[NIP_Aluno_matriculado]", "Cns_Turmas_Disciplinas_Notas", "[NIP_Aluno_matriculado]='" & [Caixa_Aluno_Matriculado].Column(1) & "'") > 0 Then
MsgBox "O Aluno " & Me![Caixa_Aluno_Matriculado] & " já está inserido.", vbCritical
Me!Caixa_Aluno_Matriculado.SetFocus
Me.Undo
Else
Registro_Notas.AddNew
Registro_Notas!Sigla_Turma = Caixa_Sigla_turma_Nota
Registro_Notas!Disciplina = Caixa_Disciplina
Registro_Notas!NIP_Aluno_matriculado = Me![Caixa_Aluno_Matriculado].Column(1)
Registro_Notas!Peso_1 = Me!Peso_1
Registro_Notas!Peso_2 = Me!Peso_2
Registro_Notas!Peso_3 = Me!Peso_3
Registro_Notas!Peso_4 = Me!Peso_4

Registro_Notas.Update
End If

Registro_Notas.Close
Set Registro_Notas = Nothing
Set Tabela_Notas = Nothing
Me.Requery

End If
End Sub



Mais uma vez obrigada pela ajuda!

Helena

O que vincula/acopla um controle do formulário com o campo da tabela é exatamente isso.

Para conferir, abra a folha de propriedade de qualquer caixa de texto, na aba dados, veja

a primeira propriedade Fonte de controle:

Se deixar em branco, na caixa de texto irá aparecer "Não acoplado" , caso contrario irá aparecer o nome do campo.

Se colocar uma formulá na fonte de controle, irá aparecer o resultado da formula, mas a caixa de texto estará desacoplada

do campo da tabela.

Então precisamos definir via VBA que o resultado vá para a caixa de texto e assim não perder o vinculo com o campo.

Mas veja, isso é somente para calculos ou qualquer coisa que queira que aparece na caixa de texto e que deve ser salvo no

campo correspondente da tabela.

O código que exibiu está correto, mas n tem nada haver com o que estamos explicando

No caso da tua formula, como o Fabio disse: deveria se fazer assim, por exemplo

Se o cálculo tem que ser feito e todos os registros, então colocaremos o código no

evento NoAtual do formulário:

Me.NomeCampoMedia =Arred(SeImed(([Peso_2]=0);([Nota_1]*[Peso_1])/[Peso_1];SeImed(([Peso_3]=0);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2]))/([Peso_1]+[Peso_2]);SeImed(([Peso_4]=0);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2])+([Nota_3]*[Peso_3]))/([Peso_1]+[Peso_2]+[Peso_3]);(([Nota_1]*[Peso_1])+([Nota_2]*[Peso_2])+([Nota_3]*[Peso_3])+([Nota_4]*[Peso_4]))/([Peso_1]+[Peso_2]+[Peso_3]+[Peso_4]))));2)

Com isso a cada registro exibido, o campo/caixa de texto será atualizado pela fórmula.

Mas, isso é apenas um exemplo que dei, veja se isso serve para o que pretende.

[ ]'s

Quero agradecer imensamente a ajuda dos amigos FabioPaes e Noobezinho.
o problema foi resolvido com a ajuda de vocês.
Converti a função SeImed para cadeia de IF´s e coloquei no evento Após Atualizar:

If Me!Peso_2 = 0 Then
Me!Caixa_Media = ((Me!Nota_1 * Me!Peso_1) / Me!Peso_1)
Else
If Me!Peso_3 = 0 Then
Me!Media = ((Me!Nota_1 * Me!Peso_1) + (Me!Nota_2 * Me!Peso_2)) / (Me!Peso_1 + Me!Peso_2)
Else
If Me!Peso_4 = 0 Then
Me!Media = ((Me!Nota_1 * Me!Peso_1) + (Me!Nota_2 * Me!Peso_2) + (Me!Nota_3 * Me!Peso_3)) / (Me!Peso_1 + Me!Peso_2 + Me!Peso_3)
Else
Me!Media = ((([Nota_1] * [Peso_1]) + ([Nota_2] * [Peso_2]) + ([Nota_3] * [Peso_3]) + ([Nota_4] * [Peso_4])) / ([Peso_1] + [Peso_2] + [Peso_3] + [Peso_4]))
End If
End If
End If


Mais uma vez obrigada!!!!

Resolvido

Grato pelo retorno amigo, até a próxima se Deus Quiser!