PAVv3 VBA

Call PAV directly from MS-Access or Excel.

Code Snippet from AddCdyneLocationInfo for updating additional CDYNE fields in separate table:

'Get recordset of columns - names must be spelled same way as xmldoc (case sensitive) vSQL = "select column_name from information_schema.columns where table_name='cdyne' " vSQL = vSQL & "and column_name not in ('cdyneid','recordtype')" rsCols.Open vSQL, cnlocal, adOpenForwardOnly, adLockReadOnly

'Loop through each column to update the value 'Columns must be named identically to Cdyne field names With rs   .Open vSQL, cnlocal, adOpenKeyset, adLockPessimistic

rs.AddNew !RecordType = vRecordType Do While Not rsCols.EOF Set vtag = xmldoc.getElementsByTagName(rsCols!column_name) rs(Trim(rsCols!column_name)) = vtag(0).Text rsCols.MoveNext Loop !DateLastUpdated = Now .Update

End With