为何所有控件都找不到了呢??

chunyi

为何在删除完所有记录后,窗体上就成为一片空白了,所有控件都没有了?

Private Sub Command22_Click()

On Error GoTo Err_Command22_Click   

    Me.AllowEdits = True

    Me.AllowDeletions = True

   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    日期.SetFocus

Exit_Command22_Click:

    Exit Sub



Err_Command22_Click:

    Response = acDataErrContinue

    Me.AllowEdits = False

    Resume Exit_Command22_Click

   

End Sub



在表中没有记录时点撤销,在提示"undo"不可用,接着窗体的所有控件也都没有了.

Private Sub Command21_Click()

On Error GoTo Err_Command21_Click





    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

    Me.AllowEdits = False

    Me.AllowAdditions = False

日期.SetFocus

Exit_Command21_Click:

    Exit Sub



Err_Command21_Click:

    MsgBox Err.Description

    Me.AllowEdits = False

    Me.AllowAdditions = False

    Resume Exit_Command21_Click

hi-wzj

您的窗体记录是否不允许（或不能）新增记录？若是，就无法显示窗体内的控件。

[此贴子已经被作者于2004-12-26 14:35:31编辑过]