Gib im Ereignis Deiner DRUCKEN-Taste folgenden Code an: Dim strFilter As String strFilter = "[tblRechnung].[Beleg_Nr] = """ & Me.Beleg_Nr & """" DoCmd.OpenReport "rptRechnung1", acPreview, , strFilterDie Tabellen-Namen und Feldnamen mußt Du natürlich auf Deine Belange umschreiben (Achtung, in o.g. Beispiel ist die Beleg-Nr. ein String, keine Zahl! Wenn Du eine Zahl hast, mußt Du vor und nach Me.Beleg_Nr je 2 Anführungszeichen löschen)GrußLothar

geschrieben von Lothar Rost , 07.08.1999, 22:49 Uhr , 29 mal gelesen