Access - Contar caracteres

 
Vista:
sin imagen de perfil

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
sin imagen de perfil

Contar caracteres

Publicado por deneg_nhj (348 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
Val: 1.094
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Contar caracteres

Publicado por Norberto (753 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