Next without For編譯錯誤

-2

我是VBA新手，正在開發一個項目，該項目將顯示打開特定文件（MS Access）的所有當前用戶。我試圖用計算機名稱信息填充列表框，但在嘗試運行按鈕時出現錯誤command.rs.Fields（0）是我需要的唯一字段，因爲它是計算機名稱。我只需要連接所有計算機名稱的列表。Next without For編譯錯誤

Sub ShowUserRosterMultipleUsers() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 

    Set cn = CurrentProject.Connection 

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}" 

    'While Not rs.EOF 
     'Debug.Print rs.Fields(0), rs.Fields(1), _ 
     'rs.Fields(2), rs.Fields(3) 
     'rs.MoveNext 
    'Wend 

    Do While Not rs.EOF 
     With List73 
      .AddItem rs.Fields(0) 
     End With 
    Next 
End Sub

來源

2016-12-12 Tim R

隨着錯誤消息理所當然指出，'Next'不是結束'待辦事項While'循環的正確途徑。 –

你的行爲雖然應該'循環'而不是'下一步' –

你的意思是像Loop While rs.EOF？ –

-1

Sub ShowUserRosterMultipleUsers() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 

    Set cn = CurrentProject.Connection 

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}" 

    'While Not rs.EOF 
     'Debug.Print rs.Fields(0), rs.Fields(1), _ 
     'rs.Fields(2), rs.Fields(3) 
     'rs.MoveNext 
    'Wend 

    Do While Not rs.EOF 
     With List73 
      .AddItem rs.Fields(0) 
     End With 
    Loop 
End Sub

來源

2016-12-12 14:47:49 Brad

沒有移動你要掛的過程。 – GavinP

@GavinP這個問題說，他試圖填充列表框，並得到一個錯誤。錯誤已被修復。無限循環與他的問題有關。 – Brad

Next without For編譯錯誤

回答

相關問題