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

在VBA的文本字段中填充表格中的数据,vba,recordset,Vba,Recordset,我需要帮助将数据从记录集中填充到一组标题或文本字段中,以两者中的任何一个为准。我不知道如何进行。我最后一次尝试导致了灾难 编辑为了澄清,以下是将以给定形式进入文本框的查询字符串: "SELECT FROM tbclientes2012 WHERE ccliv = mmyID" 只是我不知道如何正确地做这件事。我发布了这个回复,但我不认为这是任何问题的答案。它假定cpnnombre1是一个文本框,而不是一个标签。我不明白问题的标签和标题部分是从哪里来的。把数据放在标签里听起来真是个坏主意 Dim

我需要帮助将数据从记录集中填充到一组标题或文本字段中,以两者中的任何一个为准。我不知道如何进行。我最后一次尝试导致了灾难

编辑为了澄清,以下是将以给定形式进入文本框的查询字符串:

"SELECT FROM tbclientes2012 WHERE ccliv = mmyID"

只是我不知道如何正确地做这件事。

我发布了这个回复,但我不认为这是任何问题的答案。它假定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

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

可能有助于提示您正在使用哪个应用程序。另外,如果你试过一些代码,展示哪些代码不起作用。谢谢你,蒂姆。你会明白我对这种语言几乎是新手。“我最后一次尝试导致了灾难。”你尝试了什么,导致了什么样的灾难?在我听来,你好像在给自己的生活制造困难。如果您使用的是MS Access,它会很高兴地基于查询构建一个表单,但是,从您所说的内容来看,似乎您有一组数据希望以单行形式呈现。这可能不是一个好主意,因此最好显示一些数据,并添加几行您希望解决的问题。此外,有一些方法可以将数据显示为一行,我认为这比您尝试的方法要简单。我几乎认为,这应该不会那么复杂,但由于我缺乏经验,我尝试了以下方法:
CurrentDb.Execute“SELECT*from tbclientes2012 WHERE UserID=ret”Dim mmydao作为DAO.Database Dim mmydrst作为DAO.Recordset Dim mmySQL作为字符串cpnnombre1.Text=mmydrst.Rows(0)(“nnombre1”).ToString
,错误类似于“Object was expected”。我是VB世界的新手,正在开发一个必须使用指纹识别人的应用程序,我必须根据登录者(宏返回的指纹ID)自动从数据库中输入文本框。也就是说,一旦获得了用户ID,然后自动填充文本框字段,即姓氏、地址、生日等。您的帖子看起来与我需要的内容相似,只是它在
DAO上给了我一个“预期对象”错误。Datebase
您能详细解释一下过程吗,或者给出一些示例代码来理解它。我在
Set mmydao
行中有一个错误,现在我已经更正了。以上是示例代码,基于您的帖子。