Numerar automaticamente

01/11/2010 - 17:24 por weapon | Informe spam
Hola a todos, paso a explicar mi problema, tengo un Formulario
"EnvioCircular" basado en la Tabla "TablaCuentas" y con el Campo
"CircularNº" en formato texto.

Tengo en el evento "antes de insertar" del Formulario "EnvioCircular"
el siguiente código:

Private Sub Form_BeforeInsert(Cancel As Integer)
Forms![EnvioCorreo].SetFocus
Call SigFact
End Sub

Que ejecuta la siguiente función:

Function SigFact() As String
[CircularNº] = Format([CurrentRecord], "0000") & "-" & Format(Date,
"yyyy")
End Function

La función Busca en la tabla en la que esta basado el Formulario
"EnvioCircular" y me devuelve el último dato del Campo "CircularNº" +
1.

Y esta es la pregunta como deberia ser el código para que la función
no devolviera el dato "CircularNº" desde la tabla en la que está
basada el formulario "EnvioCircular", sino que devolviera el dato
desde una consulta de Unión que se llama "cnsCircularesEnviadas".

Muchas gracias
 

Leer las respuestas

#1 Patxi Sanz
02/11/2010 - 15:54 | Informe spam
Esa función no busca en ninguna tabla: usa una propiedad del
formulario.

Y no le suma 1 al valor: se basa en la posición del registro en el
formulario, y cuando es un registro nuevo, sí aparenta que le suma el
1.

Además, le agrega el año al valor devuelto por la propiedad
CurrentRecord.

Si quieres buscar un dato de una tabla o consulta que no usas en el
formulario, revisa en la ayuda de Access la función DLookup (DBúsq).

También puedes buscar en este grupo por autonuméricos falsos.

Preguntas similares