I need help creating my own errors in VBA 1

[captphan]

I am calling a boolean function. When it returns False I want it to be treated as an error by my code.

boolvariable = Builtinboolean function
if boolvariable is False then
     ActionOne
     ActionTwo
     ActionThree
     Treat As Error
End if

I can move the actions to my error trapping, this is my error trapping code.

    Select Case Err.Number
        Case Else
            MsgBox Err.Number & " " & Err.Description & Chr(13) & "In Function FunctionName"
            DoCmd.RunSQL "UPDATE ErrorLog SET ErrorLog.ErrNumber = " & Err.Number & ", ErrorLog.ErrDescription = " & Err.Description & " , ErrorLog.ErrFunction = FunctionName ErrorLog.ErrDateTime = # " & Now() & "#, ErrorLog.ErrLine = " & Err.Erl & " , ErrorLog.ErrModule = ModuleName;"
            Resume FunctionName_Exit

    End Select

 

[earthandfire]

Lookup how to Raise an Error in help. You can either use one of the predefined error types or create your own - help will show you how, with examples.


Hope this helps.

 

[captphan]

I have one follow up question.
Is there a place to define an error number with its description or is it only done when Raised

 

[earthandfire]

As you can only have one active error at a time, you can't as far as I am aware predeclare Error objects, however something like his might help.

Public Class Form1

	Private ErrorList As New Dictionary(Of Integer, String)

	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

		ErrorList.Add(-50, "Error -50")
		ErrorList.Add(-100, "Error - 100")

	End Sub

	Private Function xxx() As Boolean

		Return False

	End Function

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		On Error GoTo MyError
		If Not xxx() Then
			Err.Clear()
			Err.Description = ErrorList(-50)
			Err.Raise(-50)
		Else
			MessageBox.Show("OK")
		End If
		Exit Sub

MyError:
		MessageBox.Show(Err.Number.ToString + ": " + Err.Description)

	End Sub

End Class

I'm using 2008, [tt]Private ErrorList As New Dictionary(Of Integer, String)[/tt] has only been available since 2005 - so if you are using an earlier version you may need to use a Collection or 2d array.

Alternatively have a look at Exceptions - they are (I think) more flexible than Errors.


Hope this helps.

 

[earthandfire]

I've just realised, you are using VBA and Access - I didn't read your original post properly, sorry.

You will therefore need to create your own collection or 2d array - the code I posted will only work in VB2005 or VB200-8 with the .NET framework.

 

[captphan]

Thank You for your help. This is what I needed to know.