Access - un mismo evento para diferentes textbox

Tengo un formulario de control de asistencia mensual.
viene de una tabla con los campos 1M,1T,2M,2T,3M,3T.... hasta el 31m y 31t.
para rellenar el form con el mouse he puesto el siguiente codigo al evento al hacer click en el textbox:

Private Sub Ctl1T_Click()
If [1M] = 0 Then
[1M] = 1
Else
If [1M] = 1 Then
[1M] = 2
Else
If [1M] = 2 Then
[1M] = 0
End If
End If
End If

End Sub


hay alguna manera de hacer lo mismo sin escribir el mismo codigo en cada textbox?

muchas gracias

Jukis,

Puedes intentar una solución como está.

Así la invocas.





Y aquí está la rutina





Prueba y me dices si te funciona!

Saludos!

deneg_nhj

Tu codigo funciona perfecto!! gracias!
En una ocasión vi un codigo que ponia algo asi para declarar el evento, pero no encuentro la forma correcta!

Sub sbValidaVariosTxt(xTxt As TextBox)Ctl1M.Click, Ctl1T.click, Ctl1N.click, Ctl2M.click

If xTxt.Value = 0 Then
xTxt.Value = 1
Else
If xTxt.Value = 1 Then
xTxt.Value = 2
Else
If xTxt.Value = 2 Then
xTxt.Value = 0
End If
End If
End If

End Sub

Muchas gracias de todas formas!