访问2013表单文本框,功能不计算

时间:2014-04-08 18:27:52

标签: vba ms-access

我已经创建了一个Access数据库(orig.v2007,使用v2010更新,有些用户现在将其与v2013一起使用),这是我的办公室在过去两年中一直使用的,没有这个问题。最近这个问题开始发生:有一个输入数据的表格。表单的记录源是一个表,它有一些文本框,其中包含从其他表中查找数据的函数。对于办公室中只有少数人,具有这些功能的文本框不会自动填充。他们也知道,有这个问题都是使用Access 2013,但不是每个使用2013的人都有这个问题。我仍在使用2010,我不能复制这个问题。

状态栏中的文本框控件来源为=GetSKU([Forms]![frmCP]![Project_Type]),该消息显示"计算"。 (看起来它不是自动计算的。)当用户单击文本框时,它会填充它应该的文本。用户

功能如下:

Function GetSKU(PT As Long)
    Dim ptvar As Variant
    ptvar = DLookup("[SKU]", "[tblProjectType]", "[ProjType_ID] = " & PT)
    GetSKU = ptvar
End Function

2 个答案:

答案 0 :(得分:1)

本周我的Access数据库遇到了类似的问题。我们最近从Access 2010升级到2013,现在任何执行计算的未绑定文本框(Iif,sum,average,dlookup等)都是空的,直到您单击文本框或点击F9。

MSDN上的

This discussion可能会有所帮助。它建议按F9或重新启动计算机将(暂时)解决问题。

答案 1 :(得分:0)

我现在已经把这个问题突然出现了。我有一个解决方法,但它很讨厌,如果进行复杂的表单处理,并不能保证它能很好地解决你的问题。

Private Sub Form_Activate()

    Me.SetFocus
    SendKeys "{F9}"

End Sub