Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何让录入的小写字母自动变为大写

子煜  发表于:2011-11-02 16:20:05  
复制

如题:

文本格式的文本框,经常要录入以下内容:

 

0.2MM   1213MM    234MM

 

前面是数值,后面是单位。

 

为了统一规范,用户在输入MM时,无论输的是小写还是大写,一律都自动转为大写MM,这个如何实现? 还有如果相反呢,全部都自动转为小写,又如何实现?

 

谢谢!

 

Top
麥田 发表于:2011-11-02 16:23:34

可以通过有效性规则限制

 

【菜鸟入门】通过有效性规则限制输入数据类型的示例-Access软件网
http://www.accessoft.com/article-show.asp?id=5170



风行 发表于:2011-11-02 16:46:11

击键事件这样写

Private Sub Text0_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))  '转大写
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))   '转小写
End Sub


 

点击下载此附件

煮江品茶 发表于:2011-11-02 16:46:30

假设你的输入控件名曰:“规格”,在该控件的更新后事件中写:

me.规格.value=UCase(me.规格.value)

 

不过按照国际标准来说,毫米标准写法为mm,不应该是MM。因此,正确的搞法是:

me.规格.value=LCase(me.规格.value)



王樵民 发表于:2011-11-03 08:43:32

最简单的方法是在该字段的格式属性中输入一个英文的大于号>即可,它表示不管你输入的是大写还是小写,都用大写显示。

 



网行者 发表于:2011-11-03 17:57:48
方法一:
在控件的更新后事件里添加代码:控制名.Value=UCASE(控件名.Value)
方法二:
在文本框“属性”的“数据”页中,设置“输入掩码”为:>L????,其中“?"的个数比要输入字母的个数少一或更多
方法三:
在表设计中在字段属性的格式栏添加>就可以自动转换

总记录:5篇  页次:1/1 9 1 :