标题: 请教：编译错误！ [打印本页] 作者: gq402402 时间: 2007-11-26 15:42 标题: 请教：编译错误！ Private Sub 身份证号码1_Exit(Cancel As Integer)
If Len(Me![身份证号码1]) = 15 Then
If Right(身份证号码1, 2, 1) = 2 Then
Me![性别1] = "女"
ElseIf Right(身份证号码1, 2, 1) = 1 Then
Me![性别1] = "男"
End If
End Sub
运行的时候提示编译错误：错误的参数号或无效的属性赋值，然后光标停放在right上，请问这是为什么?
[ 本帖最后由 gq402402 于 2007-11-26 15:47 编辑 ]作者: kangking 时间: 2007-11-26 16:21
多了一个参数,right()这个函数只有两个参数,一个是字串,一个是数字,该数字表示从右边开始取几个字符.作者: gq402402 时间: 2007-11-26 16:23
问题已经解决了，呵呵，是我函数用法错了
谢谢大家了作者: kangking 时间: 2007-11-26 16:28
Public Sub sex()
Dim a As String
a = "460107198502123365"
If Len(a) = 15 Then
If Right(a, 1) Mod 2 = 1 Then
MsgBox "这家伙是个男的!"
Else
MsgBox "这可是个女的哦!"
End If
Else
If Mid(a, 17, 1) Mod 2 = 1 Then
MsgBox "这家伙是个男的!"
Else
MsgBox "这可是个女的哦!"
End If
End If
End Sub作者: gq402402 时间: 2007-11-26 16:34 标题: 谢谢CUXUN和KANGKING 非常谢谢两位的帮助了~~问题解决了，心情愉快ING~~~~