我在Access中有一个连续的形式,Allow Additions
设置为Yes
。我试图启用或禁用删除按钮取决于用户是否在该记录中填写了数据。换句话说,我想为表单底部的空白记录隐藏按钮。
我在Form_Current事件中尝试了以下操作,但它同时启用或禁用所有按钮,只有当我单击记录时才运行。我需要它立即运行,并在我添加新行时更新。
If Me.NewRecord Then
btnDelete.Visible = False
Else
btnDelete.Visible = True
End If
编辑:与工作代码。
If Me.NewRecord Then
'show error message
MsgBox ("Unable to delete empty row.")
Else
'deletion code
End If
连续表单不允许这样——所有东西看起来都一样。
您可以向btnDelete_Click
事件添加代码,检查Me.NewRecord
并退出子
当用户开始在"add"中输入数据时,上面的代码处理,然后单击该行上的"删除"。
If Me.NewRecord Then
'code to undo/clear partially entered new record
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
Else
If MsgBox("Are you sure you want to delete this xxxx record?", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
End If