ループ内でエラーが発生したときにエラーステートメントが機能しない

Question

これはバグである可能性がありますか？またはここにsmtがありませんか？ユニークキーエラーを取得しますが、私はしたいが、次の行、それだけのためにしたい履歴書を求められることがいけない

Do While Not somevalue= "" 

sorgu = "INSERT INTO somedb VALUES('" & somevalue & "')" 
On Error GoTo est 
rs.Open sorgu, cnn 

j = j + 1 

est: Loop 

イム。

On Error doesntの仕事このエラーを持ちます。

私はDo While Loopを使用する必要があります。

エラーのプロンプトが表示されないようにするにはどうすればよいのですか。なぜこの時点でOn Error文が動作しないのですか。

Answer 1

例にいくつか問題がありますが、質問に答えるには、エラーハンドラをに変更してください。エラー再開次のを追加するか、実際のエラーハンドラを追加してerr.Numberを確認し、

Do While Not somevalue= "" 

     sorgu = "INSERT INTO somedb VALUES('" & somevalue & "')" 
     On Error GoTo est 
     rs.Open sorgu, cnn 

     j = j + 1 

    Loop 

est: 
    'some error handling code 

また、Go文をDo文の直前に移動することもお勧めします。あなたが持っているので、ループが実行されるたびにOn Errorリダイレクトを不必要に割り当てます。

On Error GoTo est 
    Do While Not somevalue= "" 

     sorgu = "INSERT INTO somedb VALUES('" & somevalue & "')" 
     rs.Open sorgu, cnn 

     j = j + 1 

    Loop 

est: 
    If err.Number = (unique key error) 
     Resume Next 
    Else 
     MsgBox "An error occurred while inserting records. Error " & CStr(Err.Number) & ", " & Err.Description