[原创][新手上路]选取录入高频使用词条

goodidea

对于某些词语，可能在录入时经常用到，它可能是字段值的其中某一部分，而不适宜于组合框或者列表框，用高频词条选区录入窗，可较好解决此问题。

对于新手来说，此范例主要用到以下几个知识点:

1。全局的功能键定义。 见附件的  autokeys 宏

2。用Screen.ActiveCtontrol 来得到当前获得焦点的控件，而不必关心他所在窗体。

3。窗体之间的传值，实际上这里相当于控件之间的传值。

4。在文本框的光标处，插入字符。实际上是文本框SelStart和SelLength的应用。只有获得焦点的文本框才有此属性。



主要功能代码预览:

' 定义公共变量

Public gctlInputCommonuseCalled As Control      '调用窗体的控件

Public gintCtlCalledSelStart As Integer     '当前光标位置

Public gintCtlCalledSellength As Integer    '选取文本长度



'打开高频词选区窗体

Public Function gInputCommonUseString() As String

    On Error Resume Next

    Const cstrFormName = "frmpubselectIncommonuse"

    Const cstrCtlName = "list0"

    If Not CurrentProject.AllForms(cstrFormName).IsLoaded Then

        '如果窗体是关闭的，那么打开窗体

        

        Set gctlInputCommonuseCalled = Screen.ActiveControl     '获取当前控件

        If gctlInputCommonuseCalled Is Nothing Then

            Exit Function

        Else

            '写入相关属性到变量

            gintCtlCalledSelStart = gctlInputCommonuseCalled.SelStart

            gintCtlCalledSellength = gctlInputCommonuseCalled.SelLength

            

            '保存修改，否则可能插入错误值（就是控件的旧值）

            DoCmd.RunCommand acCmdSaveRecord

            

            '打开窗体

            DoCmd.OpenForm cstrFormName

        End If

    Else

        '否则，窗体是打开的，则返回窗体的值

        

        If IsNull(gctlInputCommonuseCalled.Value) Or gctlInputCommonuseCalled.ControlType <> acTextBox Then

            '如果控件的值为空，这不是文本框，则直接赋值为选定的词条

            gctlInputCommonuseCalled.Value = Forms(cstrFormName).Controls(cstrCtlName).Value

        Else

            '否则，在光标位置插入选定的词条

            gctlInputCommonuseCalled.Value = Left$(gctlInputCommonuseCalled.Value, gintCtlCalledSelStart) & _

                                             Forms(cstrFormName).Controls(cstrCtlName).Value & _

                                             Mid$(gctlInputCommonuseCalled.Value, gintCtlCalledSellength + gintCtlCalledSelStart + 1)

        End If

        

        Err.Clear

        '关闭窗体

        DoCmd.Close acForm, cstrFormName

    End If

End Function

gnoy

笑死我了

WTM1

看过了!!

詩意柔情

朋友的爸爸叫"鄭開支",他說:唉!現在經濟不景氣",故他的孫要取名為"鄭收入"
同學叫"吳德章",很多公眾活動都沒他份 ,因為個個叫他"吳得獎"
同事叫"李發達",他說從來借不到錢!

竹笛

很不错！

大声笑

没看懂。。。按F8 出现了错误~~支持