|
我在做一个自动生成页码的程序,遇到如下问题:
我想生成的页码格式为:page-page(如:1-2,12-80)
现在的问题是怎样才能找到此次输入前已生成的最大页码。用DMAX,怎样表示(1-2或12-80)中的“2或80”呢?
具体程序如下:
Private Sub 页数_LostFocus()
If 顺序号 = 1 Then
If 页数 = 1 Then
endpage = 1
页码 = endpage
Else
startpage = 1
endpage = 页数
页码 = startpage & "-" & endpage
End If
Else
endpage = DMax("页码", "卷内目录", "[案卷号]='me![案卷号]'")此句该怎样用
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
[em24] |
|