Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
Public Function RefreshAppTables() As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim strConnection As String strConnection = "DRIVER=SQL Server;SERVER=192.168.0.25;DATABASE=MyDB;UID=MyUse;PWD=MYPassword" Set db = CurrentDb Set rs = db.OpenRecordset("tblAppTables") DoCmd.SetWarnings False DoCmd.Hourglass True rs.MoveFirst While Not rs.EOF On Error Resume Next DoCmd.DeleteObject acTable, rs("LocalName") On Error GoTo 0 DoCmd.TransferDatabase acLink, "ODBC", "ODBC;" & strConnection, acTable, rs("SQLName"), rs("LocalName"), False, True rs.MoveNext Wend MsgBox "All Tables Refreshed" DoCmd.SetWarnings True DoCmd.Hourglass False End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.