access 2007 一个循环，以一种形式循环遍历特定文本框

Question

我的问题如下 我有一个属性表单，其中包含一个名为 DateTo 的文本字段（此文本字段包含数据类型 Date） 我想循环遍历每个属性上的 DateTo 文本字段，并将其打印在消息框中，作为租户名称文本字段和租户地址1 字段。 完成后，我想在消息框中仅显示属性 满足特定条件。 DateTo 文本框中的日期之前一个月，我希望这些值在消息框中打印出来。

任何帮助将不胜感激

Answer 1

像这样的东西应该给你一个工作框架。

Dim db As DAO.Database
Dim rs1 As DAO.Recordset

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("SELECT DateTo, TenantName, TenantAddress1 FROM " & Me.RecordSource)

If rs1.RecordCount > 0 Then
    rs1.MoveFirst
    Do Until rs.EOF
        MsgBox rs.Fields("DateTo") & ", " & rs.Fields("TenantName") & ", " & rs.Fields("TenantAddress1")
        rs1.MoveNext
    Loop
End If
rs1.Close
set rs1 = Nothing
set db = Nothing

您需要更改 set rs1 = db... 行以包含您要添加的任何条件。

例如：

set rs1 = db.OpenRecordset("SELECT DateTo, TenantName, TenantAddress1 FROM " & Me.RecordSource & " WHERE DateTo >= #1/1/2010#")

或者您正在寻找的任何标准。