MS Access 2003 - 通过单击标签框将简单的值输入到文本框中

Question

好的，任何人都可以请帮助我使用VB自动将信息输入到文本框中，方法是在Access 2003中单击窗体上的证书标签框。

我建立这个东西使用标签框作为“排序的链接”，而不是按钮的导航/命令等，我有这个功能点演示查看器的形式之一。
客户有很多简报，这对我来说很有帮助，他们能够从一个地方得到他们的简报。

因此，如果我在表单上列出月份的选项作为标签框（只需很少的鼠标移动事件以类似于Web链接），然后单击它以选择，那么我就知道这可能会变成什么功能是如果我添加一个文本框的形式，并使其不可见，这样我可以命名它，并将其添加到文件路径字符串，它的工作原理。

但是，如何在文本框中创建单击“NVOWEFDJHF”中的“链接”结果的操作？

任何人都知道更好的方法？
是的，我是一个业余爱好者，所以我总是乐于学习更好的方法。

非常感谢！

Answer 1

我会建议使用透明按钮而不是标签。

最主要的原因是当鼠标悬停在按钮上时，您可以将鼠标光标设置为一个小手，这样可以将信息返回给用户，以便点击该按钮。
带有标签，用户不能区分正常标签和可以点击的标签，因为没有视觉提示。

要创建一个按钮，类似的标签：

• 添加按钮的形式
• 在按钮的属性，设置如下：
  • Format > Back-Style: Transparent
  • Other > Cursor on Hover: Hyperlink Hand
  • Other > Name: btAutoFill（或任何你想要的名字）
• 如果您希望按钮类似于链接多一点，你可以改变它的标题的格式，使得它的蓝色，并强调如果你想。

现在，如果您查看表单，当您移动到“按钮标签”上时，您将看到鼠标光标将发生变化。

要自动填充其他控件中，当您单击按钮，添加代码来处理其OnClick事件（在按钮的属性，Events > On Click下，选择[Event Procedure]）：

Public Sub btAutoFill_Click() 
    myTextBox = "NVOWEFDJHF" 
End Sub 

Answer 2

这里空气迅速代码...

Private Sub MyLabel_OnClick() 

    Me.MyTextBox = "NVOWEGDJHF" 

End Sub 

不要忘记你的错误处理。

Answer 3

通过使用非Access本地方法，您正在尽可能地提高难度。使标签“可点击”的最简单方法是在其上放置一个透明的命令按钮。但这意味着MouseMove事件将转到命令按钮，因此您必须让其事件执行MouseOver操作。