Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site
Partner Button
(Download This Button Today!)

Feedback

"...Just to let you know...what a great site you have. I posted a pretty generic question yesterday and have had 8 responses already, anyway thanks again and keep up the good work..."

Geography

Where in the world do Tek-Tips members come from?
HomerJS (Programmer)
25 Jul 01 8:23
I have a crystal report designer inside a visual basic program.  When I add new records inside the vb program, the report does not find the new data.  I do not save the data with the crystal report so I know that's not the problem.

Any help would be appreciated.

The following is the code I use to send the report to the printer:

Private Sub PrintRequest()
   Dim Report As New CrystalReport1

   Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
   Dim crpParamDef As CRAXDRT.ParameterFieldDefinition
   Dim crpSubreport As CRAXDRT.Report
   Dim crxTable As CRAXDRT.DatabaseTable
   Dim crxTables As CRAXDRT.DatabaseTables

   Screen.MousePointer = vbArrowHourglass

   Set crxTables = Report.Database.Tables
   Set crxTable = crxTables.Item(1)
   crxTable.SetLogOnInfo "BTSQL02", "Freight", "REPORT", "REPORT"

   Set crpParamDefs = Report.ParameterFields

   For Each crpParamDef In crpParamDefs
      With crpParamDef
         Select Case .ParameterFieldName
           Case "NameParm"
              .SetCurrentValue txtEmp.Text
           End Select
       End With
   Next
   Report.EnableParameterPrompting = False

   Report.SelectPrinter PrintData.DriverName, PrintData.DeviceName, PrintData.Port

   'set page orientation MUST be after report.selectprinter
   Report.PaperOrientation = crPortrait

   Report.PrintOut (False) 'don't prompt user
   Screen.MousePointer = vbDefault

   Report.VerifyOnEveryPrint = True    'not sure
   Set crxTables = Nothing             'if these
   Set crxTable = Nothing              'lines are
   Set crpParamDefs = Nothing          'even needed
End Sub
kenhamady (Instructor)
25 Jul 01 19:59
Here is a test.

If you add the records, close the app, reopen the app and run the report, does it find the records added before the close?

Ken Hamady, On-site/Phone Crystal Reports Training/Consulting
Quick Reference Guide to using Crystal in VB
http://www.kenhamady.com/

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close