Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.
Private Sub cmdRun_Click() Dim i As Integer, iCount As Integer, rst As Recordset, recSet As Recordset Dim sSql As String, iSql As String, cSql As String, i2 As Integer Dim iCount2 As Integer, mSql As String, newSet As Recordset, aSql As String Dim Tr2 As String, Tr3 As String, Tr4 As String, RD As String Dim Tr2F As DAO.Field, Tr3F As DAO.Field, Tr4F As DAO.Field, RF As DAO.Field Dim wrkSet As Recordset Tr2 = "AttempType2_": Tr3 = "AttempType3_": Tr4 = "AttempType4_": RD = "Results_" sSql = "qryUnique" Set rst = CurrentDb.OpenRecordset(sSql) If rst.EOF = False Then rst.MoveLast: rst.MoveFirst: iCount = rst.RecordCount - 1: i = 1 Else MsgBox "No Recs" End If Do Until i = iCount cSql = "Select Count([RID]) as myCount from tblHOH where RID = '" & rst!RID & "'" Set recSet = CurrentDb.OpenRecordset(cSql): i2 = 1: recSet.MoveLast: recSet.MoveFirst: iCount2 = recSet!myCount + 1 mSql = "Select AttempType2 as A2, AttempType3 as A3, AttempType4 as A4, Results as RT from tblHOH where tblHOH.RID = '" & rst!RID & "'" Set newSet = CurrentDb.OpenRecordset(mSql) aSql = "Select * from tblWork" Set wrkSet = CurrentDb.OpenRecordset(aSql) wrkSet.MoveLast: wrkSet.MoveFirst: Dim iWk As Integer: iWk = wrkSet.RecordCount Do Until i2 = iCount2 Tr2 = Tr2 & CStr(i2) Debug.Print Tr2 ' = AttempType2_1 when it debug prints. wrkSet.Fields(Tr2F) = Tr2 CurrentDb.Execute iSql, dbFailOnError i2 = i2 + 1 recSet.MoveNext Loop i = i + 1 rst.MoveNext Loop End Sub
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.