Access - Mas Linas en la barra

   
Vista:

Mas Linas en la barra

Publicado por Oscar Torres (7 intervenciones) el 08/05/2017 01:26:47
Buena noche, tengo el siguiente codigo para generar una barra en access y solo me deja visualizar 13 lineas, si escribo mas arroja el error.
El codigo es el siguiente:
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLabel And IsNumeric(Left(ctl.Name, 2)) Then
        ctl.OnClick = "=barra('" & ctl.Name & "','Colores', 'Caries ', 1, 'Amalgama Adaptada', 2, 'Amalgama Desadaptada', 3, 'Exodoncia', 4, 'Ausente', 5, 'Endodoncia a Realizar', 6, 'Sin Erupcionar', 7, 'Endodoncia Realizada', 8, 'Corona Adaptada', 9, 'Corona Desadaptada', 10, 'Resina Adaptada', 11, 'Resina Desadaptada', 12, 'Sano', 13)"
 
    End If
Next ctl
 
End Sub
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
Revisar política de publicidad