| hier der Code vom formular:
Private Sub kopieren_Click()
On Error GoTo myError
Dim i As Long
'Warnmeldungen ausschalten
DoCmd.SetWarnings False
'Abfrage txtAnzahlKopien-mal ausführen
For i = 1 To Me!txtAnzahlKopien
DoCmd.OpenQuery "kopieLit"
Next i
myExit:
'Warnmeldungen einschalten
DoCmd.SetWarnings True
Exit Sub
myError:
MsgBox "Problemchen: " & Err.Description & " " & Err.Number
Resume myExit
End Sub
Hier das, was die Abfrage anzeigt:
INSERT INTO Literatur ( Aufnahmedatum, Titel, ISBN, Verlag, Jahrgang, Ort, Fach, [E-Preis], Status, Änderungsdatum )
SELECT Literatur.Aufnahmedatum, Literatur.Titel, Literatur.ISBN, Literatur.Verlag, Literatur.Jahrgang, Literatur.Ort, Literatur.Fach, Literatur.[E-Preis], Literatur.Status, Literatur.Änderungsdatum
FROM Literatur
WHERE (((Literatur.ISBN)=[Formulare]![fmr_Lit_kopie]![ISBN]));
Allerdings werden hier die richtigen Datensätze angezeigt.
|