Podrías probar en el Procedimiento de evento "Al activar registro" del Formulario, algo como esto:
Private Sub Form_Current()
If Me.RecordsetClone.RecordCount = 0 Then
Me.NroFactura = 2001
ElseIf Me.RecordsetClone.RecordCount > 0 And IsNull(Me.NroFactura) Then
Me.NroFactura = DMax("NroFactura", "Tabla1") + 1
End If
End Sub
El NroFactura que va entre comillas después de DMax es el nombre del campo en la Tabla y el Me.NroFactura es el nombre del campo en el formulario. Cuidado porque los puedes tener con nombres diferentes.
Tienes que sustituir NroFactura y Tabla1 por los nombres reales en tu base de datos.
Saludos
Enrique
