在访问

Question

我需要一些帮助才能通过列表字段创建循环。

listfield：

lstPlanung

功能：

Dim i As Integer

     For i = 0 To Me!lstPlanung.ListCount - 1

             Me!lstPlanung.Selected(i) = True
             Call sendemailKunde

     Next i

是否可以修改它选择listfield的每个条目的循环？

Answer 1

目前尚不清楚。

这是你想要做的吗？

Dim i As Integer
dim strFoo as string 

 For i = 0 To Me!lstPlanung.ListCount - 1

         ' Get the current listbox item in the loop
         strFoo  = Me.lstPlanung.ItemData(i)

         Call sendemailKunde

 Next i

这样，strFoo将在循环的每次迭代中包含列表框的元素。但你必须用它做点什么......