Access实现任意文本框的字符插入

在一个access窗体中，一个窗体下有多个子窗体，而一个子窗体又有多个文本框。

当在文本框输入时，往往需要插入一些字符（比如一些特殊的字符以组合框列表存放），类似于记事本的插入。但记事本由于只有一个窗口（即一个文本框），而窗体中有多个文本框，不可能对每个文本框进行编码。

这里通过screen对象里的一些方法可以很简单的解决上述问题。

假设一个窗体中一个文本框(txt)，一个组合框(cbo)。文本框用于输入，组合框存放字符。
实现文本框输入时，点击组合框值，该值能插入到文本框已选中的位置。

详细源码：

Dim fN As Boolean, IntStart As Integer, intSellength As Integer
Private Sub cbo_AfterUpdate()
    
On Error GoTo err_txt
    Screen.PreviousControl.SetFocus
    Screen.ActiveControl.SelStart = IntStart
    Screen.ActiveControl.SelLength = intSellength
    Screen.ActiveControl.SelText = cboSpecialChar
    Screen.ActiveControl.SelStart = IntStart + Len(cbo)
    Screen.ActiveControl.SelLength = 0
err_exit:
     Exit Sub
err_txt:
      Resume err_exit
  
End Sub

Private Sub cbo_LostFocus()
    fN = False
End Sub
Private Sub cbo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    fN = True
End Sub
Private Sub cbo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err_cboSpecialChar_MouseMove
    If Not fN Then
        IntStart = Screen.ActiveControl.SelStart
        intSellength = Screen.ActiveControl.SelLength
    End If
    
    Exit Sub
err_cboSpecialChar_MouseMove:
    Exit Sub
End Sub

代码解析：
1、鼠标点击组合框前，用全局变量记录下光标的位置（selstart,sellength)。技巧：在鼠标移到组合框时发生事件，因为此时光标还停留在文本框的位置。
        IntStart = Screen.ActiveControl.SelStart
        intSellength = Screen.ActiveControl.SelLength
2、选中组合框后，将光标还回文本框，并且通过原来光标的位置对文本框重新选择。将选择值用组合框中的内容替换掉即可。
    Screen.PreviousControl.SetFocus
     Screen.ActiveControl.SelStart = IntStart
     Screen.ActiveControl.SelLength = intSellength
     Screen.ActiveControl.SelText = cboSpecialChar
     Screen.ActiveControl.SelStart = IntStart + Len(cbo)
     Screen.ActiveControl.SelLength = 0
3、 由于（1）是在mousemove时发生时，mousedown后光标已经转移到了组合框，所以需要在mousedown前就记录下光标位置。这需要一定的技巧。