MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2001)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 10.02.2001, 15:00   #1
Michi09
Neuer Benutzer
Neuer Benutzer
Standard Anfügen von x Datensätzen

Hallo,

Ich habe folgende Frage:
Wie ist es möglich eine Aktion (in diesem Fall das Anfügen des Datensatzes an eine Tabelle) genau so oft machen zu lassen, wie in einem Feld einer anderen Tabelle definiert ist.
Wenn dort also z.B. 30 steht wird dieser Datensatz 30x in die neue Tabelle eingetragen, wenn dort 0 steht keinmal.

Danke für die Antworten

Gruß
Michi
Michi09 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2001, 09:29   #2
Karl-Heinz
MOF User
MOF User
Standard

Hallo so müsste es funtionieren benutze es selbst fürs etiketten drucken
Code:

Dim db As Database
    Dim rs As Recordset
    Dim A As Integer
    Dim Antwort As Integer
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("TmpDruck", DB_OPEN_DYNASET)

DoCmd.Hourglass True
    For A = 1 To Me.[kopie]
        rs.AddNew
        rs("Feld1") = Me![Formular1].Form![Formularfeld1]
        rs("Feld2") = Me![Formular1].Form![Formularfeld2]
        rs("Feld3") = Me![Formular1].Form![Formularfeld3]
        rs.Update
    Next A
    DoCmd.Hourglass False

rs.Close
    DoCmd.GoToRecord , , acNewRec
Vieleicht hilft es
Karl-Heinz
Karl-Heinz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:57 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.