Office中国论坛/Access中国论坛

标题: 如何在文本框[证号]中自动合成一个8位数的证号 [打印本页]

作者: ccczzz 时间: 2003-6-16 02:06
标题: 如何在文本框[证号]中自动合成一个8位数的证号
在文本框a1、a2、a3、a4中分别输入一个任意两位数，在文本框[证号]中自动合成一个8位数的证号，如何实现？[attach]764[/attach]

作者: cg1 时间: 2003-6-16 02:28
将下列代码加入代码段

Private Sub a1_AfterUpdate()
ooo
End Sub
Private Sub a2_AfterUpdate()
ooo
End Sub

Private Sub a3_AfterUpdate()
ooo
End Sub

Private Sub a4_AfterUpdate()
ooo
End Sub

Function ooo()
证号 = a1 + a2 + a3 + a4
End Function

Private Sub Form_Open(Cancel As Integer)
a1.InputMask = "99"
a2.InputMask = "99"
a3.InputMask = "99"
a4.InputMask = "99"
a1.ValidationRule = "len([a1])=2"
a2.ValidationRule = "len([a2])=2"
a3.ValidationRule = "len([a3])=2"
a4.ValidationRule = "len([a4])=2"
End Sub

作者: 唐小小 时间: 2003-6-16 05:00
没那么麻烦　，只要在证号单击属性设置：Me.证号 = a1 & a2 & a3 & a4就可以了,或者在最后一个文本框的更新后事件事设置：Me.证号 = a1 & a2 & a3 & a4

[此贴子已经被作者于2003-6-15 21:03:44编辑过]

作者: Kiss-win 时间: 2003-6-16 08:29
哈哈。。。唐小小果然反应很快，cg1想得太远啦：）

作者: cg1 时间: 2003-6-16 16:48
咳，有时候严格按照要求做也。。。

你不是说一定要两位数字吗？

作者: 唐小小 时间: 2003-6-16 16:51
我晕，要学会灵活变通，我这个想要几位数都可以，5555，两位，三位，随便你定，不要都可以。

作者: cg1 时间: 2003-6-16 16:58
奥，那你就说输入任意数字不就行了？你现在说“一个任意两位数”，所以我有误解

作者: 唐小小 时间: 2003-6-16 17:49
晕哦，还是要学会变通，任意　数是包括两位数的，不过你的程序也不错，中国人的程序与外国人的程序区别就是同样达到一个目的时的过程不同，作程序前要动脑子想一想怎么去简化，我是学C的，数据哭才学了不久，有空还要向你学习！

作者: keyuyi 时间: 2003-6-17 06:26
[em17]吃的太多.

作者: krts 时间: 2003-6-17 19:04
我还想吐呢

作者: warmheart 时间: 2003-6-19 22:25
我比较同意cg1的观点,这样的程序较符合软件工程的规范.很多代码对实现功能来说虽然是可有可无的.但却是系统安全不可少的.
如果这段程序让印度程序员来编,可能还要长上许多,但可贵的是每一个印度程序员可能都编出几乎一样的代码.

作者: 唐小小 时间: 2003-6-20 04:25
晕，你是从印度来的吧，你懂什么你，不要不懂装懂

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