Mendip Data Systems

Database applications for businesses and schools



Public Sub CreateIndexonView(strIndexName As String, strViewName As String, strFields As String)


Dim strSQL As String


strSQL = "Create Index " & strIndexName & " On " & strViewName & "(" & strFields & ")"


CurrentDb.Execute strSQL


End Sub

Code Samples for Businesses, Schools & Personal Use

Create Index on SQL View

Example usage:


CreateIndexonView “IDX_OrderID”, “vw_CustomerExpiredOrders”, “OrderID”

Return to Code Samples Page