Refrescar datos en formulario

nuvul
27 de Diciembre del 2004
Hola a tod@s y gracias de antemano...

Bueno, tengo un formulario, y otro formulario que se accede desde este, relleno datos y al salir actualiza la tabla, pero no el formulario, o sea que tengo que cerrar y abrir el formulario para ver los datos... ¿alguien puede ayudarme?

el codigo es el siguiente..

Private Sub Total_Exit(Cancel As Integer)
On Error GoTo salgocalculo
Dim vVAR As Boolean
Me.Refresh
If MsgBox("DESEAS GRABAR LA PROVISION", vbOKCancel, "GESTION") = vbOK Then
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("SuplidosHonorarios", dbOpenTable)
With rs
rs.AddNew
rs!IdExpediente = Me.IdExpediente
rs!IdTipoMov = 3
rs!FECHA = Date
rs!Concepto = "S. Entrega a cta."
rs!Importe = Me.Total
rs.Update
End With
rs.Close
End If

salgocalculo:

End Sub

nuvul
27 de Diciembre del 2004
Ya esta gracias... me faltaba poner el Requery...

[Forms]![SuplidosHonorarios].Requery