Contar caracteres
Publicado por Nomada (171 intervenciones) el 20/03/2013 15:45:22
Buenas.
Quiero que después de actualizar o salir de un campo numérico tipo doble, este me cuente los dígitos y en caso de no tener, por ejemplo 8, me salga un mensaje, el cual después de aceptarlo vuelva al mismo campo (NUMPRODUCTO).
He probado con esto:
If Len(Me.NUMPRODUCTO) <> 8 Then
Call MsgBox("El campo debe tener 8 dígitos", vbExclamation, "ERROR")
DoCmd.GoToControl "NUMPRODUCTO"
End If
pero no me funciona, además la línea de GoToControl no me responde.
Quiero que después de actualizar o salir de un campo numérico tipo doble, este me cuente los dígitos y en caso de no tener, por ejemplo 8, me salga un mensaje, el cual después de aceptarlo vuelva al mismo campo (NUMPRODUCTO).
He probado con esto:
If Len(Me.NUMPRODUCTO) <> 8 Then
Call MsgBox("El campo debe tener 8 dígitos", vbExclamation, "ERROR")
DoCmd.GoToControl "NUMPRODUCTO"
End If
pero no me funciona, además la línea de GoToControl no me responde.
Valora esta pregunta
0