以连续形式组合框的文本框

时间:2016-02-22 11:45:18

标签: vba ms-access combobox access-vba ms-access-2013

我希望有人可以在这里提供帮助。我在Access 2013中有一个连续的表单,我已经有代码可以让你搜索一个特定的项目,这是一个按钮的点击事件,我也有一个重置,再次点击事件为另一个按钮。 通过在组合框的行源中使用查询,我设法创建了一个组合,限制了表单中字段可以选择的内容。 (感谢Matt Hill) 还有一个当前事件也可以作为组合框重新运行。

我还设法在组合框上放置一个文本框来隐藏它们,但是我不能让文本框显示组合框有什么,然后当我移动到下一个组合框并选择时保留该数据另一个项目,当前正在发生的是组合框不断变化,所有选择时都显示相同的对象,当我移动到下一个组合框时,它清除所有组合框中的数据并显示新的选择。

这让我很生气,所以任何帮助都会非常感激。

嗨所有更新,请参阅下面的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查询。

再一次任何帮助都会很棒。

1 个答案:

答案 0 :(得分:0)

在连续表单上的未绑定控件充当一个控件 - 因为它们没有控件源。即目标表中的记录/字段,它们是绑定的。