With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Public Sub CopyLocPTDiag(ByVal POldID As Long, ByVal PNewID As Long) Dim rsOld As DAO.Recordset Dim rsNew As DAO.Recordset Set OldDb = DBEngine.Workspaces(0).OpenDatabase("C:\Documents and Settings\rpazmino\Desktop\Migration-Module\Patient data.mdb") Set rsOld = OldDb.OpenRecordset("SELECT * FROM [Locations of Primary Tumors at Diagnosis] WHERE [Patient Number] = " & POldID) Set rsNew = CurrentDb.OpenRecordset("TumorLocationDetails") 'Iterate through records from old table Do While rsOld.EOF = False 'Add record into new table rsNew.AddNew LocID = LocID + 1 'Copy values over rsNew!TumorLocationID = LocID rsNew!PatientID = PNewID rsNew!Event = "Diagnosis" rsNew!TumorType = "Primary Tumor" If rsOld.RecordCount > 1 Then rsNew!TumorLocation = "Multiple" Exit Do Else rsNew!TumorLocation = rsOld![Location of Primary Tumor at Diagnosis] End If 'Save rsNew.Update rsOld.MoveNext Loop rsOld.Close rsNew.Close End Sub
|Access 2013 - Export multiple query/table from access to one excel workbook with formatting||2||27|
|MS Access XML API HTTP POST Call Object Send Not Working Correctly||15||38|
|Problem with syntax with TransferDatabase||3||15|
|Create Files based on Cell Values in a Range in Excel||12||19|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!