
手机号长度为11位,而且固定的,另外首位肯定是1
座机号位数不固定,首位不会是1
可以判断如果不是手机号就是座机号
Private Sub 联系电话1_AfterUpdate()If Len(联系电话1) = 11 And Left(联系电话1, 1) = "1" Then
Me寄件人手机 = "Y"
Me寄件人固话 = "N"
Else
Me寄件人手机 = "N"
Me寄件人固话 = "Y"
End If
End Sub
欢迎分享,转载请注明来源:内存溢出

手机号长度为11位,而且固定的,另外首位肯定是1
座机号位数不固定,首位不会是1
可以判断如果不是手机号就是座机号
Private Sub 联系电话1_AfterUpdate()欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)