使用vba在Access中循環訪問所有記錄的代碼

Question

我需要檢查表中的每個記錄，並且如果p <> 0彈出警告與不好的記錄數，即時通訊使用此代碼但即時獲取錯誤循環沒有不要

Private Sub Command142_Click() 
Dim rs As Recordset 
Set rs = CurrentDb.OpenRecordset("ppp-pd") 
Do While rs.EOF = True 
rs.MoveFirst 
p1 = (Round(rs!brutoprihod - (rs!brutoprihod * rs!ProcPrizTros) - rs!osnovicazaporez)) 
If p1 = 0 Then 
rs.MoveNext 
Loop 
Else 
MsgBox ("not good") 
End If 
MsgBox ("all records are good") 
End Sub 

Answer 1

你不能在循環外部If語句交叉。另外，我認爲如果記錄集是空的，你的代碼只會進入循環。試試這個：

Private Sub Command142_Click() 

    Dim rs As Recordset 

    Set rs = CurrentDb.OpenRecordset("ppp-pd") 

    Do While Not rs.EOF 
     p1 = (Round(rs!brutoprihod - (rs!brutoprihod * rs!ProcPrizTros) - rs!osnovicazaporez)) 
     If p1 <> 0 Then 
      MsgBox ("not good") 
     End If 
     rs.MoveNext 
    Loop 
End Sub