Ailton Zacarias (Desenvolvedor VBA)

Public Function CriarVinculo()
Dim rVinculo As DAO.Recordset

Set rVinculo = CurrentDb.OpenRecordset(“Select * from admVinculos”)

While Not rVinculo.EOF

DoCmd.TransferDatabase acLink, “ODBC”, “ODBC;DSN=” & rVinculo.Fields(“Banco”) & “;UID=” & rVinculo.Fields(“Usuario”) & “;PWD=” & rVinculo.Fields(“Senha”) & “;LANGUAGE=us_english;DATABASE=” & rVinculo.Fields(“Base”) & “”, acTable, rVinculo.Fields(“Origem”), rVinculo.Fields(“Destino”), , True

rVinculo.MoveNext

Wend

rVinculo.Close

Set rVinculo = Nothing

End Function

Public Function RemoverVinculo()
Dim rVinculo As DAO.Recordset

Set rVinculo = CurrentDb.OpenRecordset(“Select * from admVinculos”)

While Not rVinculo.EOF

DoCmd.DeleteObject acTable, rVinculo.Fields(“Destino”)

rVinculo.MoveNext

Wend

rVinculo.Close

Set rVinculo = Nothing

End Function

Public Function ExecutarSQL(strSQL As String)

‘Desabilitar menssagens de execução de comando do access
DoCmd.SetWarnings False

DoCmd.RunSQL strSQL

‘Abilitar menssagens de execução de comando do access
DoCmd.SetWarnings True

End Function

Public Function ImprimirExcel(Modelo As String)

Dim XPlanilha As Object

Set XPlanilha = CreateObject(“Excel.Application”)

‘Abre o arquivo modelo
XPlanilha.Workbooks.Open (Modelo)

‘Seleciona a primeira planilha
XPlanilha.Workbooks(1).Sheets(1).Select

XPlanilha.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

XPlanilha.Application.DisplayAlerts = False

XPlanilha.Quit

XPlanilha.Application.DisplayAlerts = True

Set XPlanilha = Nothing

End Function

Public Function ImportarPlanilha()

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, “tblClientes”, “C:\Clientes.xls”, True, “Clientes!a1:g35″

End Function