‘AŞAĞIDAKİ SUB DA
‘
‘FRM=CRViewer ‘IN BULUNDUĞU FORM
‘
‘PATH=.RPT UZANTILI RAPOR DOSYANIZIN YOLU

‘SQL=SORGUNUZ

‘CNN1=TANIMLANMIŞ VE DB YE BAĞLANTISI YAPILMIŞ BİR CONNECTION NESNESI
‘
‘RS= TANIMLI BİR RECORDSET
“”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”"”" ”"”"
‘KULLANIMI
‘RAPORLA RAPORFORMUM,”C:\RAPOR\RAPORUM.RPT”,”SELECT * FROM TABLOM WHERE ADI=’MUSTAFA KOÇER’”

‘modüle yapıştır

Public CrxApp As New CRAXDRT.Application
Public Report As New CRAXDRT.Report

Public Sub raporla(frm As Form, Path As String, sql As String)

On Local Error Resume Next
Set rs = Cnn1.Execute(sql)
If rs.RecordCount < 1 Then
MsgBox “Hiçbir Kayıt Bulunamadı…”, vbCritical, “UYARI”

Exit Sub
End If

frm.Show
Set Report = CrxApp.OpenReport(Path)
Report.DiscardSavedData
frm.CRViewer1.EnableGroupTree = True
frm.CRViewer1.DisplayGroupTree = False


Report.Database.SetDataSource rs10
frm.CRViewer1.ReportSource = Report
frm.CRViewer1.ViewReport
frm.CRViewer1.Zoom (100)
frm.CRViewer1.Visible = True



End Sub