Private Sub cmdClearForm_Click() 'Create a command button called 'cmdClearForm' on your form and create this event On Error Resume Next 'Create label on form called 'lblDisplayMessagePleaseWait' and set visible = false lblDisplayMessagePleaseWait.Visible = True me.repaint Application.Echo False DoCmd.Close acForm, Me.FormName, acSaveNo DoCmd.OpenForm "frmYour_Form_Name_Here", acNormal End Sub Private Sub Form_Load() On Error Resume Next DoCmd.Maximize Application.Echo True End Sub
|Auto-generated ID's in MS Access||9||42|
|Migrating Macro Menu’s From Access 2003 to Access 2013||2||26|
|Top 1 of each supplier||55||54|
|Trying to force an answer in a combobox||7||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!