Crear un campo que sea numérico pero que sume 1

Estoy tratando de crear un campo numérico que al ingresar un registro sume 1, pero no quiero que sea autonumérico, ya que en mi tabla tengo dos llaves (año y cod_solicitud). Lo que quiero hacer es que al cambiar el año, el cod de solicitud comience en 1 y empiece a contar... Cada registro.
Respuesta
1
Las rutinas que te envío son para agregarlas en los eventos del formulario: Al activar registro y Antes de actualizar, elegí Procedimiento y las copias.
Tendrás un cuadro de texto (en mi ejemplo Texto2) para colocar el cod solicitud, que será el máx de la tabla considerando el año del sistema. (Si el 2 de enero grabas un registro al no encontrar ninguno de ese año tomará como valor 1. luego siempre buscará el máx del año en curso)
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.cod_solicitud = Me.Texto2
End Sub
Private Sub Form_Current()
Dim fact as Integer
If IsNull(DMax("[cod_solicitud]", "Nombre de tabla", "Year([fecha]) = year(Now)")) Then
Me.Texto2.Value = 1
Else
fact = DMax("[cod_solicitud]", "Nombre de tabla", "Year([fecha]) = year(Now)")
Me.Texto2.Value = fact + 1
End If
End Sub
Pruébala (deberás cambiar el año del sistema para ver qué pasará al inicio del año) y si todo está bien, no olvides finalizar.
Hola Elsa
Estoy tratando de hacer lo que indicas, pero no lo he podido hacer, siempre me generan mensajes de error en el evento: hasta ahora tengo: una tabla con los siguientes campos: fecha (fecha), cod_solicitud (texto) y en el formulario he creado el campo texto2, tanto la tabla con el formulario se llaman prueba1 y he colocado lo siguiente:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.cod_solicitud = Me.Texto2
End Sub
Private Sub Form_Current(prueba1)
Dim fact As Integer
If IsNull(DMax("[cod_solicitud]", "prueba1", "Year([fecha]) = year(now)"))
Then
Me.Texto2.Value = 1
Else
fact = DMax("[cod_solicitud]", "prueba1", "Year([fecha]) = year(now)")
Me.Texto2.Value = fact + 1
End If
End Sub
Agradezco tu colaboración.
En primer lugar algunas aclaraciones a ver si estamos hablando de lo mismo.
¿Tu separador de argumentos es coma o punto y coma? Yo utilicé comas.
El campo Fecha es un campo con formato fecha/hora del tipo 10/05/04
Está programado para un formulario de ingreso de datos, o sea con la propiedad Entrada de Datos en SI.
Si con esto en tu base te presenta mensajes de error, solicítame a mi correo el archivo de ejemplo, ya que algo no lo tenés igual.
Si en cambio la idea de tu form no es como yo lo estoy viendo me aclarás lo que falta.
(Aclaración al margen: nunca utilices los mismos nombres para tablas que para forms: ¿TPrueba1 y fPrueba1 son suficientemente aclaratorios? Lo siento, ¿no puedo con mi genio?:)
Saludos
Elsa
Mi mail: meyerelsaarARROBAyahooPUNTOcomPUNTOar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Predeterminar en un campo "fecha" de una tabla, un valor calculado

Quisiera saber si es posible (Con una Expresión) en una base de datos en Access, Predeterminar en un campo fecha, un valor que sea mayor al ultimo registro sin perder la secuencia, por ejemplo en un campo llamado periodo el ultimo registro contiene...
1 respuesta

Propiedad value en before update

Quiero que cada vez que modifique el registro de una tabla se grabe la fecha actual en esa tabla (para ello ello hice el campo fecharegistro). Estoy en un formulario con tres páginas (fichas) y creo que es por esto por lo que el siguiente texto me da...
1 respuesta

Mostrar mes anterior a la fecha actual en una consulta

Tengo una consulta con un campo de fecha (12/12/2010) como podría a través de un criterio me mostrará el mes anterior siempre de la fecha actual.
1 respuesta

Guardar fecha calculada en un campo

Estoy haciendo una base de datos. Estoy haciendo un formulario. Y lo que quiero es que dada la fecha de nacimiento de la persona, me calcule la edad. Y que este resultado no solo lo muestre en el formulario, sino que lo guarde en la tabla...
2 respuestas

Cuadro de texto como autonumérico con año

Tengo un campo texto (NumExpte) y quiero que incremente su valor numérico de uno en uno, con el formato; 001/2013, 002/2013 y así sucesivamente; y que al cambiar el año el registro se ponga a cero y salga el año en vigor, de esta forma; 001/2014,...
1 respuesta

Comparar valores 2 cuadros de Texto en Formulario sin origen de tabla.

Me gustaría poder solucionar lo siguiente: Tengo un formulario que he creado sin relación con ninguna tabla. En el tengo 2 cuadros de texto. 1 y 2. Cuadro de texto 1 recibe un numero cuando se actualiza un Cuadro combinado mediante la instrucción:...
1 respuesta

Ayuda! Buscar registros de 2 tablas

Tengo que hacer un programa que cuando introduzca datos en un formulario de los campos que yo quiera y los otros queden en blanco, me busque todos los registros que cumplan esos campos, de 2 tablas y esos registros aparezcan en formularios
1 respuesta

Comparar valores de registros en Access.

Estoy trabajando en una bd de access 2003, me gustaría saber por código vba como puedo comparar el valor del registro anterior con el ultimo registro tengo 2 campos campo1 y campo2 campo1 siempre es mayor que el campo2 pero al salir del campo2 y...
1 respuesta

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

Numero correlativo 01/06

Otra vez necesito de tu ayuda, ojala me puedas ayudar. Te cuento, necesito generar un numero correlativo en un formulario de Presupuestos con el siguiente formato 01/06, 02/06, 03/06.... Pero no se como hacerlo para que me funcione, trate de hacerlo...
1 respuesta