Ms访问VBA选择案例

Question

我的代码在不同的表上运行，因此每个表都有不同的行数。

我想SELECT CASE nLine，所以我可以将它们分组为5行。

其中每个组根据行具有不同的代码。

row = 1将包含代码1。

第2行 - 第4行将包含代码2。

row = 5将包含代码5.

Select Case nLine
    Case 1
       Code 1
    Case 2 - 4
       Code 2
    Case 5
       Code 3
End Select
Loop <===Start again from above SELECT CASE

所以，我需要一个代码将我的行分组为每组5个。并在每个组上运行此代码。

Answer 1

这个分组的目的是什么？如果用于显示目的，请在查询中创建计算字段并使用该字段。

GroupNo: IIf([nLine] = 1,1,IIf([nLine] = 5,3, 2))