处理VBA中的关系

问题描述

嗨伙计，


我有一个Access 2003应用程序处理小艇赛车结果。我正在寻找一种处理关系的方法。在当前的第一个记录集传递中，如果没有关系（orig点），结果就可以了。如果存在联系，那么它们需要由识别关系存在的过程（经过时间）处理并且将原始值（Orig Points）加在一起并除以关系数以创建新值（Points Reqd）。如下表所示。


相信这是有道理的，你们可以推荐一些合适的代码...最好的问候，Brian



记录经过时间折扣积分要求


1 5.5 1 1

2 5.6 2 3

3 5.6 3 3

4 5.6 4 3

5 5.7 5 5

6 5.7 6 5

7 5.8 7 7

8 5.9 8 8

Hi Folks,

I have an Access 2003 application handling dinghy racing results. I''m looking for a way to handle ties. On the current first recordset pass, the results are fine if there are no ties (orig points). If there are ties, then they need to be handled by a process that recognises that ties exist (elapsed time) and adds together the original values (Orig Points) and divides by the number of ties to create new values (Points Reqd). As in the table below.

Trust this makes sense and that you folks can suggest some suitable code ... with best regards, Brian


RecordElapsed timeOrig PointsPoints Reqd

15.511
25.623
35.633
45.643
55.755
65.765
75.877
85.988

推荐答案

展开 | 选择 | Wrap | 行号

1. 创建一个包含唯一经过时间的记录集。
2. 循环遍历此Recordset测试每个经过时间以查看是否存在领带。
3. 如果有领带：

1. Create a Recordset consisting of Unique Elapsed Times.
2. Loop through this Recordset testing each Elapsed Time to see if there are Ties.
3. If there are Tie(s):

1. 计算这些领带的总原始分数。
2. 计算实际的领带数。
3. 使用公式计算原始点的新值：
   

1. Calculate the Total Original Points for these Ties.
2. Calculate the actual Number of Ties.
3. Calculate the new Value for Original Points using the Formula:
   

展开 | 选择 | 换行 | 行号

这篇关于处理VBA中的关系的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！