Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルRecordCountが1しか返ってこない
記事No42673
投稿日: 2011/09/07(Wed) 15:48
投稿者YY
解決済: ON
OS:XP
Access Version:2007

お世話になっております。

テーブルにはデータが30レコード存在するのですが、RecordCountが1しか返ってきません。
処理はテーブルのリスト(G_Noo)を変数(Myfolders)に全部格納したいのですが、
最後のレコードリストの値だけを取得し続けて永久にループしてしまいす。

ご教授お願いいたします。

Dim mydb As Database
Dim mysql2 As String
Dim myrs2 As Recordset
Dim Myfolders As String
Dim Myfolder As Variant

mysql2 = "SELECT * FROM T_グループリスト "
Set mydb = CurrentDb()
Set myrs2 = mydb.OpenRecordset(mysql2)

myrs2.MoveFirst
If myrs2.RecordCount > 0 Then
Do Until myrs2.EOF 'グループ名を全部格納
Myfolders = Myfolders & " " & myrs2!G_Noo
Loop
End If
End Sub

タイトルRe: RecordCountが1しか返ってこない
記事No42674
投稿日: 2011/09/07(Wed) 15:51
投稿者さい
解決済: ON
> 最後のレコードリストの値だけを取得し続けて永久にループしてしまいす。

> Do Until myrs2.EOF 'グループ名を全部格納
> Myfolders = Myfolders & " " & myrs2!G_Noo
 myrs2.MoveNext
> Loop

次のレコードに移動してませんね・・・

タイトルRe^2: RecordCountが1しか返ってこない
記事No42676
投稿日: 2011/09/07(Wed) 16:03
投稿者YY
解決済: ON
!!!ほんとですね、失礼いたしました。
ずっとRecordCountが取得できてないせいだと思っていました。
こんな初歩的な質問に返答していただいてすみません、助かりましたありがとうございます。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る