|
Member
Beiträge: 9
| Hallo Lorenz.
Habe beide Variationen getestet.
bei CurrentDb.Execute "Duplikate suchen zu Anmeldung"
kommt die Fehlermeldung: Laufzeitfehler 3065 Eine Abfrage konnte nicht ausgeführt werden.
bei DoCmd.OpenQuery "Duplikate suchen zu Anmeldung"
Wird das Abfragefenster geöffnet sonst nichts.
Hier der ganze Code
Private Sub Anmeldeliloe_Click()
'DoCmd.OpenQuery "Duplikate suchen zu Anmeldung"
CurrentDb.Execute "Duplikate suchen zu Anmeldung"
End Sub
und in der Abfrage :
SELECT Anmeldung.[Namen], Anmeldung.[Geburts_Dat], Anmeldung.[Vorname], Anmeldung.[ID]
FROM Anmeldung
WHERE (((Anmeldung.[Namen]) In (SELECT [Namen] FROM [Anmeldung] As Tmp GROUP BY [Namen],[Geburts_Dat],[Vorname] HAVING Count(*)>1 And [Geburts_Dat] = [Anmeldung].[Geburts_Dat] And [Vorname] = [Anmeldung].[Vorname])))
ORDER BY Anmeldung.[Namen], Anmeldung.[Geburts_Dat], Anmeldung.[Vorname];
Tut mir leid für deine Mühe aber es ist immer noch erfolglos.
Werner | |
|