Crear un consecutivo alfanumérico en Access 2007
¿Hola Manuel como has estado?
Hace un par de meses atrás me ayudaste enormemente con una consulta, esta vez recurro a ti para que me ayudes en algo similar.
Tengo una tabla llamada COTIZACIONES a la cual le ingreso datos utilizando un formulario. Lo que necesito es que cuando yo le de click en el botón Crear Nueva Cotización, en el campo Id_Cotizacion se asigne automáticamente un ID compuesto por un prefijo "SCA" más 4 dígitos consecutivos partiendo desde el 0001, y a medida que se vayan ingresando nuevas cotizaciones, este numero se vaya incrementando.
He intentado hacerlo pero la verdad no me ha funcionado. Te agradezco mucho tu pronta respuesta.
Cordial saludo.
Hace un par de meses atrás me ayudaste enormemente con una consulta, esta vez recurro a ti para que me ayudes en algo similar.
Tengo una tabla llamada COTIZACIONES a la cual le ingreso datos utilizando un formulario. Lo que necesito es que cuando yo le de click en el botón Crear Nueva Cotización, en el campo Id_Cotizacion se asigne automáticamente un ID compuesto por un prefijo "SCA" más 4 dígitos consecutivos partiendo desde el 0001, y a medida que se vayan ingresando nuevas cotizaciones, este numero se vaya incrementando.
He intentado hacerlo pero la verdad no me ha funcionado. Te agradezco mucho tu pronta respuesta.
Cordial saludo.
1 respuesta
Respuesta de manuelpacha
1
En el botón de nuevo registro incorpora el código:
On Error GoTo error
Dim nRegistros As Integer
DoCmd.GoToRecord , , acNewRec
nRegistros = DCount("[id_Cotizacion]", "COTIZACIONES ", "[id_Cotizacion]<>''")
Me.Id_Cotizacion = "SCA" & Format(nRegistros + 1, "0000")
Refresh
Exit Sub
error:
Me.Id_Cotizacion = "SCA0001"
Refresh
Una aperta
On Error GoTo error
Dim nRegistros As Integer
DoCmd.GoToRecord , , acNewRec
nRegistros = DCount("[id_Cotizacion]", "COTIZACIONES ", "[id_Cotizacion]<>''")
Me.Id_Cotizacion = "SCA" & Format(nRegistros + 1, "0000")
Refresh
Exit Sub
error:
Me.Id_Cotizacion = "SCA0001"
Refresh
Una aperta
