Access - Valor actualizado por prg. no se ve hasta guardar

Hola, estoy actualizando un textbox por codigo, pero el valor no se ve hasta que se guarda el registro... pero si voy paso a paso si...
este es el codigo:

Private Function SugerirNroNota() As Long
On Error GoTo Err_SugerirNroNota
SugerirNroNota = 0
If Not IsNull(Me.Anio) And Not IsNull(Me.ES) Then
Dim qdyNroNota As QueryDef
Dim recUltNota As DAO.Recordset

If Me.ES = "E" Then
Set qdyNroNota = CurrentDb.QueryDefs("Nro_Ultima_Nota_Entrada_Periodo")
Else
Set qdyNroNota = CurrentDb.QueryDefs("Nro_Ultima_Nota_Salida_Periodo")
End If
qdyNroNota.Parameters!periodo = Me.Anio
Set recUltNota = qdyNroNota.OpenRecordset(dbOpenSnapshot)
SugerirNroNota = Nz(recUltNota!Ult_Nota, 0) + 1
End If

Exit_SugerirNroNota:
Exit Function

Err_SugerirNroNota:
MsgBox Err.Description
Resume Exit_SugerirNroNota

End Function

Muchas Gracias.

Intenta con un ME.REFRESH despues del ENDIF del ultimo IF

Ojala y te sirva.