TonyJJ
Sep 29th, 1999, 03:13 AM
Why does this code not refresh the msfg_Object, the first time you run the programme but does on all subsequent entries?
Public Sub enter_temporary(ByCode As Integer, TimeIn As Date, Allowed As String)
Dim db_FZ As Database, rcs_VisitTrans As Recordset
Set db_FZ = Workspaces(0).OpenDatabase(datarecord)
Set rcs_VisitTrans = db_FZ.OpenRecordset("SELECT * FROM que_InHouse")
rcs_VisitTrans.AddNew
rcs_VisitTrans("memb_code") = ByCode
rcs_VisitTrans("vd_date") = Date
rcs_VisitTrans("vd_time") = TimeIn
rcs_VisitTrans("vb_allowed") = Allowed
rcs_VisitTrans.Update
rcs_VisitTrans.Close
db_FZ.Close
dat_InHouse.Refresh
End Sub
The Access tables are successfully updated via the query each time but the msfg display doesn't refresh on the first run through.
Public Sub enter_temporary(ByCode As Integer, TimeIn As Date, Allowed As String)
Dim db_FZ As Database, rcs_VisitTrans As Recordset
Set db_FZ = Workspaces(0).OpenDatabase(datarecord)
Set rcs_VisitTrans = db_FZ.OpenRecordset("SELECT * FROM que_InHouse")
rcs_VisitTrans.AddNew
rcs_VisitTrans("memb_code") = ByCode
rcs_VisitTrans("vd_date") = Date
rcs_VisitTrans("vd_time") = TimeIn
rcs_VisitTrans("vb_allowed") = Allowed
rcs_VisitTrans.Update
rcs_VisitTrans.Close
db_FZ.Close
dat_InHouse.Refresh
End Sub
The Access tables are successfully updated via the query each time but the msfg display doesn't refresh on the first run through.