怎样编access自定义函数：取记录集最后一条记录的前第二条

roych

sxhus 发表于 2015-8-28 17:12
这样可以
Sub cc()
Dim rst As New ADODB.Recordset

原来你的arr()是数组啊。晕~~

Function JFJE(bm As Date) As Date
Dim rst As New ADODB.Recordset
Dim arr
rst.Open "SELECT 日期 FROM 日报 GROUP BY 日期 having [日期]=& bm &", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveLast
rst.MovePrevious
arr=rstt(0)
End Function