【发布时间】:2016-06-03 19:51:34
【问题描述】:
我希望有人可以在这里提供帮助。我在 Access 2013 中有一个连续表单,我已经有代码允许您搜索特定项目,这是一个按钮的单击事件,我也有一个重置,它再次是另一个按钮的单击事件。 通过在组合框的行源中使用查询,我设法创建了一个组合,该组合限制了表单中的字段可以选择的内容。 (感谢马特希尔) 还有一个当前事件作为组合框重新查询也在运行。
我还设法在组合框上放置了一个文本框以隐藏它们,但是我无法让文本框显示组合框的内容,然后在我移动到下一个组合框并选择时保留该数据另一个项目,当前发生的是组合框不断变化,并且在选择时都显示相同的对象,当我移动到下一个组合框时,它会清除所有组合框中的数据并显示新的选择。
这让我发疯了,所以任何帮助都将不胜感激。
您好所有更新,请参阅下面的 VBA 以了解正在运行的内容:
Private Sub Command26_Click()
Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtsearch) Or Me.txtsearch = "" Then
MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
Me.txtsearch.BackColor = vbYellow
Me.txtsearch.SetFocus
Else
strsearch = Me.txtsearch.Value
Task = "SELECT * FROM Base_Data WHERE ((PARENT_FSC Like ""*" & strsearch & "*""))"
Me.RecordSource = Task
Me.txtsearch.BackColor = vbWhite
End If
End Sub
Private Sub Command27_Click()
Dim strsearch As String
strsearch = "SELECT * from Base_Data"
Me.RecordSource = strsearch
End Sub
Private Sub Form_Current()
Me.cboComponent.Requery
End Sub
除了运行这段代码之外,我还在表单属性的记录源中有一个 SQL 查询。
再次,任何帮助都会很棒。
【问题讨论】:
-
您必须向我们提供更多信息才能为您提供帮助。组合框是否以某种方式链接(按名称、按组或其他方式)?表单上是否有任何 VBA 代码在进入您的任何控制框时会自动更改任何内容?如果到目前为止有任何 VBA 代码,请将其包含在您的问题中。
-
截图也会有所帮助。听起来有点像在连续表单的详细信息部分中有一个未绑定的组合框 - 这将始终在所有行中显示相同的数据。
-
您好,感谢您的回复。对不起,我不得不继续另一个优先的切线任务。回顾一下,我将尝试获取一些查询和代码的屏幕截图。
-
@Ralph 请看附件,时差见谅。回到这一点,并感谢任何帮助。干杯
-
@Andre 你好,只是把更多的细节放在上面,很抱歉长时间的延迟。任何帮助都会很棒。干杯
标签: ms-access combobox vba ms-access-2013