求助贴ACCESS rs.findfirst 后的条件中如何使用dlookup函数

nabi248

个人资料[td]

跳远成绩[td]

有两张表，想找出第一条身高超过170的运动员的跳远记录

我的代码如下

Public Sub test()
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("跳远成绩", dbOpenDynaset)
rs.FindFirst "dlookup('身高','个人资料','[ID]=[运动员ID]')>170"   <<<<这一条总是不对，报错2471：未知
MsgBox (rs.Fields("跳远成绩"))
End Sub

请大神们帮我看看是哪里的问题

zpy2

OpenRecordset("跳远成绩",

用sql语句直接查
sql=

select top 1 * from 个人资料 inner join 跳远成绩 on 个人资料.id=跳远成绩.id where 身高>170 order by 跳远成绩

lss001

'先获取身高>170运动员ID
'各参数使用双引号" "
hID = DLookup("ID", "个人资料", "身高>170")

'再根据运动员ID获取跳远成绩
'表名使用单引号' '，字段名使用中括号[ ]
rs.FindFirst "DLookup([运动员ID], '跳远成绩', [跳远成绩])=" & hID

剑指E

看不明白你要做什么，但要你的那句代码不报错：
rs.FindFirst DLookup("[身高]", "个人资料", "[ID]=" & rs![运动员ID]) > 170

nabi248

zpy2 发表于 2023-2-19 15:11
OpenRecordset("跳远成绩",

用sql语句直接查

嗯，这是我简化问题举的例子。实际问题我最后也是用SQL语句来解决的，主要是想学习看这种要怎么写。下面4楼帮我解决了，还是非常感谢你的回复。

nabi248

剑指E 发表于 2023-2-19 17:44
看不明白你要做什么，但要你的那句代码不报错：
rs.FindFirst DLookup("[身高]", "个人资料", "=" & rs![ ...

这个例子没什么实际意义，我是简化了我实际的问题，来看看这句话怎么写。感谢大佬完美解决了我的疑问，折腾单引号双引号了一上午没搞定

nabi248

zpy2 发表于 2023-2-19 15:11
OpenRecordset("跳远成绩",

用sql语句直接查

感谢大佬回复，我是把问题简化了来看看这句话该怎么写。我现实中的问题也是通过SQL语句来解决的。4楼的大神已经帮我解决了疑惑。