ms-access - 从列表框中获取值并复制到未绑定文本框的控制源

Question

我有一个列表框，我想获取 onclick 的值并将其复制到 microsoft access 中列表框的控制源。

SearchResults是列表框的名称

BookTitle是文本框的名称

我已经尝试过这段代码，但它似乎不起作用：

Private Sub SearchResults_OnClick()

BookTitle.ControlSource = Forms!Edit!SearchResults.Column(2)

End Sub

任何帮助都非常感谢谢谢！

Answer 1

为什么要复制到控制源？它是一个字段的名称吗？如果没有，只需设置值：

Private Sub SearchResults_OnClick()

    Me.BookTitle = Me.SearchResults.Column(2)

End Sub

不要忘记列是从零开始编号的。

编辑重新评论

很粗略。

列表框：

SELECT ID, Title FROM tbl_Books WHERE Title LIKE ...

一小段代码：

Private Sub SearchResults_OnClick()
    'Save
    Me.Dirty=False
    'Find
    Me.Recordset.FindFirst "ID=" & Me.SearchResults
End Sub

将合适的控制源添加到任何文本框，以便您可以编辑基础表中的数据。如果您愿意，可以隐藏文本框。