2009-07-04 44 views
1

好的,任何人都可以請幫助我使用VB自動將信息輸入到文本框中,方法是在Access 2003中單擊窗體上的證書標籤框。MS Access 2003 - 通過單擊標籤框將簡單的值輸入到文本框中

我建立這個東西使用標籤框作爲「排序的鏈接」,而不是按鈕的導航/命令等,我有這個功能點演示查看器的形式之一。
客戶有很多簡報,這對我來說很有幫助,他們能夠從一個地方得到他們的簡報。

因此,如果我在表單上列出月份的選項作爲標籤框(只需很少的鼠標移動事件以類似於Web鏈接),然後單擊它以選擇,那麼我就知道這可能會變成什麼功能是如果我添加一個文本框的形式,並使其不可見,這樣我可以命名它,並將其添加到文件路徑字符串,它的工作原理。

但是,如何在文本框中創建單擊「NVOWEFDJHF」中的「鏈接」結果的操作?

任何人都知道更好的方法?
是的,我是一個業餘愛好者,所以我總是樂於學習更好的方法。

非常感謝!

回答

2

我會建議使用透明按鈕而不是標籤。

最主要的原因是當鼠標懸停在按鈕上時,您可以將鼠標光標設置爲一個小手,這樣可以將信息返回給用戶,以便點擊該按鈕。
帶有標籤,用戶不能區分正常標籤和可以點擊的標籤,因爲沒有視覺提示。

要創建一個按鈕,類似的標籤:

  • 添加按鈕的形式
  • 在按鈕的屬性,設置如下:
    • 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 
1

這裏空氣迅速代碼...

Private Sub MyLabel_OnClick() 

    Me.MyTextBox = "NVOWEGDJHF" 

End Sub 

不要忘記你的錯誤處理。

+0

也許你應該檢查你的答案在發佈之前 - 標籤沒有事件。 – 2009-07-04 21:49:48

-1

通過使用非Access本地方法,您正在儘可能地提高難度。使標籤「可點擊」的最簡單方法是在其上放置一個透明的命令按鈕。但這意味着MouseMove事件將轉到命令按鈕,因此您必須讓其事件執行MouseOver操作。

相關問題