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 cmdGoDate_Click() Dim rst As New ADODB.Recordset Dim ssql As String Dim Sdate As String Sdate = DTPicker1.Value ssql = "Select sum(trx_qty),count(distinct item_no) from invt_trx WHERE Convert(varchar,trx_date,101)like'" & Sdate & "'" rst.Open ssql, conn, adOpenStatic, adLockOptimistic If rst.Fields.Item(0) <> "" Then txtUrcv.Text = rst.Fields.Item(0) txtPrcv.Text = rst.Fields.Item(1) Else: MsgBox "No items received on this date", vbOKOnly + vbExclamation, "No Data Found..." End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!