vba - 在 Ms-Access 中将标签放置在组合框上

Question

背景：

我试图在 Ms-Access 中放置一个标签，该标签用作组合框上的按钮。用户将从组合框列表中进行选择，如果他们想删除他们的选择，他们可以单击标签以清除选择。

问题：

是否可以让标签显示在组合上方？似乎标签是在组合后面发送的，即使我专门将它发送到 from 等...

Answer 1

我不会创建覆盖标签来清除选择，而是创建一个实际的按钮。您将在设计模式下将按钮和组合框堆叠在一起，但在格式属性中将按钮可见性设置为“否”。假设您调用组合框“cmbSelect”和清除按钮“cmdClear”，使用以下命令显示选择组合框后的按钮：

Private Sub cmbSelect_AfterUpdate

Me.cmdClear.Visible = True

End Sub

单击按钮后，以下代码将清除表中的数据：

Private Sub cmdClear_Click()


DoCmd.SetWarnings False


'Deletes record from your table
Dim Delete As String
Delete = "DELETE * FROM [TableName] WHERE (([TableName].KeyField)='" & KeyField & "')"
DoCmd.RunSQL Delete

DoCmd.SetWarnings True

End Sub

您还可以通过对每个字段运行重新查询而不是使用删除字符串来重新查询表单。然后，您可以为“更新后”按钮构建代码，使按钮再次不可见，并允许您从组合框中选择一个新条目。有很多可能性，但这应该让你开始。如果您需要更多解释或帮助，请告诉我。