title: VBA MS-Access For Loop Not Incrementing
body: <p>Sincerely in the dark. My Code:</p>
  
  <pre><code>Public Property Get rowCount() As Integer
  rowCount = Counter
  End Property
  
  Public Property Let rowCount(ByRef inte As Integer)
   Counter = inte
   End Property
  
  Private Sub Form_Timer() 'Timer
  Dim dbs As DAO.Database
  Dim rs As DAO.Recordset
  Dim Caption As Field, Form As Field, Count As Integer, holder As Integer, item As String
  Dim strForms() As String
  
  Set dbs = CurrentDb
  Set rs = dbs.OpenRecordset("MainMenu", dbOpenDynaset)
  
  ReDim strForms(1 To rs.RecordCount())
  If rs.RecordCount &lt;&gt; 0 Then
    For c = 1 To rs.RecordCount() Step 1 '!!!THIS IS THE PROBLEM!!!
     MsgBox CStr(c)
     MsgBox rs("Caption")
     strForms(c) = rs("Caption")
     rs.MoveNext
     MsgBox rs("Caption")
    Next c
  End If
  rowCount = 1
  holder = rowCount()
  If holder &lt;= rs.RecordCount() Then
   Me.Command10.Caption = strForms(holder)
   rowCount = holder + 1
  Else
   rowCount = 1
   Me.Command10.Caption = strForms(holder)
  End If
  
  End Sub
  </code></pre>
  
  <p>I added all those message boxes in my effort to debug. All I need is that counter to go up. No idea why it is not. Why will this thing not increment?! </p>