[求助]在打开新表时，如何读取以前记录中某字段的最大值？

乐乐

请教各位，我现在在设计一个自动生成页码的程序。在数据库打开时，程序计算正确。可是关闭后再重新打开时，所有的变量自动清零了。页码又从1开始了。
请问，怎样才可以让重新开启数据库时，该变量能自动获取以前记录中该字段的最大值（也即是最后一页的页码）

谢谢各位！紧急救助！[em24]

cattjiu

还是给个例子附件好。这样我也不知道从何说起。

乐乐

Dim endpage, startpage'定义结束页与起始页
Private Sub 页码_LostFocus()
    If 顺序号 = 1 Then
        If 页数 = 1 Then
            endpage = 1
            页码 = endpage
        Else
            startpage = 1
            endpage = 页数
            页码 = startpage & "-" & endpage
        End If
    Else
        If 页数 = 1 Then
            endpage = endpage + 1
            页码 = endpage
        ElseIf 页数 <> 1 Then
            startpage = endpage + 1
            endpage = Val(endpage) + Val(页数)
            页码 = startpage & "-" & endpage
        End If
    End If   
End Sub

上面的程序，在首次打开时正常，再次打开时又全部清零从1开始了。怎样才能做到像自动编号一样，再开启时仍然能够记住以前记录的值。

我是一个新手，问题可能比较弱智，也不太会表述，请不要见怪。谢谢版主！