|
Sub Delete_View()
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
On Error GoTo ErrorHandler
conn.Execute "DROP VIEW vw_Employees"
ExitHere:
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
End If
Set conn = Nothing
Exit Sub
ErrorHandler:
If Err.Number = -2147217865 Then
MsgBox "The view was already deleted."
Exit Sub
Else
MsgBox Err.Number & ":" & Err.Description
Resume ExitHere
End If
End Sub
|