Private Sub showdbwindow_Click()
On Error GoTo Err_showdbwindow_Click
DoCmd.Close
DoCmd.SelectObject acTable, Ture
Exit_showdbwindow_Click:
Exit Sub
Err_showdbwindow_Click:
MsgBox Err.Descripion
Resume Exit_showdbwindow_Click
End Sub
Function OpenForms(strFormName) As Integer
On Error GoTo Err_OpenForms
DoCmd.OpenForm strFormName
Exit_OpenForms:
Exit Function
Err_OpenForms:
MsgBox Err.Description
Resume Exit_OpenForms
End Function