Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Deleting a View with SQL command

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