Access - Contar caracteres

   
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Contar caracteres

Publicado por deneg_nhj (349 intervenciones) el 20/03/2013 18:14:50
Prueba con esto, en el evento BeforeUpdate

1
2
3
4
5
6
7
8
dim sValor as string
 
sValor = NUMPRODUCTO & "x"
f Len(sValor) <> 9 Then
	 MsgBox("El campo debe tener 8 dígitos", vbExclamation, "ERROR")
	NUMPRODUCTO.setfocus
	cancel = true
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Norberto

Contar caracteres

Publicado por Norberto (432 intervenciones) el 21/03/2013 10:15:51
Hola.

También puedes poner una máscara de entrada. Si el total de dígitos es fijo, siempre 8, le pones Mascara de entrada 00000000. Si es como mínimo 8 y como máximo 12, p.e., le pones 000000009999 o 999900000000.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar