Bom dia, baldinirs, e bem-vindo ao fórum
Nomeie os campos de forma normalizada (no seu caso, sem acentuação e sem espaços)
Utilize
Function MaiorNota(Nota1 As Integer, Nota2 As Integer, Nota3 As Integer, Nota4 As Integer, Nota5 As Integer, Nota6 As Integer, Nota7 As Integer, Nota8 As Integer, Nota9 As Integer, Nota10 As Integer) As Integer
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2013-01-27
'para baldinirs
'do fórum MaximoAccess
MaiorNota = 0
If Nota1 > MaiorNota Then MaiorNota = Nota1
If Nota2 > MaiorNota Then MaiorNota = Nota2
If Nota3 > MaiorNota Then MaiorNota = Nota3
If Nota4 > MaiorNota Then MaiorNota = Nota4
If Nota5 > MaiorNota Then MaiorNota = Nota5
If Nota6 > MaiorNota Then MaiorNota = Nota6
If Nota7 > MaiorNota Then MaiorNota = Nota7
If Nota8 > MaiorNota Then MaiorNota = Nota8
If Nota9 > MaiorNota Then MaiorNota = Nota9
If Nota10 > MaiorNota Then MaiorNota = Nota10
End Function
Function SegundaMaiorNota(Nota1 As Integer, Nota2 As Integer, Nota3 As Integer, Nota4 As Integer, Nota5 As Integer, Nota6 As Integer, Nota7 As Integer, Nota8 As Integer, Nota9 As Integer, Nota10 As Integer) As Integer
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2013-01-27
'para baldinirs
'do fórum MaximoAccess
Dim intMaiorNota As Integer
SegundaMaiorNota = 0
If Nota1 > intMaiorNota Then intMaiorNota = Nota1
If Nota2 > intMaiorNota Then intMaiorNota = Nota2
If Nota3 > intMaiorNota Then intMaiorNota = Nota3
If Nota4 > intMaiorNota Then intMaiorNota = Nota4
If Nota5 > intMaiorNota Then intMaiorNota = Nota5
If Nota6 > intMaiorNota Then intMaiorNota = Nota6
If Nota7 > intMaiorNota Then intMaiorNota = Nota7
If Nota8 > intMaiorNota Then intMaiorNota = Nota8
If Nota9 > intMaiorNota Then intMaiorNota = Nota9
If Nota10 > intMaiorNota Then intMaiorNota = Nota10
If Nota1 > SegundaMaiorNota And Nota1 < intMaiorNota Then SegundaMaiorNota = Nota1
If Nota2 > SegundaMaiorNota And Nota2 < intMaiorNota Then SegundaMaiorNota = Nota2
If Nota3 > SegundaMaiorNota And Nota3 < intMaiorNota Then SegundaMaiorNota = Nota3
If Nota4 > SegundaMaiorNota And Nota4 < intMaiorNota Then SegundaMaiorNota = Nota4
If Nota5 > SegundaMaiorNota And Nota5 < intMaiorNota Then SegundaMaiorNota = Nota5
If Nota6 > SegundaMaiorNota And Nota6 < intMaiorNota Then SegundaMaiorNota = Nota6
If Nota7 > SegundaMaiorNota And Nota7 < intMaiorNota Then SegundaMaiorNota = Nota7
If Nota8 > SegundaMaiorNota And Nota8 < intMaiorNota Then SegundaMaiorNota = Nota8
If Nota9 > SegundaMaiorNota And Nota9 < intMaiorNota Then SegundaMaiorNota = Nota9
If Nota10 > SegundaMaiorNota And Nota10 < intMaiorNota Then SegundaMaiorNota = Nota10
End Function
utilize
UPDATE Tabela SET MaiorNota1=MelhorNota(Nota1,Nota2,Nota3,Nota4,Nota5,Nota6,Nota7,Nota8,Nota9,Nota10),MaiorNota2=SegundaMelhorNota(Nota1,Nota2,Nota3,Nota4,Nota5,Nota6,Nota7,Nota8,Nota9,Nota10),Media=(MelhorNota(Nota1,Nota2,Nota3,Nota4,Nota5,Nota6,Nota7,Nota8,Nota9,Nota10)/SegundaMelhorNota(Nota1,Nota2,Nota3,Nota4,Nota5,Nota6,Nota7,Nota8,Nota9,Nota10))/2