Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Income() Call OPEN_Win("FamilyTEXP", "Winpos") Dim rs As ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "SELECT SUM(TheIncomAmount) as TotalAmount FROM MyIncome where D_Date >= '" & CStr(eFrom1.Value) & "' and D_Date <= '" & CStr(eTo2.Value) & "'" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs Gincome.Caption = (rs("TotalAmount")) Gincome.Caption = Format(Gincome, "###,###,##0.00") End With Set rs = Nothing End Sub Private Sub Compute_Click() Income End Sub
|keep track of different expiration dates for the same item by autogenerating sheets- how to fix the issues i am having?||10||60|
|Use Multiple Forms||4||30|
|Run code from text file in vb||1||17|
|VB6 - Compare and highlight cell not the same||3||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!