The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.
I currently have the attached 2003 code that is running without errors. However I would like to adjust it as necessary to bring it up to 2010 standards. i.e. Like the code above.
Dim DB_nnn As Database Set DB_nnn = CurrentDb Dim RS_00_PROCESS_CTRL_nnn As DAO.Recordset Dim CMD_00_PROCESS_CTRL_nnn As String [CMD_00_PROCESS_CTRL_nnn] = "SELECT Key_1, Field_1 " & _ "FROM 00_PROCESS_CTRL " & _ "WHERE Key_1 = '" & PARM_nnn & "';" Set RS_00_PROCESS_CTRL_nnn = DB_nnn.OpenRecordset([CMD_00_PROCESS_CTRL_nnn], dbOpenDynaset) [WRK_PRIMARY_DB_LOCATION_nnn] = RS_00_PROCESS_CTRL_nnn!Field_1 RS_00_PROCESS_CTRL_nnn.Close Set RS_00_PROCESS_CTRL_nnn = Nothing DB_nnn.Close Set DB_nnn = Nothing