Hocalarım oluşturduğum tablolardan 2 sini başka bir Access dosyası oluşturarak içerisine bu tabloları yedeklemeyi yapıyor Ana programda tablolar birbirleri ile ilişkili fakat yedek oluşturduğu yerde ilişkili olarak kopyalamadığı için yedekten geri yükle yaptığım zaman ana programın ilişkisi iptal oluyor ve programın akışında sıkıntı oluşturup hatalar vermesine sebep oluyor
Tablolardaki ilişki bozulmadan ilişkili olarak nasıl kopyalamasını (yedeklemesini ve yedekten güncellemesini) sağlarım yardımcı olursanız çok sevinirim
Yedeklemesini istediğim tablolar Ana_giriş ve Şüpheli_Mağdurlar tabloları
Ben fazla incelemedim ancak,ilk gördüğüm dosya adını "Yedek_Data.dat" olarak kayıt ediyorsunuz,neden "dat" da "mdb"veya "accdb" değil accesin uzantısı mdb veya accdb dir.bence site içinde arama yaparsanız çok güzel yedekleme örnekleri var.Arama yapın o örnekleri kendinize uyarlayın
dilerim işinize yarar yapılanlar 1 - ilişkileri kaydetmek için yeni bir tablo eklendi 2 - yeniden ilişkilendirmek için yazılan fonksiyonlar için modül eklendi 3 - referanslara ActiveX Data Object Library eklendi sorunsuz çalışırsa tablo yerine ilişkiler diziye aktarılıp oradan da alınabilir modüle eklenen kodlar 1 - ilişkileri alma ve kaydetme
Visual Basic Code
Sub CbIliskiAl() 'ilişkileri alma ve kaydetme
CurrentDb.Execute " delete from TblIliski "
ForEach rel In CurrentDb.Relations
With rel
If Left(.Name,4)<> "MSys" Then
IliskiAd = .Name
IliskiOzellik = .Attributes
IliskiAnaTbl = .Table
IliskiForeignTbl = .ForeignTable
ForEach fld In .Fields
IliskiAlan = fld.Name
IliskiForeignAlan = fld.ForeignName
CurrentDb.Execute " INSERT INTO TblIliski " _
& "(IliskiAd, AnaTabloAd, HedefTabloAd,AnaAlanAd,HedefALanAd,AlanAtrib) VALUES " _
& "('" & IliskiAd & "', '" & IliskiAnaTbl & "', '" & IliskiForeignTbl & "', '" & IliskiAlan & "', '" & IliskiForeignAlan & "'," & IliskiOzellik & ");"
NextEndIfEndWithNextEndSub
2 - İlişkileri Silme
Visual Basic Code
Sub CbIliskiSil() 'İlişkileri Silme
ForEach rel In CurrentDb.Relations
If Left(rel.Name,4)<> "MSys" Then CurrentDb.Relations.Delete (rel.Name)Next rel
EndSub
3 - İlişkileri yeniden oluşturma
Visual Basic Code
Sub CBIliskiKur()Dim SQL AsStringDim ADO_RS As ADODB.Recordset
Set ADO_RS =New ADODB.Recordset
SQL = "select* from [TblIliski]"
ADO_RS.Open SQL, CurrentProject.Connection,3,1Set db = CurrentDb
With ADO_RS
DoUntil .EOF
Set newRelation = db.CreateRelation(.Fields(0), .Fields(1), .Fields(2))Set relatingField = newRelation.CreateField(.Fields(3)) 'The field from the primary table.
relatingField.ForeignName = .Fields(4) 'Matching field from the related table.
newRelation.Fields.Append relatingField 'Add the field to the relation's Fields collection.
newRelation.Attributes = .Fields(5)
db.Relations.Append newRelation
.MoveNext
LoopEndWith
ADO_RS.Close
Set ADO_RS =Nothing 'Attributes
Set db =Nothing ' CreateRelation =TrueEndSub
Bu da tablo eklemeden yapılan dilerim işinize yarar
sadece geriyükleme butonunun kodu değişti
Visual Basic Code
PrivateSub Komut4_Click()
'------------İÇE AKTARMA KISMI---------------------
'OnErrorGoTo içe_aktar_hata:
'--------Dosya Aktarma değerleri-----------Dim GIliski As DAO.Relation
Dim dbs As DAO.Database
Dim GAlinanVeriTabani AsStringDim fld As DAO.Field
'--------Klasör oluşturma değerleri-----------Dim GDizin AsStringDim GKlasör AsString
'--------dosya Oluşturma değerleri-----------Dim dbNEW As DAO.Database
'-------dosya isimleri değerleri-------------Dim Dosya1 AsStringDim Dosya2 AsString
'---------------------------------------------Dim MSJ1 AsStringDim MSJ2 AsStringDim MSJ3 AsStringDim MSJ4 AsStringDim MSJ5 AsStringDim MSJ6 AsStringDim MSJ7 AsStringDim MSJ8 AsStringDim MSJ9 AsStringDim MSJ10 AsString
'-------------Hata Durumunda Verilecek Hata Mesajı----------------------------------
MSJ1 = "Programı Çalıştırdığınız Klasör içerisinde Yedekleme Dosyası Bulunamadı.." & vbCrLf & vbCrLf
MSJ2 = "Nedenleri.." & vbCrLf
MSJ3 = "1) Daha Önce Yedek Alınmamış olabilir..." & vbCrLf
MSJ4 = "2) Yedekleme Dosyası Başka Bir Klasöre Taşınmış Olabilir..." & vbCrLf & vbCrLf
MSJ5 = "Yapılması Gerekenler.." & vbCrLf
MSJ6 = "(Yedek_Data.dat) İsimli Yedekleme Dosyasını" & vbCrLf
MSJ7 = "( " & GDizin & " ) Klasörü İçerine" & vbCrLf
MSJ8 = "Uzlaştırma Programınızın Bulunduğu Klasöre Kopyaladıktan Sonra Deneyin..."
'---------------- Klasör Varmı Kontrolü Ediliyor -------------------
GDizin = CurrentProject.path & "\" & "Data_Yedek\"
GKlasör = Len(Dir(GDizin, vbDirectory))If GKlasör =0Then
'-------------Klasör Bulunamadı Hata Mesajı -----------------------------
MsgBox MSJ1 & MSJ2 & MSJ3 & MSJ4 & MSJ5 & MSJ6 & MSJ7 & MSJ8,, "VERİ GÜNCELLEME HATASI": GoTo içe_aktar_çıkış
EndIf
'---------------- Dosya Varmı Kontrolü Ediliyor -------------------If Dir(GDizin & "Yedek_Data.dat")<> "Yedek_Data.dat" Then
'-------------Dosya Bulunamadı Hata Mesajı -----------------------------
MsgBox MSJ1 & MSJ2 & MSJ3 & MSJ4 & MSJ5 & MSJ6 & MSJ7,, "VERİ GÜNCELLEME HATASI": GoTo içe_aktar_çıkış
EndIf
GAlinanVeriTabani = GDizin & "Yedek_Data.dat"
GAlinanVeriTabani = GDizin & "Yedek_Data.dat"
'-----------------dosya aktarılıyor --------------
Dosya1 = "Ana_Giris_Eski"
Dosya2 = "Süpheli_Mağdurlar_Eski"
GKontrol1 =False
GKontrol2 =FalseDoCmd.SetWarnings False
'hy_____________________________________________________Tablo İlişkilerini Al
Dim DiziTblIliski()AsVariant
i =0ReDim DiziTblIliski(i,6)ForEach rel In CurrentDb.Relations
With rel
If Left(.Name,4)<> "MSys" ThenReDim DiziTblIliski(i,6)
DiziTblIliski(i,0)= .Name
DiziTblIliski(i,1)= .Table
DiziTblIliski(i,2)= .ForeignTable
DiziTblIliski(i,5)= .Attributes
ForEach fld In .Fields
DiziTblIliski(i,3)= fld.Name
DiziTblIliski(i,4)= fld.ForeignName
Next
i = i +1EndIfEndWithNext
'hy_____________________________________________________Tablo İlişkilerini Al BİTTİ
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
ForEach rel In CurrentDb.Relations
If Left(rel.Name,4)<> "MSys" Then CurrentDb.Relations.Delete (rel.Name)Next rel
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
'-----------------Öncelikli olarak eski ana tablo siliniyor----------Call Delete_Dosya_Varmı '----DOSYALARIN OLUP OLMADIĞI KONTROL ETTİRİLİYOR--------If GKontrol1 =TrueThen
CurrentDb.Execute "DROP TABLE " & Dosya2 & ";" ' tabloyu siler
ElseEndIfIf GKontrol2 =TrueThen
CurrentDb.Execute "DROP TABLE " & Dosya1 & ";" ' tabloyu siler
ElseEndIf
'----------------------------------------------------------------------
'-----Sonra mevcut ana tablo isimleri değiştiriliyor--------------
Dosya1 = "Süpheli_Mağdurlar"
Dosya2 = "Ana_Giris"
GKontrol1 =False
GKontrol2 =FalseCall Readme_Dosya_Varmı
If GKontrol3 =FalseThenDoCmd.Rename Dosya1 & "_Eski", acTable, Dosya1 'tablo ismi değişltirme
EndIfIf GKontrol4 =FalseThenDoCmd.Rename Dosya2 & "_Eski", acTable, Dosya2 'tablo ismi değişltirme
EndIfDoCmd.SetWarnings True
'---------------------------------------------------------------------------------
'------------------------------------------------------------
'---------------------------- Yedek Database den Tablolar aktarılıyor --------------------------------DoCmd.TransferDatabase acImport, "Microsoft Access", GAlinanVeriTabani, acTable, Dosya1, Dosya1,FalseDoCmd.TransferDatabase acImport, "Microsoft Access", GAlinanVeriTabani, acTable, Dosya2, Dosya2,False
'-----------------------------------------------------------------------------------------------------
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur
Set db = CurrentDb
For x = LBound(DiziTblIliski,1)To UBound(DiziTblIliski,1)Set newRelation = db.CreateRelation(CStr(DiziTblIliski(x,0)),CStr(DiziTblIliski(x,1)),CStr(DiziTblIliski(x,2)))Set relatingField = newRelation.CreateField(CStr(DiziTblIliski(x,3))) 'The field from the primary table.
relatingField.ForeignName =CStr(DiziTblIliski(x,4)) 'Matching field from the related table.
newRelation.Fields.Append relatingField 'Add the field to the relation's Fields collection.
newRelation.Attributes =CLng(DiziTblIliski(x,5))
db.Relations.Append newRelation
Next x
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur BİTTİ
MsgBox "Yedek Datalardan Verilerin Aktarımı Tamamlandı...",, "GÜNCELLEME...": GoTo içe_aktar_çıkış:
içe_aktar_hata:
If Err.Number =3343Then
MsgBox "Yedek Dosyanız Açılamıyor... Bozuk veya Tanımsız Dosya..." & vbCrLf & vbCrLf & Space(25)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 01)",, "VERİ GÜNCELLEME HATASI"
EndIfIf Err.Number =3011Then
MsgBox "Dosya İçerisinde Verileri Bulamıyor... Bozulmuş veya Değiştirilmiş Olabilir..." & vbCrLf & vbCrLf & Space(30)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 02)",, "VERİ GÜNCELLEME HATASI"
EndIfIf Err.Number =3376Then
MsgBox "Dosya İçerisinde Verileri Bulamıyor... Bozulmuş veya Değiştirilmiş Olabilir..." & vbCrLf & vbCrLf & Space(30)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 03)",, "VERİ GÜNCELLEME HATASI"
EndIf
içe_aktar_çıkış:
EndSub
aşağıdakiler zaten yukardaki kodun içinde yer alıyor burada sadece ilgili kısımlar var ilişkileri diziye alma kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Al
Dim DiziTblIliski()AsVariant
i =0ReDim DiziTblIliski(i,6)ForEach rel In CurrentDb.Relations
With rel
If Left(.Name,4)<> "MSys" ThenReDim DiziTblIliski(i,6)
DiziTblIliski(i,0)= .Name
DiziTblIliski(i,1)= .Table
DiziTblIliski(i,2)= .ForeignTable
DiziTblIliski(i,5)= .Attributes
ForEach fld In .Fields
DiziTblIliski(i,3)= fld.Name
DiziTblIliski(i,4)= fld.ForeignName
Next
i = i +1EndIfEndWithNext
İlişkileri silme kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
ForEach rel In CurrentDb.Relations
If Left(rel.Name,4)<> "MSys" Then CurrentDb.Relations.Delete (rel.Name)Next rel
İlişkileri yeniden oluşturma kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur
Set db = CurrentDb
For x = LBound(DiziTblIliski,1)To UBound(DiziTblIliski,1)Set newRelation = db.CreateRelation(CStr(DiziTblIliski(x,0)),CStr(DiziTblIliski(x,1)),CStr(DiziTblIliski(x,2)))Set relatingField = newRelation.CreateField(CStr(DiziTblIliski(x,3))) 'The field from the primary table.
relatingField.ForeignName =CStr(DiziTblIliski(x,4)) 'Matching field from the related table.
newRelation.Fields.Append relatingField 'Add the field to the relation's Fields collection.
newRelation.Attributes =CLng(DiziTblIliski(x,5))
db.Relations.Append newRelation
Next x
(16/03/2021 12:38)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: Ben fazla incelemedim ancak,ilk gördüğüm dosya adını "Yedek_Data.dat" olarak kayıt ediyorsunuz,neden "dat" da "mdb"veya "accdb" değil accesin uzantısı mdb veya accdb dir.bence site içinde arama yaparsanız çok güzel yedekleme örnekleri var.Arama yapın o örnekleri kendinize uyarlayın
Hocam (.dat) uzantı aslında (.mdb) uzantı ben kullanıcı yedek oluşturduktan sonra müdahale etmesin diye uzantısının ismini değiştirdim
araştırdım siteyi zaten bu yazdılan kodları da yine sitede bulduğum siz değerli hocaların ve arkadaşların örneklerinden faydalanarak hazırladım lakin yukarıda belirttiğim olayla ilgili bir örnek bulamadım veya araştırmayı beceremedim affınıza
(17/03/2021 00:13)berduş Adlı Kullanıcıdan Alıntı: Bu da tablo eklemeden yapılan dilerim işinize yarar
sadece geriyükleme butonunun kodu değişti
Visual Basic Code
PrivateSub Komut4_Click()
'------------İÇE AKTARMA KISMI---------------------
'OnErrorGoTo içe_aktar_hata:
'--------Dosya Aktarma değerleri-----------Dim GIliski As DAO.Relation
Dim dbs As DAO.Database
Dim GAlinanVeriTabani AsStringDim fld As DAO.Field
'--------Klasör oluşturma değerleri-----------Dim GDizin AsStringDim GKlasör AsString
'--------dosya Oluşturma değerleri-----------Dim dbNEW As DAO.Database
'-------dosya isimleri değerleri-------------Dim Dosya1 AsStringDim Dosya2 AsString
'---------------------------------------------Dim MSJ1 AsStringDim MSJ2 AsStringDim MSJ3 AsStringDim MSJ4 AsStringDim MSJ5 AsStringDim MSJ6 AsStringDim MSJ7 AsStringDim MSJ8 AsStringDim MSJ9 AsStringDim MSJ10 AsString
'-------------Hata Durumunda Verilecek Hata Mesajı----------------------------------
MSJ1 = "Programı Çalıştırdığınız Klasör içerisinde Yedekleme Dosyası Bulunamadı.." & vbCrLf & vbCrLf
MSJ2 = "Nedenleri.." & vbCrLf
MSJ3 = "1) Daha Önce Yedek Alınmamış olabilir..." & vbCrLf
MSJ4 = "2) Yedekleme Dosyası Başka Bir Klasöre Taşınmış Olabilir..." & vbCrLf & vbCrLf
MSJ5 = "Yapılması Gerekenler.." & vbCrLf
MSJ6 = "(Yedek_Data.dat) İsimli Yedekleme Dosyasını" & vbCrLf
MSJ7 = "( " & GDizin & " ) Klasörü İçerine" & vbCrLf
MSJ8 = "Uzlaştırma Programınızın Bulunduğu Klasöre Kopyaladıktan Sonra Deneyin..."
'---------------- Klasör Varmı Kontrolü Ediliyor -------------------
GDizin = CurrentProject.path & "\" & "Data_Yedek\"
GKlasör = Len(Dir(GDizin, vbDirectory))If GKlasör =0Then
'-------------Klasör Bulunamadı Hata Mesajı -----------------------------
MsgBox MSJ1 & MSJ2 & MSJ3 & MSJ4 & MSJ5 & MSJ6 & MSJ7 & MSJ8,, "VERİ GÜNCELLEME HATASI": GoTo içe_aktar_çıkış
EndIf
'---------------- Dosya Varmı Kontrolü Ediliyor -------------------If Dir(GDizin & "Yedek_Data.dat")<> "Yedek_Data.dat" Then
'-------------Dosya Bulunamadı Hata Mesajı -----------------------------
MsgBox MSJ1 & MSJ2 & MSJ3 & MSJ4 & MSJ5 & MSJ6 & MSJ7,, "VERİ GÜNCELLEME HATASI": GoTo içe_aktar_çıkış
EndIf
GAlinanVeriTabani = GDizin & "Yedek_Data.dat"
GAlinanVeriTabani = GDizin & "Yedek_Data.dat"
'-----------------dosya aktarılıyor --------------
Dosya1 = "Ana_Giris_Eski"
Dosya2 = "Süpheli_Mağdurlar_Eski"
GKontrol1 =False
GKontrol2 =FalseDoCmd.SetWarnings False
'hy_____________________________________________________Tablo İlişkilerini Al
Dim DiziTblIliski()AsVariant
i =0ReDim DiziTblIliski(i,6)ForEach rel In CurrentDb.Relations
With rel
If Left(.Name,4)<> "MSys" ThenReDim DiziTblIliski(i,6)
DiziTblIliski(i,0)= .Name
DiziTblIliski(i,1)= .Table
DiziTblIliski(i,2)= .ForeignTable
DiziTblIliski(i,5)= .Attributes
ForEach fld In .Fields
DiziTblIliski(i,3)= fld.Name
DiziTblIliski(i,4)= fld.ForeignName
Next
i = i +1EndIfEndWithNext
'hy_____________________________________________________Tablo İlişkilerini Al BİTTİ
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
ForEach rel In CurrentDb.Relations
If Left(rel.Name,4)<> "MSys" Then CurrentDb.Relations.Delete (rel.Name)Next rel
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
'-----------------Öncelikli olarak eski ana tablo siliniyor----------Call Delete_Dosya_Varmı '----DOSYALARIN OLUP OLMADIĞI KONTROL ETTİRİLİYOR--------If GKontrol1 =TrueThen
CurrentDb.Execute "DROP TABLE " & Dosya2 & ";" ' tabloyu siler
ElseEndIfIf GKontrol2 =TrueThen
CurrentDb.Execute "DROP TABLE " & Dosya1 & ";" ' tabloyu siler
ElseEndIf
'----------------------------------------------------------------------
'-----Sonra mevcut ana tablo isimleri değiştiriliyor--------------
Dosya1 = "Süpheli_Mağdurlar"
Dosya2 = "Ana_Giris"
GKontrol1 =False
GKontrol2 =FalseCall Readme_Dosya_Varmı
If GKontrol3 =FalseThenDoCmd.Rename Dosya1 & "_Eski", acTable, Dosya1 'tablo ismi değişltirme
EndIfIf GKontrol4 =FalseThenDoCmd.Rename Dosya2 & "_Eski", acTable, Dosya2 'tablo ismi değişltirme
EndIfDoCmd.SetWarnings True
'---------------------------------------------------------------------------------
'------------------------------------------------------------
'---------------------------- Yedek Database den Tablolar aktarılıyor --------------------------------DoCmd.TransferDatabase acImport, "Microsoft Access", GAlinanVeriTabani, acTable, Dosya1, Dosya1,FalseDoCmd.TransferDatabase acImport, "Microsoft Access", GAlinanVeriTabani, acTable, Dosya2, Dosya2,False
'-----------------------------------------------------------------------------------------------------
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur
Set db = CurrentDb
For x = LBound(DiziTblIliski,1)To UBound(DiziTblIliski,1)Set newRelation = db.CreateRelation(CStr(DiziTblIliski(x,0)),CStr(DiziTblIliski(x,1)),CStr(DiziTblIliski(x,2)))Set relatingField = newRelation.CreateField(CStr(DiziTblIliski(x,3))) 'The field from the primary table.
relatingField.ForeignName =CStr(DiziTblIliski(x,4)) 'Matching field from the related table.
newRelation.Fields.Append relatingField 'Add the field to the relation's Fields collection.
newRelation.Attributes =CLng(DiziTblIliski(x,5))
db.Relations.Append newRelation
Next x
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur BİTTİ
MsgBox "Yedek Datalardan Verilerin Aktarımı Tamamlandı...",, "GÜNCELLEME...": GoTo içe_aktar_çıkış:
içe_aktar_hata:
If Err.Number =3343Then
MsgBox "Yedek Dosyanız Açılamıyor... Bozuk veya Tanımsız Dosya..." & vbCrLf & vbCrLf & Space(25)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 01)",, "VERİ GÜNCELLEME HATASI"
EndIfIf Err.Number =3011Then
MsgBox "Dosya İçerisinde Verileri Bulamıyor... Bozulmuş veya Değiştirilmiş Olabilir..." & vbCrLf & vbCrLf & Space(30)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 02)",, "VERİ GÜNCELLEME HATASI"
EndIfIf Err.Number =3376Then
MsgBox "Dosya İçerisinde Verileri Bulamıyor... Bozulmuş veya Değiştirilmiş Olabilir..." & vbCrLf & vbCrLf & Space(30)& "İŞLEM GERÇEKLEŞTİRİLEMEDİ... (Hata: 03)",, "VERİ GÜNCELLEME HATASI"
EndIf
içe_aktar_çıkış:
EndSub
aşağıdakiler zaten yukardaki kodun içinde yer alıyor burada sadece ilgili kısımlar var ilişkileri diziye alma kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Al
Dim DiziTblIliski()AsVariant
i =0ReDim DiziTblIliski(i,6)ForEach rel In CurrentDb.Relations
With rel
If Left(.Name,4)<> "MSys" ThenReDim DiziTblIliski(i,6)
DiziTblIliski(i,0)= .Name
DiziTblIliski(i,1)= .Table
DiziTblIliski(i,2)= .ForeignTable
DiziTblIliski(i,5)= .Attributes
ForEach fld In .Fields
DiziTblIliski(i,3)= fld.Name
DiziTblIliski(i,4)= fld.ForeignName
Next
i = i +1EndIfEndWithNext
İlişkileri silme kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Sil BİTTİ
ForEach rel In CurrentDb.Relations
If Left(rel.Name,4)<> "MSys" Then CurrentDb.Relations.Delete (rel.Name)Next rel
İlişkileri yeniden oluşturma kodu
Visual Basic Code
'hy_____________________________________________________Tablo İlişkilerini Yeniden Kur
Set db = CurrentDb
For x = LBound(DiziTblIliski,1)To UBound(DiziTblIliski,1)Set newRelation = db.CreateRelation(CStr(DiziTblIliski(x,0)),CStr(DiziTblIliski(x,1)),CStr(DiziTblIliski(x,2)))Set relatingField = newRelation.CreateField(CStr(DiziTblIliski(x,3))) 'The field from the primary table.
relatingField.ForeignName =CStr(DiziTblIliski(x,4)) 'Matching field from the related table.
newRelation.Fields.Append relatingField 'Add the field to the relation's Fields collection.
newRelation.Attributes =CLng(DiziTblIliski(x,5))
db.Relations.Append newRelation
Next x
Hocam elinize sağlık inceleyip denedikten sonra en kısa sürede geri bildirim yapacağım verdiğiniz emek ve uğraş için çok teşekkür ederim ellerinize sağlık
Değişimde gelişimde beyinlerin değişmesi ve gelişmesi ile olur. By Bibib
Cevapla
Son Düzenleme: 17/03/2021, 16:42, Düzenleyen: bibib.