Monica
28 de Septiembre del 2004

Hola a [email protected], 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.