Access 2007 цикл, чтобы пройти через конкретное текстовое поле в одной форме - PullRequest
Новая
       47

Access 2007 цикл, чтобы пройти через конкретное текстовое поле в одной форме

0 голосов
/ 20 сентября 2010

моя проблема заключается в следующем У меня есть форма свойств, которая содержит текстовое поле с именем DateTo (это текстовое поле содержит тип данных Date) Я хотел бы перебрать текстовое поле DateTo для каждого из свойств и распечатать его в окне сообщения, которое было бы как текстовое поле tenantName и поле tenantAddress1. После этого я хотел бы отобразить в окне сообщения только свойства это соответствует определенному условию. За месяц до даты в текстовом поле DateTo я хотел бы, чтобы эти значения были напечатаны в окне сообщения.

любая помощь будет принята с благодарностью

1 Ответ

0 голосов
/ 20 сентября 2010

Что-то вроде этого должно дать вам основу для работы. 

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

Или по любым критериям, которые вы ищете.

...