Custom Errors [RESOLVED]

[JCScoobyRS]

I'd like to be able to create a custom error. Can someone help? Thanks, Jeremy

[mxnmx]

Read about Err Object in MSDN

Dim Msg
' If an error occurs, construct an error message
On Error Resume Next   ' Defer error handling.
Err.Clear
Err.Raise 6   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
   Msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & Err.Description
   MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext
End If

[mxnmx]

In the following code, the program looks if a user accoun exists or not, if it does not it asks user to create it and if any error occurs, the Error Handler, raises a Custom Error...is this is what you are after

Public Function pwdConnect()
    Dim strMsg As String
    Dim strTitle As String
    Dim strStyle As String
    Dim strResponse As String
    On Error GoTo Mover
    Set dbLogin = OpenDatabase("d:\net doctor\db2.mdb")
    Set rstLogin = dbLogin.OpenRecordset("Access", adOpenDynamic)
    With rstLogin
    .OpenRecordset
    If (IsNull(rstLogin.Fields(0))) = True Or (rstLogin.Fields(1)) = True Then
        strStyle = vbYesNo + vbQuestion
       strMsg = "No User account Exists, Would you like to create one now?"
       strTitle = "NET DOCTOR"
       strResponse = MsgBox(strMsg, strStyle, strTitle)
    If strResponse = vbYes Then
        Load frmCreate
        Me.Hide
        frmCreate.Show
    ElseIf strResponse = vbNo Then
        Me.Show
    ElseIf (IsNull(rstLogin.Fields(0))) = False Or (rstLogin.Fields(1)) = False Then
        Me.Show
    End If
    End If
    
    End With
    Exit Function
Mover:
        MsgBox "There is Current no record"
        If rstLogin.EOF = True Then
            rstLogin.AddNew
            Resume
        End If
End Function

[JCScoobyRS]

Works for me. Thanks, Jeremy