Deleting a View with SQL command : View « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. View

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








Related examples in the same category

1.Create view
2.Creating a View Based on a Table with SQL command
3.Generating a List of Saved Views
4.Execute the view