Question

下面我提供了一些代码，用于验证用户是否在填写表格的表单上输入数据。我试图确认他们是否留下了字段（MinAge）null。运行代码时，我得到的数据不匹配。这是最好的方法吗？救命啊！

 Dim MinAgeVal As Integer
 MinAgeVal = DLookup("[MinAge]", "User_ProductDefaultsAge")


 If MinAgeVal Is Null Then


    x = MsgBox("Missing Minimum Age Value", vbCritical)

Else

    x = MsgBox("clear", vbCritical)

End If

此外，表格中可能有多行。

（修订版）：

好的...我有一个表，由表单中的用户填充。用户将输入一系列年龄范围（最小和最大）... 0 - 5,6 - 10等...每个最小/最大范围将在其自己的行...我需要编写将要编写的代码检查每一行有三个方面... 1）没有任何字段（最小或最大）为空... 2）最小范围不大于或等于最大范围...下一个数据行按顺序排列（记录1的最大年份小于记录2的最小年份）

最小年份最大年份 0 1 2 10 15

下面，提供了一些代码供指导......

Dim RS As DAO.Recordset
Dim SQL As String

'ordering is only important if you want the FIRST three MIDs.
'If you don't care, just omit the "order by MID" part.
SQL = "select top 3 MID from DealContent where DealID = xxx order by MID"

Set RS = CurrentDb.OpenRecordset(SQL)
Do While Not RS.EOF
    Me!MID = Me!MID & RS("mid") & " "
    RS.MoveNext
Loop
RS.Close
Set RS = Nothing

我得到了大部分代码正在做的事情，但无法弄清楚如何制作/更改我的代码：

Set RS = CurrentDb.OpenRecordset(SQL)
Do While Not RS.EOF
    Me!MID = Me!MID & RS("mid") & " "
    RS.MoveNext

Answer 1

Gustav提供的答案只适用于一行。 Dlookup无法处理多条记录。您将需要使用记录集。请参阅link

Answer 2

试试这个：

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<a href="pop-charts.html">
  <div class="to-chart-button" id="music_1">
    <div class="to-charts-screen screen_1 over-to-charts-screen" id="screen_1">
      <h5>Pop<br />Charts</h5>
    </div>
</div>
</a>
<a href="rock-charts.html">
  <div class="to-chart-button" id="music_2">
    <div class="to-charts-screen screen_2" id="screen_2">
      <h5>Rock<br />Charts</h5>
    </div>
  </div>
</a>
<a href="country-charts.html">
  <div class="to-chart-button" id="music_3">
    <div class="to-charts-screen screen_3" id="screen_3">
      <h5>Country<br />Charts</h5>
    </div>
  </div>
</a>
<a href="latin-charts">
  <div class="to-chart-button" id="music_4">
    <div class="to-charts-screen screen_4" id="screen_4">
      <h5>Latin<br />Charts</h5>
    </div>
  </div>
</a>

MS ACCESS：用于验证表中数据的代码

2 个答案: