diff --git a/M_omSSMAAConnector.def b/M_omSSMAAConnector.def index a4b01ce..100c392 100644 --- a/M_omSSMAAConnector.def +++ b/M_omSSMAAConnector.def @@ -116,6 +116,12 @@ Dim strDatabaseName As String Debug.Print Now End Function +Public Sub LinkTableViewUsingSSMA(existingTableName As String, toLinkName As String) +Dim cn As String + cn = GetConnectionStringByProperty(existingTableName) + AttachTable cn, toLinkName, toLinkName +End Sub + Sub UpdateSSMAConnectionString(Optional Group As String = "", Optional ConnectionType As ConnectionTypes = ConnectionTypes.Default) Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command