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

Question

我有一个列表框，我希望获得值onclick并将其复制到microsoft访问中列表框的控件源。

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

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