Question

我试图显示来自我表格特定部门的所有请求的列表

所以我创建了一个包含所有tbl字段的表单，我希望在“详细信息”部分的表单视图中显示这样的字段。

 dept name Totalnum req#  ticket

然后我创建了一个预定义值为'depttest'字段的组合框。

然后我在字段的更改值上使用了以下代码，但是表单只显示该类别的第一条记录而没有显示所有记录....可以请一些人帮我解释这个逻辑..

Option Compare Database

Option Explicit

'Set default record source of form

Const strsql = "SELECT tbl.dept,tbl.name,tbl.[Totalnum],tbl.[req#],tbl.[Ticket] FROM tbl"

Private Sub depttest_Change()

Dim strFilterSQL As String

strFilterSQL = strsql & " Where [dept] = 'me.depttest.value';"

Me.RecordSource = strFilterSQL

'DoCmd.RunSQL strFilterSQL

Me.Requery

End Sub

Answer 1

您将me.depttest.value作为字符串而不是值传递。尝试：

strFilterSQL = strsql & " Where [dept] = '" & me.depttest.value & "';"

MS访问以查看具有特定输入字段值的所有记录历史数据，但它仅显示第一条标准记录

1 个答案: