Office中国论坛/Access中国论坛

标题: [原创][新手上路]选取录入高频使用词条 [打印本页]

作者: gnoy 时间: 2002-11-1 18:33
笑死我了

作者: WTM1 时间: 2002-11-1 19:07
看过了!!

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

作者: goodidea 时间: 2004-8-2 23:54
标题: [原创][新手上路]选取录入高频使用词条
对于某些词语，可能在录入时经常用到，它可能是字段值的其中某一部分，而不适宜于组合框或者列表框，用高频词条选区录入窗，可较好解决此问题。

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

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

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

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

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

[attach]5820[/attach]

主要功能代码预览:

' 定义公共变量

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

作者: 竹笛 时间: 2004-11-24 05:00
很不错！

作者: 大声笑 时间: 2004-11-24 16:04
没看懂。。。按F8 出现了错误~~支持

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)