【发布时间】:2018-03-08 16:52:04
【问题描述】:
我正在尝试让一些代码在表单加载时运行。
但是,我收到消息:
Compile error: Sub or Function not defined
就行了:Public Sub Form_Load()
Option Compare Database
Public Sub Form_Load()
Me.txtSearch.BackColor = vbYellow
Task = "SELECT * FROM tblTracks WHERE (ID)is null"
Me.RecordSource = Task
Me.txtSearch.SetFocus
End Sub
我尝试过 Private/Public 并且两者都没有 - 只是 Sub - 但它们都给出了相同的错误。
我已尝试添加 Option Explicit 并从头开始重新键入代码 - 正如建议的那样 - 现在我遇到了编译错误:
有人可以帮忙吗?
谢谢,马克
【问题讨论】:
-
首先在顶部添加
Option Explicit,然后在子中添加Dim Task As String。这可能会修复错误,或者为您提供更具描述性的错误。 -
既然变量只使用一次,为什么还要麻烦呢?为什么要在加载时设置 RecordSource?为什么表单设计中没有设置 RecordSource?与其设置 RecordSource 只是为了应用过滤器,我更喜欢设置表单的 Filter 和 FilterOn 属性。
-
顺便说一句,测试了您的代码并且无法复制问题。
-
我建议做一个完整的Decompile。
标签: ms-access