ACCESS实例3营销合同管理系统2 创建营销合同管理系统中的查询——续1

目录

1.客户模糊查询

2.员工年龄查询

3.多表查询：销售合同欠款情况查询

​4.交叉表查询：各部门年度销售的情况表

---

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) & "