用代码如何表示第N字段第M条记录的值

创建一个函数即可

Function nm(bm, n, m) '获得第N字段第M条记录的值(其中bm代表表名)
Dim db As Database  '定义引用数据库的变量。
Dim rs As DAO.Recordset '定义引用记录集的变量。
Dim s As String
'使用DAO操作打开明细记录集
Set db = CurrentDb()
s = "select * from " & bm 'sql 查询语句
Set rs = db.OpenRecordset(s) '建立记录集
On Error GoTo a1
rs.GetRows (m) '跳到指定记录
nm = rs.Fields(n - 1) '获得所需字段的值
a2:
Exit Function
a1:
If n > rs.Fields.Count Then nm = "列大于记录集中的字段数"
If m > rs.RecordCount Then nm = "记录数大于记录集中的记录数"
End Function

调用方法

例：msgbox nm("表1",6,8)  '显示表1中第6个字段，第8条记录的值

具体参考示例

点击下载此附件