- Katılım
- 20 Mayıs 2005
- Mesajlar
- 154
- Excel Vers. ve Dili
- XP TÜRKÇE
İlişkileri kod yardımyla oluşturmak istiyorum nasıl yapabiliriz
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[LEFT]Private Sub Command1_Click()
Dim db As Database
Dim rel As Relation
Dim fld As DAO.Field
Set db = CurrentDb
Set rel = db.CreateRelation()
With rel
'ilişki adı
.Name = "Name"
'bire çok ilişkili tablo
.Table = "Table1"
'bağlanacak diğer tablo
.ForeignTable = "Table2"
'nitelik isteğe bağlı
.Attributes = dbRelationUpdateCascade
End With
'ilk tablonun anahtar alanı
Set fld = rel.CreateField("FieldID1")
'ikinci tablonun bağlantı alanı
fld.ForeignName = "FieldID2"
'ilişkiyi alan indexine kaydetme
rel.Fields.Append fld
'ilişkiyi ilişkiler indexine kaydetme
db.Relations.Append rel
End Sub[/LEFT]