extend function LinkTableViewUsingSSMA to add ConnectionType as param…

…eter
tailormade-eu · Oct 19, 2022 · a2da72e · a2da72e
1 parent 1f837b8
commit a2da72e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/M_omSSMAAConnector.def b/M_omSSMAAConnector.def
@@ -116,9 +116,9 @@ Dim strDatabaseName As String
     Debug.Print Now
 End Function
 
-Public Sub LinkTableViewUsingSSMA(existingTableName As String, toLinkName As String)
+Public Sub LinkTableViewUsingSSMA(existingTableName As String, toLinkName As String, Optional ConnectionType As ConnectionTypes = ConnectionTypes.Default)
 Dim cn As String
-    cn = GetConnectionStringByProperty(existingTableName)
+    cn = GetConnectionStringByProperty(existingTableName, ConnectionType:=ConnectionType)
     AttachTable cn, toLinkName, toLinkName
 End Sub