Vba 使当前选定记录的文本框消失

我的主窗体中有一个复选框，当未分别选中和选中时，会导致文本框和按钮消失并出现。下面的代码工作正常：

Private Sub Check288_Click()
If Me.Check288.Value = True Then
MsgBox "Please Enter Reference Number and fill in the name", , "Database"
Text293.SetFocus
Me.MTM_Signature.Visible = True
Me.btn_8DGen.Visible = True
Else
Me.MTM_Signature.Visible = False
Me.btn_8DGen.Visible = False
End If
End Sub

---

我的问题是，此代码影响的是整个记录列表，而不是当前选择的记录。我有一个自动编号的主键ID，用于识别每个记录。我有没有办法让文本框和按钮只在当前记录中消失。我刚接触VBA。谢谢。

如果选中288，请单击“显示模式表单”，让用户输入参考号。关闭弹出表单时，请更新数据库。如果不想在文本框为空时显示，可以使用条件格式隐藏该文本框。

这无法完成。您可以在文本框上使用条件格式，并对其进行格式设置，使其融入背景。您好，谢谢您的回复。这是我唯一能为目前的记录做的吗？我试过了，但我被卡住了。对不起。嗨，我终于找到了正确的方法。我所要做的就是将代码复制到表单对象的“On Current”事件中。无论何时选择新记录，都会执行窗体的On current属性中的任何代码。感谢您的帮助。随后，我发现一个网站显示了与示例数据库完全相同的内容，但我不知道如何将该功能分配给我的复选框。[连结]