如何在MS Access窗体中将表达式生成器中的多个检查放入？

Question

我正在使用MS-Access中的一个宏来检查表单中的不同值。

以下是我尝试做的事情的详细信息：

表单：表单是根据数据库中存在的表创建的，其结构类似于

    DataType CalcType Percent1 Percent2 Percent3 percent_check
    DT1      Avg      20       30       50       100 
    DT2      Mean     30       33       35       98
    DT3      Sum      10       35       57       102 

Column CalcType是一个包含三个选项的下拉列表。每个选项都会调用为其计算的不同宏。 我添加了一个单独的Field percent_check来验证P1，P2和amp;的总和。 P3。

要求： 我想写一个条件

    IF DataType is DT1 
     THEN IF percent_check<=100 
       THEN IF CalcType = "Avg" Invoke Avg_Macro 
         ELSE IF CalcType = "Mean" Invoke Mean_Macro
           ELSE Invoke Sum_Macro
     ELSE Message(Adjust the percent to make total as 100)

类似于其他数据类型。

我已经在Expression Builder中编写了案例

    IF Form!DataType = DT1 THEN
      IF Form!percent_check <=100 THEN
        IF Form!CalcType = Avg THEN RunMacro - Avg_Macro
          ELSE IF Form!CalcType = Mean THEN RunMacro - Mean_Macro
        ELSE RunMacro - Sum_Macro
      ELSE MessageBox("Adjust percent to make total <=100)

但我既没有得到任何结果也没有任何错误信息。

有人可以帮我写这个表达式来获得所需的结果。

谢谢！

Answer 1

使用VBA并将宏重写到VBA中。