We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How can I check if a field is null and whether it is or not, still run the code||40||70|
|Displaying images within Access Form||6||73|
|Fields don't match on a query||9||43|
|Getting the 7Z zip dll to work with MS Access||8||54|
Join the community of 500,000 technology professionals and ask your questions.