お世話になります。
当方Access初心者です。
以下コードをデバックしながら実行すると、データは338件ある(※)のですが、
「'処理・・・・・・・」のコードに一度も入らず、
「rs.close」にとんでしまいます。
※:イミディエイトウィンドウにて確認しました。
?Dcount("*", "Q_3")
338
--------------------------------------------------------
Private Sub Cmd3_click()
Dim rs As New ADODB.Recordset
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly
rs.Open "Q_3", CurrentProject.Connection
Do Until rs.EOF
'処理・・・・・・・
rs.MoveNext
Loop
rs.Close
End Sub
--------------------------------------------------------
なぜ、「'処理・・・・・・・」に入らないのか理由が分からず、
色々調べてみたのですが、なかなか解決策を見つけられないので、
助けていただけますと幸いに存じます。
どうぞよろしくお願いいたします。