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.
Private Sub CalcKim_Click() Dim rsActivity As ADODB.Recordset Dim cnUDB As ADODB.Connection Set cnUDB = New ADODB.Connection With cnUDB .Provider = "MSDASQL" .ConnectionString = "Data Source=db2psn" .Properties("Prompt") = adPromptCompleteRequired .Open End With '0-30 days sSQL = "" sSQL = sSQL & "SELECT Count(I_SYS_CLM)AS thirtydayKim " sSQL = sSQL & "FROM PROD_VLTC900A_CLM p INNER JOIN Teams t ON p.Custodian = t.CustodianID " sSQL = sSQL & "WHERE p.PendingStatus = 'PC' And t.Manager = 'Kim' " 'And DateDiff('d',[DatePending],Date()) <=30" Set rsActivity = New ADODB.Recordset With rsActivity .CursorType = adOpenForwardOnly .CursorLocation = adUseServer .LockType = adLockReadOnly .Open sSQL, cnUDB End With Me.k2 = rsActivity!thirtydayKim
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!