Refrescar datos en formulario
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
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