Private Sub CmdRpt6_Click() SQL = "SELECT NOTE.*,LOCATION.LOC_NAME From NOTE,LOCATION " SQL = SQL + " Where NOTE.LOC_ID=LOCATION.LOC_ID" Set RS = CON.Execute(SQL) Report6.Database.LogOnServer "pdsORA7.dll", "soft", "", "aus", "aus123" Report6.DiscardSavedData If CmbLoc = Empty Or CmbLoc.Text = "<ALL LOCATIONS>" Then Report6.Field9.Value = "ALL LOCATIONS" // ERROR LINE : OBJECT REQUIRED End If Report6.SQLQueryString = SQL Report6.ReadRecords CRViewer1.ReportSource = Report6 CRViewer1.ViewReport End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)