---

 

 

     只有VIP中级学员才可查看本章【查询实用技巧】的 完整课件、完整源码、清晰视频（讲师逐个知识点专业讲解），系统、高效、专业地学习Access应用及开发，让您节约大量的时间和精力，我们带给您的不只是知识的讲解，还有普通培训机构无法提供给您的更多行业的编程经验以及实战开发中的技巧，这些可以让您少花很多无谓的时间，少走很多弯路，轻松直达专业开发之路。

 

     如需【查询实用技巧】完整培训视频与源码下载，请咨询：

 

 

---

 

 

1. 查询实用技巧-部分PPT之1

 

 

 

 

2. 查询实用技巧-部分PPT之2

 

 

 

 

3. 查询实用技巧-部分PPT之3

 

 

 

 

4. 查询实用技巧-部分PPT之4

 

 

 

 

5. 查询实用技巧-部分PPT之5

 

 

 

 

6. 查询实用技巧-部分PPT之6

 

 

 

 

7. 查询实用技巧-部分PPT之7

 

 

---

 

内容摘要：

 

本Access培训视频由Office中国出品

Access中级培训

查询实用技巧

本节讲师：杨仕航

本节摘要

统计：计数求和求平均

1

求最大最小

2

查询实用技巧

模糊查找

3

在设计界面

 

    右键就可以看到汇总的菜单。

 

我们根据下面要求演示给大家看一下（分全部和性别两种）

    1、求一共多少人

    2、求总年龄

    3、求平均年龄

 

统计：计数求和求平均

1

查询实用技巧

查询实用技巧

求最大最小可以通过下面两个函数完成

查询可以运用一些函数

 

  最大 Max

  最小 Min

 

  求男性年龄最大

  求女性年龄最小

求最大最小

2

查询实用技巧

模糊查找关键字是like

 

*代表多个字符

?代表一个字符

 

  查找名字包含y的

  查找以B开头的名字

  查找以l结尾的名字

  查找名字第二个字母是t的

模糊查找

3

查询实用技巧

本节摘要

统计：计数求和求平均

1

求最大最小

2

模糊查找

3

查询实用技巧

 

谢 谢！

Access中级培训

 

---

 

  部分代码展示

 

 1 Option Compare Database

 2

 3 Private Function getName() As String

 4    getName = Chr(97 + Int(Rnd() * 26))

 5 End Function

 6

 7 Private Sub cmdProduct_Click()

 8   Dim strSQL As String

 9   Dim Rs As New ADODB.Recordset

10  

11   Dim intRecordLong As Long

12   Dim strName As String

13   Dim intAge As Long

14   Dim strSex As String

15  

16    Randomize

17   '判断是否有填写条数

18   If Nz(Me.txtLong) = "" Then

19        MsgBox "请先填写要生成的条数"

20       Me.txtLong.SetFocus

21       Exit Sub

22   Else

23        intRecordLong = CInt(Me.txtLong) - 1

24   End If

25  

26    strSQL = "select * from tblPerson"

27    Rs.Open strSQL, CurrentProject.Connection, 1, 3

28       '提示是否要先清空原有的数据

29       If Rs.RecordCount > 0 Then

30           If MsgBox("是否要清空原有的数据？", vbYesNo) = vbYes Then

31                strSQL = "delete from tblPerson"

32                DoCmd.RunSQL strSQL

33           End If

34       End If

35       '随机生成

36       For i = 0 To intRecordLong

37            Rs.AddNew

38           '随机生成姓名

39                strName = Chr(Int(Rnd() * 26 + 65))

40               Dim intLong As Integer

41                intLong = Int(Rnd() * 6 + 1)

42               For j = 0 To intLong

43                    strName = strName & getName

44               Next

45                Rs.Fields("FName") = strName

46           '随机生成性别

47                strSex = IIf(Rnd() >= 0.5, "男", "女")

48                Rs.Fields("FSex") = strSex

49           '随机生成年龄

50                intAge = Int(Rnd() * 70 + 1)

51                Rs.Fields("FAge") = intAge

52            Rs.Update

53       Next

54    Rs.Close

55  

56    MsgBox "生成完成"

57    DoCmd.OpenTable "tblPerson"

58   Set Rs = Nothing

59 End Sub