Valor actualizado por prg. no se ve hasta guardar
Publicado por Mariano (18 intervenciones) el 25/07/2003 19:29:45
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.
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.
Valora esta pregunta
0