Consulta de instrucción
Publicado por Carmen (6 intervenciones) el 13/10/2008 21:28:15
HOLA BUENA TARDE MI SITUACION ES LA SIGUIENTE:
TENGO UNA BASE DE DATOS EN ACCESS 2007, EN LA CUAL HICE UN INFOMRE Y LE METI CAMPOS DE UNA CONSULTA, AHORA BIEN YA OBTUVE LOS DATOS CON LOS VALORES QUE REQUERIA MIS DATOS SON
CAMPO1 Y CAMPO2
DE LOS CUALES QUIERO HACER UNA COMPARACION PARA VER CUAL ES EL MENOR Y ESE DATO QUE ME LO MUESTRE EN MI CAMPO3.
ALGUIEN ME PODRIA ORIENTAR POR FAVOR LA ASIGNACIÓN DE MIS VALORES LA TENGO DE LA SIGUIENTE MANERA EN MI CODIGO:
Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
End Sub
DE ANTEMANO MUCHAS GRACIAS Y QUE PASEN UNA BUENA TARDE.
TENGO UNA BASE DE DATOS EN ACCESS 2007, EN LA CUAL HICE UN INFOMRE Y LE METI CAMPOS DE UNA CONSULTA, AHORA BIEN YA OBTUVE LOS DATOS CON LOS VALORES QUE REQUERIA MIS DATOS SON
CAMPO1 Y CAMPO2
DE LOS CUALES QUIERO HACER UNA COMPARACION PARA VER CUAL ES EL MENOR Y ESE DATO QUE ME LO MUESTRE EN MI CAMPO3.
ALGUIEN ME PODRIA ORIENTAR POR FAVOR LA ASIGNACIÓN DE MIS VALORES LA TENGO DE LA SIGUIENTE MANERA EN MI CODIGO:
Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
End Sub
DE ANTEMANO MUCHAS GRACIAS Y QUE PASEN UNA BUENA TARDE.
Valora esta pregunta


0