Question

求access VBA代码：运行查询，并将查询结果 输出至 窗体的文本框中

查询[入库单]的第一条记录（select top 1 * from 入库单）
并将第一条记录的第一个字段的值输出至当前窗体的文本框 text1中。

需要的是在VBA中的代码。

Answer 1

dim rs as new ADODB.Recordset
rs.open "select top 1 * from 入库单",currentproject.connection,1,1
me.text1.value=rs(0).value
rs.close
set rs=nothing