[源码]关闭所有窗体的自动纠正功能

tmtony

1. 
   
2. 
   
3. '试过以下方法均不行，经测试，access没有一个方法设置这个关闭功能
   
4. '只能关闭 选项里的 其它 自动更正功能，但对输入替换没有效果
   
5. 
   
6. 
   
7. 
   
8. 
   
9. '(1)
   
10. 'Application.SetOption "Perform Name AutoCorrect", True ' False
    
11. 'Application.SetOption "Log Name AutoCorrect Changes", True ' False
    
12. 'Application.SetOption "Track Name AutoCorrect Info", True ' False
    
13. 
    
14. 'Application.SetOption "Database Explorer Click Behavior", 0
    
15. 
    
16. '(2)
    
17. 'SetOption "执行名称自动更正", 0
    
18. 
    
19. 
    
20. 
    
21. '(3)
    
22. '名称自动纠正在 option里
    
23. '而这个设置在 "工具" --- 自动更正选项  我找到代码来打开它,但无法自动设置
    
24. 'docmd.RunCommand acCmdAutoCorrect  可打开之,但无法设置里面的值
    
25. 
    
26. 
    
27. 
    
28. 
    
29. '(4) 只有以下方法是真正有效的
    
30. 
    
31. '----------------------------------
    
32. '使用方法，将这个函数 复制到任何一个或新的模块中
    
33. '保存整个MDB，然后按alt+F11进入代码状态
    
34. '再按ctr+G 进入调试窗体，在调试窗体中 输入 tonySetAutoCorrectFalse
    
35. '按回车执行即可
    
36. 
    
37. 'tmtony 修改于 2012/08/20
    
38. 
    
39. Public Sub tonySetAutoCorrectFalse()
    
40. '要先确保你的系统中有引用DAO
    
41. '作用，设置所有窗体中的所有文本框及组合框控件
    
42. '自动关闭自动纠正功能
    
43. 
    
44. '
    
45. '例如:
    
46. '1.在文本框输入hda  自动会变成 had 这是自动纠正 将其改为 英文单词had了
    
47. '2.在组合框 如果下拉列表中有 b.l.c.等这样的内容,在组合框 输入b字, 整个内容都会跳出来,而不是渐进式匹配
    
48. 
    
49. 
    
50. 
    
51. Dim MyDb As DAO.Database
    
52. 
    
53. Dim frm As Document
    
54. 
    
55. Dim ctr As Control
    
56. 
    
57. Dim strFormName As String
    
58. 
    
59.     Set MyDb = CurrentDb()
    
60.    
    
61.     For Each frm In MyDb.Containers("Forms").Documents
    
62.    
    
63.         strFormName = frm.Name
    
64.         
    
65.         DoCmd.OpenForm strFormName, acDesign
    
66.         
    
67.         For Each ctr In Forms(strFormName).Controls
    
68.         
    
69.             Select Case ctr.ControlType
    
70.             
    
71.                 Case acTextBox, acComboBox
    
72.                
    
73.                     If ctr.AllowAutoCorrect = True Then
    
74.                     
    
75.                          ctr.AllowAutoCorrect = False
    
76.                         
    
77.                     End If
    
78.             End Select
    
79.             
    
80.         Next ctr
    
81.         
    
82.         DoCmd.Close acForm, strFormName, acSaveYes
    
83.         
    
84.     Next frm
    
85. 
    
86. End Sub
    
87. 
    

复制代码

xuwenning

收下
谢谢分享

mini520

感谢楼主的 分享啊！！哈哈！

yanwei82123300

感谢楼主的 分享啊！！哈哈！