微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

如何在MS-Access 2010中对列进行“针对每个”的不同记录?

如何解决如何在MS-Access 2010中对列进行“针对每个”的不同记录?

| 我正在尝试创建一个VBA代码,该代码将贯穿Table1.FieldName值的每个不同记录。我有一个名为\“ Collector \”的字段,并举例说明查询结果:   从表1中选择不同的收集器 以下是 史密斯路 第五大道 桑福德 我希望能够对每个运行使用一个变量,该变量又依次分配给每个结果记录。 如果我遗漏了任何需要的信息,或者如果我不清楚任何事情,请告诉我,我将尝试提供更多信息。 提前致谢。     

解决方法

Dim db As DAO.Database 
Dim rs1 As DAO.Recordset 
Dim v as string

  Set db = CurrentDb()  
  Set rs1 = db.OpenRecordset(\"Select Distinct Collector From Table1\")  

  Do While Not rs1.EOF 
     v = rs1.Fields(0).Value
     \'do something with v
     rs1.MoveNext 
  Loop 


  rs1.Close  
    

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。