Obligar a poner mayusculas en un form con Access
Hola a tod@s, mi probelma es que quiero obligar a que la gente me rellene un form con mayusculas, pero no me funciona lo que tengo, trabajo con Access.
Y hago lo siguiente:
En un Modulo:
Public Sub ponMayus (formu As Form)
Dim ctrl As Control
On error GoTo ponMayus_Err
For Each ctrl In formu.Controls
If ctrl.ControlType=acTextBox Then
ctrl=Ucase(ctrl)
End If
Next
Exit Sub
ponMayus_Err:
If Err=2448 Then Resume Next
On Error GoTo 0
Resume
End Sub
'En el procedimiento antes de Actualizar de todos los Forms:
Private Sub Form_BeforeUpdate (Cancel As Integer)
ponMayus Me
End Sub
Pero no me funciona.
Ayuda por favor.
Y hago lo siguiente:
En un Modulo:
Public Sub ponMayus (formu As Form)
Dim ctrl As Control
On error GoTo ponMayus_Err
For Each ctrl In formu.Controls
If ctrl.ControlType=acTextBox Then
ctrl=Ucase(ctrl)
End If
Next
Exit Sub
ponMayus_Err:
If Err=2448 Then Resume Next
On Error GoTo 0
Resume
End Sub
'En el procedimiento antes de Actualizar de todos los Forms:
Private Sub Form_BeforeUpdate (Cancel As Integer)
ponMayus Me
End Sub
Pero no me funciona.
Ayuda por favor.