2013-05-01 156 views
1

我无法找到实现此目的的方法。基本上,我只需要一种方法来获取文本框中选定部分的文本。这个想法是,用户可以在一个较大的字符串中双击一个单词来自动搜索另一组数据。MS Access VBA:从文本框中获取文本的选定部分?

如果能得到下面的工作,选定的文本将简单地调用一个运行我的搜索过程的函数。下面的内容不起作用,我的许多在线发现只捕获整个文本框。有任何想法吗?

Private Sub txtproductName_DblClick(Cancel As Integer) 
    Debug.Print txtproductName.SelText 
End Sub 

回答

2

我用的MouseUp代替

Private Sub txtproductName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    If Len(txtproductName.SelText) > 0 Then 
    'do my thing 
    Debug.Print txtproductName.SelText 
    Else 
    'do nothing 
    End If 
End Sub 
+0

不确定为什么DblClick不起作用,但很高兴看到您找到解决方案。 – 2013-05-01 04:29:47

+0

不幸的是,富文本格式会以这种方式丢失;) – user3305711 2018-02-03 14:15:01

0

可以使用LostFocus事件。

Private Sub txtproductName_LostFocus() 
    MsgBox Me.txtproductName.SelText 
End Sub