Toon posts:

[Delphi] Database Reports selecteren?

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb deze code gebruikt om een report te printen. Maar nu is mijn vraag hoe kan ik er een report printen zonder dat je daar precies de naam van weet van het report. Op welke manier kun je er een report selecteren uit de database zonder dat je dus de naam weet van het report? Ik heb me op google en MSDN gek lopen zoeken maar ik kan het niet vinden. En ik weet dat hier mensen zijn die hier best goed in zijn. Jullie zouden mij er een groot plezier mee doen.

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
AccessApplication1.Connect;
  AccessApplication1.OpenCurrentDatabase('D:\db.mdb', False);
  try
    AccessApplication1.DoCmd.OpenReport('bla', acViewPreview, EmptyParam, EmptyParam);
    AccessApplication1.DoCmd.RunCommand(acCmdPrint);

    Showmessage('Click OK when finished...');
  finally
    try
    AccessApplication1.CloseCurrentDatabase;
    AccessApplication1.Disconnect;
    except
    { User already closed it... }
    end;
  end;
end;

Bedankt alvast.

Verwijderd

Topicstarter
Niemand een idee??? :'(

Verwijderd

Topicstarter
Weet iemand misschien een andere manier hoe het zou kunnen?

  • ThePriest
  • Registratie: Mei 2000
  • Laatst online: 30-01-2024

ThePriest

the one, the only

Eigenlijk ben ik hier ook wel erg benieuwd naar...

Verwijderd

Property Reports ofzo :?

  • Tomatoman
  • Registratie: November 2000
  • Laatst online: 22:24

Tomatoman

Fulltime prutser

In Access kun je alleen een overzicht krijgen van de geopende rapporten via het Reports-object. Wil je alle rapporten opsommen, dan moet je dat via de Documents-objecten in het 'Reports' Container-object doen. In VBA:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub DoSomethingWithAReport(ReportName As String)
    Dim dbs As Database, ctr As Container, doc As Document

    Set dbs = CurrentDb
    Set ctr = dbs.Containers!Reports
    'Iterate through all reports (closed and open)
    For Each doc In ctr.Documents
      'doc.Name is the report name
      If doc.Name = ReportName Then
        'Do something here
        Exit Sub
      End If
    Next doc
    Set dbs = Nothing
End Sub

Een goede grap mag vrienden kosten.


  • Tom-my
  • Registratie: November 2000
  • Laatst online: 19-06 09:25

Tom-my

w03iz0rz

probeeer het is op www.nldelphi.com/forum

"Then there was the man who drowned crossing a stream with an average depth of six inches."

Pagina: 1