标签如何自动输入

陈琼　发表于：2012-08-31 11:38:02 　

向老师们请教个问题
我建一个表如

汉字 U码

人 22456

发       33233

有方法我在窗口标签1中输入人   标签2中自动把 22456 输入
我在窗口标签1中输入人发   标签2中自动把 22456 33233输入
谢谢

麥田发表于：2012-08-31 12:19:04

在组合框中输入非绑定列数据后返回绑定列数据\输入1自动选择男,选择2自动选择女的组合框示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=6400

dbaseIIIer 发表于：2012-08-31 14:22:05

在窗口标签1中 AfterUpdate 中

if me!标签1 = "人" then me!标签2 = "22456"

if me!标签1 = "人发" then me!标签2 = "22456 33233"

完全得分！

请问你那个表用来干啥的？你的题目没有写哦！

陈琼发表于：2012-08-31 18:59:24

感谢各位关注我的用途是把汉字转为UNICODE码

dbaseIIIer 发表于：2012-09-01 03:50:02

原来用 ascW 都可以了！

要是输入的文字在 txt 文本框

n = me!txt

for i = 1 to len(n)

debug.print ascW( mid( n, i, 1))

陈琼发表于：2012-09-01 09:17:14

显示不出来转换值呢

我要在一个文本框显示

请指教

dbaseIIIer 发表于：2012-09-01 13:22:37

我看你还是想人家你帮你全部写出来！

Sub def()
Dim m
n = me!输入文本框

If Len(n) > 0 Then
ReDim m(Len(n) - 1)
For i = 1 To Len(n): m(i - 1) = AscW(Mid(n, i, 1)): Next
me!输出文本框=Join(m, vbCrLf)
End If

End Sub

都是很简单的语句，不明白的去查查帮助！

总记录：6篇页次：1/1 9 1 :

Access交流中心