Office中国论坛/Access中国论坛

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

作者: 乐乐 时间: 2003-2-15 00:47
标题: [求助]在打开新表时，如何读取以前记录中某字段的最大值？
请教各位，我现在在设计一个自动生成页码的程序。在数据库打开时，程序计算正确。可是关闭后再重新打开时，所有的变量自动清零了。页码又从1开始了。
请问，怎样才可以让重新开启数据库时，该变量能自动获取以前记录中该字段的最大值（也即是最后一页的页码）

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

作者: cattjiu 时间: 2003-2-15 00:49
还是给个例子附件好。这样我也不知道从何说起。

作者: 乐乐 时间: 2003-2-15 01:12
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开始了。怎样才能做到像自动编号一样，再开启时仍然能够记住以前记录的值。

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)