0

こんにちは、私は VB と Access の初心者です。While ステートメントを取り出すたびに疑問に思っていましたが、バグが発生し、実行されません。while ステートメントは MyList=MyRec[email] を設定していると思いますが、そうですか?

しかし、While ステートメントを MyList=MyRec[email] のみに置き換えるたびに、コンパイルされないのはなぜですか。

SQL ステートメントを MyList に MyList=MyRec[email] として配置するコードを単純化しようとしていますが、方法がわかりません...

Dim MyDB As DAO.Database, MyRec As DAO.Recordset, MyList As String
Set MyDB = CurrentDb
Set MyRec = MyDB.OpenRecordset("Select email From TableName")
While Not MyRec.EOF  ' Loop trough the table
MyList = MyList & ";" & MyRec![email]
MyRec.MoveNext
Wend
MyList = Mid(MyList, 2)

' use you code here with the mail list ceated

MyRec.Close
MyDB.Close

本当にありがとう！

4

1 に答える 1

0

SELECTwhile は、ステートメントによってレコードセットに返されたすべてのアイテムを実際にループしています。

While Not MyRec.EOF                    ' While there are emails still in the recordset
 MyList = MyList & ";" & MyRec![email] ' Append the current email to the list
 MyRec.MoveNext                        ' Get the next email in the list
Wend

Whileループと への呼び出しがなければ.MoveNext、リストからすべての電子メール アドレスを取得することはできません。

わかる？

于 2013-06-09T03:19:23.017 に答える