使用Visual Basic从列表框添加记录到表

Question

我试图允许用户双击列表框中的项目，然后将所选值（以及使用SQL的一些相关值）输入到我已准备好的表中。

我会发布我所拥有的代码，但事实是我甚至不知道从哪里开始，所以任何帮助都会受到大力赞赏。

我的列表框（listResult）有3列我希望输入到我的表格（股票转换）。

提前致谢，

Bob P

Answer 1

一种可能性：

Dim qdf As QueryDef

'Temporary query
Set qdf = CurrentDb.CreateQueryDef( _
       "", "Insert Into Table1 (atext,anumber) values ([p1],[p2])")

qdf.Parameters("[p1]") = "abc"
qdf.Parameters("[p2]") = 20
qdf.Execute dbFailOnError