目录
1.客户模糊查询
步骤如下:
1. 选择工具:选择“查询设计”工具。
2. 选择表:选择“客户”表。
3. 选择字段:“名称”、“联系人”、“职务’’、“办公电话’’、“住宅 电话”、“手机”、“地址”等字段。
4. 输入条件:
在“名称”字段的条件行中输入:Like "*" & [输入关键字] & "*",
在 “联系人”的“或条件行中输入:Like "*" & [输入关键字] & "*",
在“办公电话”的“或”条件行中输入:Like "*" & [输入关键字] & "*",
在“手机”的“或” 条件行中输入:Like "*" & [输入关键字] & "*"
注意,条件要输入在不同行上.
5. 保存查询:取名为“客户模糊查询”。
2.员工年龄查询
1.选择“创建’’选项卡中的“宏”,在“宏”的下拉选项中选择“模块”,输入以下代码,并保存
Option Compare Database
Public Function Age(身份证)
Dim 出生日期
If Nz(Trim(身份证)) = "" Then '身份证为空时,返回0
年龄 = 0
Exit Function
End If
'判断身份证证位数
If Len(Trim(身份证)) = 15 Then
出生日期 = "19" & Mid(身份证, 7, 2) & "-" & Mid(身份证, 9, 2) & "-" & Mid(身份证,