Question

我正在使用以下内容从VBA在我的表单中设置12个TextBox ControlSource：

...
Me.Oct.ControlSource = "=DSum('GBPValue', 'MF YTD Actual Income & Adret', 'Month=10 AND Org_Type=[Key]')"
Me.Nov.ControlSource = "=DSum('GBPValue', 'MF YTD Actual Income & Adret', 'Month=11 AND Org_Type=[Key]')"
...

[Key]是表单

中文本框的名称

当表单加载时，我会遇到一些奇怪的行为 -

所有dlookup文本框都是空白的所有摘要表单文本框
如果我然后点击其中一个分配了dlookup控制源的文本框，其他列的摘要文本框开始填充0和#Num等，并且dlookup运行并显示预期数字
一旦我点击了所有dlookup字段，摘要数字就会正确计算。

在最终版本中，查询将在用户点击VBA后重新编写，因此......这是一种让表单重新查询数据库的合理方法，如果是这样，我该如何制作DLookups会自动运行/显示，以便在表单加载时立即显示所有内容吗？

Answer 1

您可能正在寻找Recalc（Me.Recalc）。但是，我建议您使用记录集而不是DlookUp，并使用表单的当前事件：

Dim rs As DAO.Recordset 'Needs MS DAO 3.x library
Dim db As Database
Dim strSQL As String

Set db = CurrentDb()

'Guessing that key is a form value
'Note that Month is a reserved word

strSQL = "SELECT [Month], Sum(GBPValue) As SumVal " _
       & "FROM [MF YTD Actual Income & Adret] " _
       & "WHERE Org_Type= " & Me.[Key]  
       & " GROUP BY [Month]" 

Set rs=db.OpenRecordset(strSQL)

'You can probably use a Do While Loop, consider 
'naming the controls, eg, Month10

rs.FindFirst "[Month]=10" 
Me.Oct = rs!SumVal

'and so on

在窗体中单击textBox之前，Access中的DLookup未运行

1 个答案: