C
Claudette Hennessy
What's happing here?
I have a form that is sourced from a table. When it is opened, it does not
display the records in form or datasheet view. When I look at the property
sheet in design view, the source table is highlighted, as though it were
selected. If I reassign the source table, and return to form view, all the
records are displayed. If I return to the form after closing it, once
again, no records are displayed.
I have a field on the form, which when clicked, opens another form with
history information and closes it after an interval by the following code:
Private Sub txtShopname_Click()
If CurrentProject.AllForms("frmDealerHistory").IsLoaded = True Then
Forms!frmDealerHistory.Requery
Else
DoCmd.OpenForm "frmDealerHistory"
End If
'Reset the Timer to display another 5 seconds
Forms!frmDealerHistory.TimerInterval = 5000
End Sub
Private Sub cmdRefresh_Click() ! Code to Refresh form for calculations
after entering data
On Error GoTo Err_cmdRefresh_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_cmdRefresh_Click:
Exit Sub
Err_cmdRefresh_Click:
MsgBox Err.Description
Resume Exit_cmdRefresh_Click
End Sub
Thank you for help,
Claudette
I have a form that is sourced from a table. When it is opened, it does not
display the records in form or datasheet view. When I look at the property
sheet in design view, the source table is highlighted, as though it were
selected. If I reassign the source table, and return to form view, all the
records are displayed. If I return to the form after closing it, once
again, no records are displayed.
I have a field on the form, which when clicked, opens another form with
history information and closes it after an interval by the following code:
Private Sub txtShopname_Click()
If CurrentProject.AllForms("frmDealerHistory").IsLoaded = True Then
Forms!frmDealerHistory.Requery
Else
DoCmd.OpenForm "frmDealerHistory"
End If
'Reset the Timer to display another 5 seconds
Forms!frmDealerHistory.TimerInterval = 5000
End Sub
Private Sub cmdRefresh_Click() ! Code to Refresh form for calculations
after entering data
On Error GoTo Err_cmdRefresh_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_cmdRefresh_Click:
Exit Sub
Err_cmdRefresh_Click:
MsgBox Err.Description
Resume Exit_cmdRefresh_Click
End Sub
Thank you for help,
Claudette