Access - PROBLEMA CON IF's

   
Vista:

PROBLEMA CON IF's

Publicado por Ariadna (6 intervenciones) el 08/02/2013 09:47:55
Holaaaa!!!
A ver, tengo un problema.
Tengo un cuadro de texto donde se introducen notas y que segun qual sea la nota tiene que salir en otro cuadro de texto opciones de: Suspendido, Aprobado, Notable y Excelente.
Todo funciona perfecto, solo que cuando introduzco un 10, me coje suspendido (XDDDDDDD) he separado un IF exclusivo para la nota 10 pero no funciona. El tipo de datos que tengo en el campo es Numero Simple con 1 lugar decimal...

Pego el código que estoy utilizando:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Qualificacio_final_AfterUpdate()
 
        If Qualificacio_final.Value = "" Then
        Texto249.Value = ""
        Else
            If IsNull(Qualificacio_final) Then
            Texto249.Value = ""
            Else
                If Qualificacio_final.Value >= "0" And Qualificacio_final.Value <= "4.9" Then
                    Texto249.Value = "Suspens"
                Else
                    If Qualificacio_final.Value >= "5" And Qualificacio_final.Value <= "6.9" Then
                        Texto249.Value = "Aprovat"
                    Else
                        If Qualificacio_final.Value >= "7" And Qualificacio_final.Value <= "8.9" Then
                            Texto249.Value = "Notable"
                        Else
                            If Qualificacio_final.Value >= "9" And Qualificacio_final.Value <= "9.9" Then
                                Texto249.Value = "Excel·lent"
                            Else
                                If Qualificacio_final.Value = "10" Then
                                Texto249.Value = "Excel·lent"
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
End Sub


Gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

PROBLEMA CON IF

Publicado por 2pl (461 intervenciones) el 08/02/2013 17:34:36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Qualificacio_final.Value = "" Then
 Texto249.Value = ""
 ElseIf IsNull(Qualificacio_final) Then
 Texto249.Value = ""
 ElseIf Qualificacio_final.Value >= 0 And Qualificacio_final.Value <= 4.9 Then
 Texto249.Value = "Suspens"
 ElseIf Qualificacio_final.Value >= 5 And Qualificacio_final.Value <= 6.9 Then
 Texto249.Value = "Aprovat"
 ElseIf Qualificacio_final.Value >= 7 And Qualificacio_final.Value <= 8.9 Then
 Texto249.Value = "Notable"
 ElseIf Qualificacio_final.Value >= 9 And Qualificacio_final.Value <= 9.9 Then
 Texto249.Value = "Excel·lent"
 ElseIf Qualificacio_final.Value = 10 Then
 Texto249.Value = "Excel·lent"
 End If


Prueba asi
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROBLEMA CON IF

Publicado por William Alexander Brito Viñas (23 intervenciones) el 08/02/2013 17:51:57
Personalmente encuentro tal código incomodo de escribir y modificar, seria mas claro tener esto dentro de una tabla como esta:

CREATE TABLE tblScoreCaptions (
LowerLimit SIMPLE NOT NULL,
UpperLimit SIMPLE NOT NULL,
ScoreCaption TEXT(20)
) PRIMARY KEY (LowerLimit, UpperLimit);

Despues de eso se puede crear una consulta que reciba un la calificacion como un parametro y devuelva la califificacion como texto, es mas simple de implementar y dar mantenimiento.

La consulta podria ser como esto:

CREATE QUERY qryGetScoreCaption AS
(
SELECT ScoreCaption
FROM tblScoreCaptions
WHERE [Given_Score_Value] BETWEEN [LowerLimit] AND [UpperLimit]
)
PARAMETERS [Given_Score_Value] SIMPLE;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROBLEMA CON IF

Publicado por 2PL (461 intervenciones) el 08/02/2013 18:57:10
Estupendo por tu parte, pero hay que ponerse a la altura de conocimientos del que solicita la ayuda y en este caso no creo que sean muchos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PROBLEMA CON IF

Publicado por Ariadna (6 intervenciones) el 12/02/2013 10:43:08
Gracias 2PL,
problema solucionado.
No, mis conocimientos de access son de hace escasos meses...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar