Question

我的问题如下我有一个属性表单，其中包含一个名为DateTo的文本字段（此textfield包含数据类型Date）我想遍历每个属性上的DateTo文本字段，并在消息框中将其打印出来作为tenantName文本字段和tenantAddress1字段。完成此操作后，我想在消息框中仅显示属性符合特定条件。在DateTo文本框中的Date之前一个月，我希望在消息框中打印这些值。

任何帮助都会受到高度赞赏

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#")

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

访问2007循环以循环遍历一个表单中的特定文本框

1 个答案: