Microsoft Access技术问询：获取表行数及按用户指定数量选取行

嘿，针对你问的这两个Microsoft Access操作问题，我整理了几种实用的方法，都是日常工作里常用的，你可以根据自己的场景选：

这里有两种简单直接的方式：

• 使用DCount函数：这是最快的方式，不管是在查询的计算字段里还是VBA代码中都能用。比如在查询里新增一个计算字段，输入：总行数: DCount("*", "你的表名")；如果用VBA，代码可以这么写：

  Dim totalRows As Long
  totalRows = DCount("ID", "你的表名") '用主键字段代替*，查询效率会更高
  MsgBox "表内总共有" & totalRows & "条记录"
  

• 创建统计查询：新建一个查询，选中目标表，点击工具栏的「总计」按钮，把字段栏选成*，然后对应的总计类型选择「计数」，运行查询就能看到总行数了。

分固定数量和动态用户输入两种场景：

• 固定数量选取：直接用SQL的TOP子句就行，比如要取10条记录，SQL语句是：

  SELECT TOP 10 * FROM 你的表名;
  

  如果想要随机抽取记录（避免每次都取前N条），可以加个随机排序：

  SELECT TOP 10 * FROM 你的表名 ORDER BY Rnd(ID);
  

  这里的ID换成你的表主键字段就行，确保排序的随机性。
• 动态接收用户输入：用参数查询就能实现。新建查询后，在SQL视图里输入：

  SELECT TOP [请输入要获取的记录数:] * FROM 你的表名;
  

  运行这个查询时，会弹出对话框让你输入数字，输入后就会返回对应数量的记录。
• VBA配合窗体实现动态选取：如果是在窗体里让用户输入数字，比如有个文本框txtRecordCount，可以用这段代码处理：

  Dim userInput As Variant
  userInput = Me.txtRecordCount.Value
  
  '先判断输入是否为有效数字
  If IsNumeric(userInput) And userInput > 0 Then
      Dim sqlStr As String
      sqlStr = "SELECT TOP " & CLng(userInput) & " * FROM 你的表名;"
      '可以把SQL赋值给现有查询，或者直接打开记录集
      CurrentDb.QueryDefs("动态记录查询").SQL = sqlStr
      DoCmd.OpenQuery "动态记录查询"
  Else
      MsgBox "请输入有效的正整数！"
  End If
  

内容的提问来源于stack exchange，提问作者Paulo Silva