Office中国论坛/Access中国论坛

标题: [求助]怎样在类别选定的情况下，提取某字段的最大值。 [打印本页]

作者: 乐乐 时间: 2003-2-21 23:20
标题: [求助]怎样在类别选定的情况下，提取某字段的最大值。
我在做一个自动生成页码的程序，遇到如下问题：
我想生成的页码格式为：page-page（如：1-2，12-80）
现在的问题是怎样才能找到此次输入前已生成的最大页码。用DMAX，怎样表示（1-2或12-80）中的“2或80”呢？

我自己编写的程序已上传，请各位高手积极指正。谢谢！

文件下载

[em24][em24][em24][em24][em24]

作者: cattjiu 时间: 2003-2-22 00:02
Dim starpage, endpage '定义起始页和结束页
Private Sub 页数_LostFocus()
If 顺序号 = 1 Then          '顺序号代表什么实际事物的意思?
      If 页数 = 1 Then       '页数呢(同上)?
         endpage = 1
         页码 = endpage '当顺序号为1，页数=1，页码=1 '页码(同上)?
      Else
         startpage = 1
         endpage = 页数
         页码 = startpage & "-" & endpage '当顺序号为1，页数<>1，页码=1-页数
      End If
Else
      'endpage = DMax("页码", "卷内目录", "[案卷号 ID]=me!")
      '怎样求当[案卷号 ID]相同时上页的最大页码
      If 页数 = 1 Then
         endpage = endpage + 1
         页码 = endpage  '当顺序号<>1，页数=1，页码=上页的最大页码+1
      ElseIf 页数 <> 1 Then
         startpage = endpage + 1
         endpage = Val(endpage) + Val(页数)
         页码 = startpage & "-" & endpage '当顺序号<>1，页数<>1，页码=上页的最大页码+页数
      End If
End If
End Sub
'举例:在案卷号相同的情况下          '案卷号又是什么具体意义?还有你的系统具体
                                    用于什么工作?(不好意思,我的确没有领会到,
                                    所以需要先明白这些才知道如何做下步)
'
'当顺序号=1,页数=1,页码=1
'当顺序号=2,页数=2,页码=2-3
'
'当顺序号=1,页数=2,页码=1-2
'当顺序号=1,页数=1,页码=3

作者: 乐乐 时间: 2003-2-24 17:40
我的程序主要用在档案登记上。案卷号是即是档案编号。不同类别的档案有不同的档案编号。在每个档案编号中，会不许多文件存放在这里，所以我要给他们按登记的先后顺序编号即为顺序号。由于文件是在一年中先后登记的，所以我不可能总记住每次登记完后每种类别的最后一页的页码，所以我希望系统自动生成。
您可以打开我上传的程序，就知道了。
现在的问题是当档案编号改变（也即是文件类别变换时），我怎样提取这个新档案编号的最大页码。是用dmax吗？要怎么用呢？请教！

作者: 乐乐 时间: 2003-2-26 01:19
各位高手帮帮忙啊，怎么没人理我了。

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