Visualizar una imagen en cada registro según el valor de un campo
Publicado por Eross (4 intervenciones) el 01/12/2017 01:51:27
Saludos. En este formulario, he incluido en el diseño una imagen jpg llamada "Redbutton" al lado de las cifras y que no se ve porque en sus propiedades tiene asignado "visible no". Intento que el Redbutton se vea al lado de las cifras negativas del campo o control "Desviacion". Como es un formulario continuo, lo he intentando hacer con código utilizando Recordset. Es la primera vez que utilizo Recordset y no lo he hecho bien porque no funciona.
El código es el siguiente y lo he puesto en el evento "al abrir" del formulario, lo cual tampoco sé si es el mejor evento donde ponerlo:
Gracias por vuestra ayuda.
El código es el siguiente y lo he puesto en el evento "al abrir" del formulario, lo cual tampoco sé si es el mejor evento donde ponerlo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset
Set rst = Me.Recordset
Do Until rst.EOF
If rst!Desviacion < 1 Then
Me.Redbutton.Visible = True
Me.Texto24 = "menos que uno" 'solo para comprobación
Else
Me.Redbutton.Visible = False
End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
Gracias por vuestra ayuda.
Valora esta pregunta
0