Início
danilo27 27/5/2014, 00:12Boa noite galera.
Então, estou com problemas ao tentar calcular a média em uma function.
Não consigo identificar o problema de forma alguma,visto que funciona com alguns colegas de turma.
O nome do erro é "Erro em tempo de execução '3464' Tipo de dados incompatível na expressão do critério"
Se alguém souber onde errei,por favor. Meio que é pra amanha este trabalho
Obrigado.
Então, estou com problemas ao tentar calcular a média em uma function.
Não consigo identificar o problema de forma alguma,visto que funciona com alguns colegas de turma.
- Codigo:
- Function CalculoNF() As String
Dim NFinal, MEP As Double
txtMatricula.Enabled = True
txtMatricula.SetFocus
MEP = DLookup("Nz(D1)+Nz(D2)+Nz(D3)+Nz(D4)+Nz(D5)+Nz(D6)+Nz(D7)+Nz(D8)+Nz(D9)+Nz(D10)+Nz(D11)+Nz(Projeto)", "Alunos", "Matrícula = '" + txtMatricula.Text + "'")
NFinal = DLookup("Nz(P1*0.2)+Nz(P2*0.3)", "Alunos", "Matrícula = '" + txtMatricula.Text + "'")
MEP = MEP / 15
NFinal = NFinal + (MEP * 0.5)
NFinal = Round(NFinal, 2)
If NFinal < 6 Then
CalculoNF = "C"
Else
If NFinal >= 9 Then
CalculoNF = "E"
Else
If NFinal >= 7.5 And NFinal < 9 Then
CalculoNF = "A"
Else
CalculoNF = "B"
End If
End If
End If
NF = NFinal
Conc = CalculoNF
DoCmd.RunCommand acCmdRefresh
txtMatricula.Enabled = False
End Function
O nome do erro é "Erro em tempo de execução '3464' Tipo de dados incompatível na expressão do critério"
Se alguém souber onde errei,por favor. Meio que é pra amanha este trabalho
Obrigado.
