Beziehung löschen

06/02/2008 - 17:39 von Franz-Josef Stiensmeier | Report spam
Hallo,

bei folgendem Code-Schnipsel bekomme ich eine die Fehlermeldung

Fehler 3265
Element in dieser Auflistung nicht gefunden
__________________________________________________________
Dim db As DAO.Database
Dim rel As DAO.Relation
Dim fld As DAO.Field


'On Error GoTo fktBeziehungLöschen_Error
Dim Modulname As String
Modulname = "fktBeziehungLöschen"

Set db = CurrentDb


'Beziehungsobjekt erstellen
Set rel = db.CreateRelation()
'-
'Eigenschaften festlegen des RelationOjekts festlegen
'-
'festlegen der betroffenen Tabellen
With rel
.Name = "BeziehungTabelle" 'scheints egal was man hier eintippt?
.Table = strTabelle1
.ForeignTable = strTabelle2
End With
'festlegen der betroffenen Felder
Set fld = rel.CreateField(strFeld1)
fld.ForeignName = strfeld2
rel.Fields.Append fld

'-
'Relation an die Datenbank anfügen
'-
db.Relations.Delete rel.Name 'in dieser Zeile kommt die Fehlermeldung
_______________________________________________________

Was mache ich hier falsch?

mfg

FJS

AXP alle SP, WindowsXP alle SP
 

Lesen sie die antworten

#1 Jörg Ostendorp
06/02/2008 - 18:00 | Warnen spam
Hallo Franz-Josef,

'-
'Relation an die Datenbank anfügen
'-
db.Relations.Delete rel.Name 'in dieser Zeile kommt die Fehlermeldung
_______________________________________________________

Was mache ich hier falsch?



Bei Microsoft ist ja vieles denkbar. Aber normalerweise führt eine
.delete-Anweisung nicht dazu, daß etwas angefügt wird ;-)
Hast Du es mal mit einem .append rel versucht?

Grüßle vom Bodensee
Jörg Ostendorp

Access-FAQ: www.donkarl.com

Ähnliche fragen