PDA

Vollständige Version anzeigen : Anfügen von x Datensätzen


Michi09
10.02.2001, 14:00
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

Karl-Heinz
11.02.2001, 08:29
Hallo so müsste es funtionieren benutze es selbst fürs etiketten drucken
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