İlişkileri kod yardımyla oluşturmak

[serkandemirci]

İlişkileri kod yardımyla oluşturmak istiyorum nasıl yapabiliriz

 

[modalı]

Nereden buluyorsunuz bu gibi soruları?

Herneyse araştırıp buldum

 [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]

İyi çalışmalar​

 

[serkandemirci]

başka bir veritabanında oluşturmak istesek yada silmek istesek

nasıl yapacağız

 

[modalı]

O zaman

Set db=currentdatabase

satırını:

Set db= "C:\diğer.mdb"

gibi oluştururuz.

 

[serkandemirci]

denemedim ama çalışacağından adım gibi eminim
büyüksün üstad

 

[serkandemirci]

üstat

başka veritabanındaki ilişkiyi nasıl sileceğiz tabiki kod yardımıyla

sorularım diğer arkadaşlarımızda ilerede ilgilendirebilir diye yazıyorum