从VBA中的文本字段中的表填充数据

时间:2012-02-28 01:20:45

标签: vba recordset

我需要帮助将Recordset中的数据填充到一组标题或文本字段中,以较小者为准。我不知道该怎么办。我的最后一次尝试导致了灾难。

修改为了澄清,这里是查询STRING将进入给定表单的文本框:

"SELECT FROM tbclientes2012 WHERE ccliv = mmyID"

只有我不知道如何正确地做到这一点。

1 个答案:

答案 0 :(得分:0)

我发布此回复,但我认为这不是答案。它假定cpnnombre1是文本框,而不是标签。我不明白问题的标签和标题的来源。将数据放入标签中听起来是个坏主意。

Dim mmydao As DAO.Database 
Dim mmydrst As DAO.Recordset 
Dim mmySQL As String 

Set mmydao = CurrentDb
mmySQL = "SELECT * from tbclientes2012 WHERE UserID = ret"
Set mmydrst = mmydao.OpenRecordset(mmySQL)
Me.cpnnombre1 = mmydrst!nnombre1

根据实际需求,可能还有其他几种更好的解决方案。