errorhandling i vb

Hvis det ikke virker, kan du overveje at smide fejlbesked i en array.
I slutningen af sub'en, kan du løbe arrayen igennem, hvis den ikke er tom.

Så kan du lave en:

if ubound(arrFejlNummer) > 0 then

  strFejl = "FEJL:" & vbCrLF & vbCrLf
  for i = 0 to ubound(arrFejlNummer)
    strFejl = strFejl & "Nummer: & arrFejlNummer(i) & " - " & arrFejlBesked(i) & vbCrlF
  next

  msgbox strFejl
end if


Koden er skrevet direkte her på Eksperten, så der kan være småfejl.. :-)

Rettelse:

if ubound(arrFejlNummer) > 0 then

  strFejl = "FEJL:" & vbCrLF & vbCrLf
  for i = 0 to ubound(arrFejlNummer)
    strFejl = strFejl & "Nummer: " & arrFejlNummer(i) & " - " & arrFejlBesked(i) & vbCrLf
  next

  msgbox strFejl
end if

jeg prøver lige at forklare igen....(er nemlige ikke så god til forklaringer)

Sub test()
On Error GoTo ErrorHandler
dim a as string

a = "besked sendt til F"
b = "besked kunne ikke sendes til F"
F = "Computer på netwærket"

    For i = 0 To F - 1
            x = send besked til F
            MsgBox a
           
    Next



Exit Sub
ErrorHandler:
    Select Case Err.Number
        Case 8015
            MsgBox b
            Resume Next
        Case Else
            out.Append Err.Number
            Resume Next
        Exit Sub

    End Select
End Sub


sådan ser outputet ud på programmet når der skal sendes 2 beskeder hvor den første fejler og giver msgbox b og ligeefter a ....
"besked kunne ikke sendes til F"
"besked sendt til F"


"besked sendt til F"

MsgBox a skal kun vises i tildfælde af der ikke er kommet fejl..

har fundet en løsning til problemmet....

løsningen bliver ...

    For i = 0 To F - 1
            x = send besked til F
            If fejl <> 1 Then
                out.Append a
            End If
           
    Next

Exit Sub
ErrorHandler:
    Select Case Err.Number
        Case 8015
            MsgBox b
          fejl= 1

            Resume Next
        Case Else
            out.Append Err.Number
            Resume Next
        Exit Sub

    End Select
End Sub