我试图用一个包含31天(从1月1日到1月31日)的单个记录集填充我的31个文本框 .
虽然我很清楚如何将查询的每个字段分配给相关的文本框,但是根本不清楚如何将查询的单个字段中包含的多个值分配给多个文本框 .
例如,这是我的起始代码:
私人子填充日期()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
ssql = "SELECT PricingDate From RoomCalendar WHERE PricingDate BETWEEN #01/01/2016# AND #31/01/2016# AND RateRoomCombinationId=17"
rst.Open ssql, cnn
Do Until rst.EOF = True
'txt1.Value = rst.Fields!PricingDate
'txt2.Value = rst.Fields!PricingDate
'txt3.Value = rst.Fields!PricingDate
rst.MoveNext
Loop
End Sub
预先感谢您的帮助
2 回答
您可以使用:
请注意,日期表达式的格式 .
我设法自己解决了这个问题 . 最终代码是:
谢谢你的帮助