Numerar automaticamente

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