Supportnet / Forum / Datenbanken
Aktuelle Record Nummer
Frage
Hallo zusammen.
Folgende Situation:
Über ein Formular werden Informationen über diverse Kunden eingegeben. Über einen Button kann man nach dem speichern des Records jeweils diesen ausdrucken. Dies weil es der letzte Eintrag ist und ich via MaxID diesen Record so definieren kann.
Ich möchte, wenn irgendwie möglich, dass man im Formular zu einem beliebigen Record geht und diesen ausdrucken kann. Sozusagen, wenn man zum beispiel bei Record 248 ist, dieser Bericht ausgedruckt wird.
Ist das möglich? Danke schon im Voraus.
Antwort 1 von Locke
Du druckst doch bestimmt per VBA-Code aus und hast in dem Formular bestimmt ein Feld mit der Datensatznummer, oder?
Angenommen Der Bericht heißt "Bericht" und das Feld mit dem Datensatz heißt "Datensätze", dann probier mal folgendes:
Dim Datensätze As String
Datensätze = "[ID]=" & Me![Datensätze]
DoCmd.OpenReport "Bericht", , , Datensätze
Vorraussetzung dafür ist, das im Bericht ein Feld existiert, welches die Nummer das Datensatzes anzeigt und den Namen ID hat.
Hab dafür ID genommen um net noch mehr zu verwirren.
Mit der Variablen "Datensätze" erstellst Du quasi einen String, der dann z.B. wie folgt aussieht: "[ID]=248"
Das bedeutet, als Kriterium zum Ausdrucken wird nur der Datensatz gedruckt, der im Bericht im Feld ID die Nummer 248 hat.
Angenommen Der Bericht heißt "Bericht" und das Feld mit dem Datensatz heißt "Datensätze", dann probier mal folgendes:
Dim Datensätze As String
Datensätze = "[ID]=" & Me![Datensätze]
DoCmd.OpenReport "Bericht", , , Datensätze
Vorraussetzung dafür ist, das im Bericht ein Feld existiert, welches die Nummer das Datensatzes anzeigt und den Namen ID hat.
Hab dafür ID genommen um net noch mehr zu verwirren.
Mit der Variablen "Datensätze" erstellst Du quasi einen String, der dann z.B. wie folgt aussieht: "[ID]=248"
Das bedeutet, als Kriterium zum Ausdrucken wird nur der Datensatz gedruckt, der im Bericht im Feld ID die Nummer 248 hat.
Antwort 2 von achii
Echt super, hat perfekt geklappt. Vielen Dank.
Darf ich noch was anhängen?
Im gleichen Zug kann man den Bericht auch ins Word exportieren. Der Code sieht so aus:
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Was muss ich einfügen, dass nur dieser Eine Record angezeigt wird?
Darf ich noch was anhängen?
Im gleichen Zug kann man den Bericht auch ins Word exportieren. Der Code sieht so aus:
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Was muss ich einfügen, dass nur dieser Eine Record angezeigt wird?