确定所显示的当前记录的记录编号。

hj　发表于：2010-09-02 22:39:05 　

如何调用下面过程

Sub CurrentFormRecord(frm As Form)
Dim lngrecordnum As Long
lngrecordnum = frm.CurrentRecord 'CurrentRecord是当前记录号
End Sub

煮江品茶发表于：2010-09-03 09:09:07

可以将其改为函数：

Function CurrentFormRecord(frm As Form) As Long
CurrentFormRecord = frm.CurrentRecord 'CurrentRecord是当前记录号
End function

你需要在一个控件中得到当前记录时：

me.text1.value=CurrentFormRecord(forms("窗体名称"))

如果就是在本窗体中需要显示子窗体的记录，上面的都不要，直接在相关子程序中写：

me.text1.value=me.子窗体名称.CurrentRecord

总记录：1篇页次：1/1 9 1 :

Access交流中心