Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.80K
1 Posted Topic
[CODE] Dim rs As New ADODB.Recordset Private Sub Command1_Click() Me.CrystalReport1.DataFiles(0) = App.Path & "\Database.mdb" Me.CrystalReport1.ReportFileName = App.Path & "\Reports\BRYeild.rpt" Me.CrystalReport1.SelectionFormula = "{NewJob.strShipmentType}='" & Combo1.Text & "' and {NewJob.Date}>=#" & MaskEdBox1.Text & "# and {NewJob.Date} <=#" & MaskEdBox2.Text & "#" Me.CrystalReport1.WindowState = crptMaximized Me.CrystalReport1.Action = 1 End Sub Private Sub Form_Load() …
The End.