Access - Campo con nombre progresivo

Campo con nombre progresivo

Publicado por RA (2 intervenciones) el 24/11/2018 17:05:31

Hola buenos días, gracias de antemano por la atención, tengo 31 campos en un form de access como si fuera una matriz, se llaman d1, d2,... d31. como puedo llamar en vba el nombre del campo con texto. He intentado me.campo. forecolor = rgb(255,255,0) donde mi campo="d" y diadelmes, pero me da error.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Campo con nombre progresivo

Publicado por Anonimo (3397 intervenciones) el 25/11/2018 00:11:34

Siendo 'NN' un numero cualquiera que puede ir del 1 al 31 (como los días del mes):

Me.Controls.Item("d" & NN).Enabled = True

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Campo con nombre progresivo

Publicado por RAUL JARA (2 intervenciones) el 25/11/2018 04:38:19

Muchas gracias por su respuesta, estuve intentando y usé algo muy parecido y si me dio resultado, lo comparto también, uso Access 2003

Es un tipo calendario de acceso rápido con 12 botones (m1,m2,m3...) para mes (dentro de un cuadro de opciones llamado mimes) y 31 botones (d1,d2,d3..)para días(dentro de un cuadro de opciones llamado midia) pude resaltar y cambiar el color del botón seleccionado de la siguiente manera para escoger una fecha

Dim i As Integer

For i = 1 To 12

    Me.Controls("m" & i).ForeColor = RGB(0, 0, 0)

    Me.Controls("m" & i).FontBold = False

Next i

For i = 1 To 31

    Me.Controls("d" & i).ForeColor = RGB(0, 0, 0)

    Me.Controls("d" & i).FontBold = False

Next i

    Me.Controls("m" & MiMes).ForeColor = RGB(255, 0, 0)

    Me.Controls("m" & MiMes).FontBold = True

    Me.Controls("d" & MiDia).ForeColor = RGB(255, 0, 0)

    Me.Controls("d" & MiDia).FontBold = True

Valora esta respuesta

Comentar

Northwind 2007 access

Vista presentación y vista informe