access学习
关注
分享
扫一扫
lionkinglk
请用一段话来描述您自己，如性格、爱好、生活态度、工作情况、受教育状况等。让大家更了解你，不要超过1000个汉字。
展开
-
access中[姓名]字段有效性规则的代码实现
Private Sub 考生姓名_BeforeUpdate(Cancel As Integer) Dim c1 c1 = 考生姓名.Text If Len(LTrim(Trim(c1))) 2 Then MsgBox ("请输全您的真实姓名。") ElseIf Asc(c1) > 0 And Asc(c1) 255 Then Msg原创 2007-03-20 01:25:00 · 1893 阅读 · 0 评论 -
access中[身份证号]字段有效性规则的代码实现,以及自动从[身份证号]提取出生日期和性别
Option Compare DatabasePublic sex, ymdPrivate Sub 身份证号_BeforeUpdate(Cancel As Integer) Dim c1, I c1 = LTrim(Trim(身份证号.Text)) I = Len(c1) Select Case I Case 15 If IsDate原创 2007-03-20 01:29:00 · 3952 阅读 · 0 评论