HandsOn Deleting a View

1. Switch to the Visual Basic Editor window and insert a new module.

2. In the module's Code window, enter the Delete_View procedure as shown below.

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

0 0

Post a comment