Clave primaria alfanumérica, secuencias y con reinicio anual

Estoy haciendo una base de datos donde registro expedientes. La tabla se llama Expedientes y la clave es alfanumérica. Cuando lleno mi formulario la clave se asigna dependiendo de un cuadro combinado (con valores 2012,2013,2014,2015, CONT) llamado Nomb y el siguiente código:

Private Sub Nomb_AfterUpdate()

Dim a As String

If Not Me.NewRecord Then Exit Sub
a = Me.Nomb.Value
If Not Me.NewRecord Then Exit Sub
Me.Expediente = a & Format(Nz(DMax("Val(Mid(Expediente,5))", "Expedientes", "Val(Left(Expediente,4))='" & a & "'"), 0) + 1, "0000")

End Sub

Con esto, lo que he logrado es que en Nomb pongo el año y los últimos 4 dígitos van siguiendo la secuencia del año correspondiente, el problema es que necesito que además de los años pueda poner un prefijo con letras por ejemplo, tengo claves 20120001, 20120002, 20130001, CONT0001, CONT0002 y con el código que tengo al momento de escribir en Nomb el prefijo CONT siempre me escribe el CONT0001, no logro que avance esa secuencia. ¿Tendrán alguna idea para solucionarlo?

1 respuesta

Respuesta
3

Así funciona perfectamente:

Private Sub Nomb_AfterUpdate()
Dim a As String
If Not Me.NewRecord Then Exit Sub
a = Me.Nomb.Value
Me.Expediente = a & Format(Nz(DMax("Right(Expediente, 4)", "Expedientes", "Left(Expediente,4)='" & a & "'"), 0) + 1, "0000")
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Campo autonumerico y ciclico enn formulario access

Vuelvo a molestarte. Estoy buscando hacer que un campo numérico en un formulario aparezca como autonumérico. Hasta ese punto he llegado con éxito usando el siguiente código: Private Sub Form_Current() If Me.NewRecord Then Me.Control =...
1 respuesta

Como generar un numero consecutivo para Facturar.

Espero me puedan colaborar, necesito generar un reporte a partir de un Query, como puedo yo generar un numero consecutivo (Me sirve para el numero de factura) y cuando vuelva a generar este informe (Facturar) seguir con el consecutivo anterior + 1 ....
1 respuesta

Uso de Función Dmax

Quisiera que me ayudaran con esto: Tengo un formulario que guardar los datos del trabajador y por lo tanto la clave principal es un numero (obviamente único para el trabajador). En otro formulario se guardan los trabajos que hacen, es decir, por cada...
1 respuesta

Campo autonumérico pierde consecutividad

En Access un campo autonumérico pierde su consecutividad si al ingresar un registro uno oprime esc, ¿Cómo hago para que no se pierda, preferentemente con vba?
1 respuesta

Campo contador

Tengo otro cuestionamiento para ver si me puedes ayudar, en una tabla llamada SOAT tengo un campo numérico de formato entero largo, con el formato 0000, identificado con el nombre No, en este campo se debe reflejar el consecutivo numérico (contador)...
1 respuesta

Hacer visible e invisible un subformulario en Access

Tengo un formulario "formulario general" con un subformulario "expedientes" y un campo que es casilla de verificación "expediente". Quiero que cuando activo dicha casilla de verificación me aparezca el subformulario, y mientras que no lo tenga...
1 respuesta

Incrementar fecha

Tengo una tabla que meto los datos por un formulario el primer campo es la fecha ¿Cómo puedo hacer para que al abrir el formulario me salga el ultimo día que no tiene registro? Es decir que se comporte como el campo ide autonumérico de tabla que...
1 respuesta

Como generar consecutivo en Access 20007

Repito la pregunta pues se me olvidó decir que era para Access 2007. Necesito facturar cada mes, para esto necesito la forma de generar un consecutivo para imprimir en cada factura, al terminar el mes guardar este consecutivo y usarlo para el próximo...
1 respuesta

Crear un consecutivo alfanumérico en Access 2007

Quisiera que me ilustraras sobre lo siguiente: Estoy construyendo una base de datos para el área de compras en Access 2007 utilizando formularios para la captura de los datos. En la tabla PRODUCTOS, deseo que cuando vaya a registrar un nuevo...
1 respuesta

Actualizar campo sumando 1 al introducir nuevo registro

Tengo una tabla en la que indico diferentes IPCs previstos a lo largo de los años. Quisiera que el año se actualizase, sumando 1 al año anterior, cada vez que se introduzca un nuevo registro. He intentado hacerlo con la función update, pero no lo...
1 respuesta