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:
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
0