Access - ceros consecutivos en textos

   
Vista:

ceros consecutivos en textos

Publicado por lucho (148 intervenciones) el 23/11/2009 21:48:11
Saludos todos:
Tengo una base de datos en tabla
Nombre del campo se llama numero, tipo de datos es texto.
Ejemp: 0001 caja general
0002 Almacén
0003 Proveedores, y así sucesivamente (Forzósamente lleva los ceros al principio, porque son números de cta. de cada rubro corrrespondiente.
Tengo el sig. código: en formulario
Private Sub Form current()
If NewRecord Then
numero=Nz(Dmax("numero","tabla1"))+1
End If
End Sub

Dicho Código me dá como resultado, cada vez que doy click en formulario, para nuevo registro 1,2,3 progresivamente
Mi pregunta, es como lo soluciono para que dé 0001,0002, o sea que me anote también los ceros
De antemano gracias
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

RE:ceros consecutivos en textos

Publicado por Enrique (1299 intervenciones) el 23/11/2009 22:46:29
Hola Lucho:
Prueba con estos cambios:

numero = Nz(Format(DMax("numero", "tabla1") + 1, "0000"))

Saludos
Enrique
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

RE:ceros consecutivos en textos

Publicado por lucho (148 intervenciones) el 24/11/2009 00:25:42
Enrique:
Infinitamente estoy agradecido con tu apoyo, muchísima gracias
Funciona muy bien
Saludos
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