Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: D6 - A2k Report starten

    Delphi
    by detom, 21. Mär 2008
  Das Bsp. mit OpenReport habe ich ja mir schon realisiert. Die Frage war, wie mache ich das wenn dieser Report als Datenbasis eine Kreuztabellenabfrage hat.
  Der Report beinhaltet 12 Unterreports (für jedenMonat einen)
  Jeder Unterreport hat als Filter die Frage nach dem entsprechendem Monat (WHERE DatMonth = "Jan" als Bsp.) und als Datenbasis diese KreuzQry.
  Die KreuzQry hat als Basis eine Qry...
• Forum: Datenbanken

  Re: D6 - A2k Report starten

    Delphi
    by detom, 18. Mär 2008
  Den Fehler habe ich nicht wegbekommen - ich stell mich mit Delphi wirklich ungeschickt an.
  Ich habe jetzt eine andere Variante gefunden und habe jetzt dieses:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  begin
  
  Access1.OpenCurrentDatabase('C:\wt2_Rep.mdb', false);
  Access1.Visible:=true;
  Access1.DoCmd.OpenReport('rep_Empl_Year', acViewNormal, EmptyParam, EmptyParam);
• Forum: Datenbanken

  Re: D6 - A2k Report starten

    Delphi
    by detom, 18. Mär 2008
  Hallo,
  
  
  
  danke für deine Nachfrage - du hast natürlich recht :-)
  
  Bei
  
  Access := GetActiveOleObject('Access.Application');
• Forum: Datenbanken

  Re: D6 - A2k Report starten

    Delphi
    by detom, 18. Mär 2008
  Entschuldigung für die Unannehmlichkeiten.
  Die Frage ob Access installiert ist habe ich schon mit ja beantwortet.
  Aber auf meine Fragen habe ich noch keine Antworten bekommen. Ist ja auch nicht schlimm, aber nur auf andere Foren zu verweisen wo ebenfalls noch keiner geantwortet hat, hilft mir auch nicht weiter.
  Ich konnte ja nicht wissen, dass in den drei Foren, in denen ich es versucht hatte,...
• Forum: Datenbanken

  D6 - A2k Report starten

    Delphi
    by detom, 18. Mär 2008
  Hallo,
  
  habe folgenden Code gefunden. Ich weiß nur nicht wo ich noch Veweise setzen muß, damit Delphi was mit Access anzufangen weiß.
  In Uses habe ich "Access2000" und "OleServer" drin stehen.
  
  
  var
  Access: Variant;
  begin
  {open the Access application}