Datensätze mit Ähnlichem Inhalt
PUe
Gesendet: 26.12.11 21:26
Betreff: RE: Datensätze mit Ähnlichem Inhalt


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.
Top of the page Bottom of the page