elimde veritabanını yedeklemeye yarayan bir kod var ancak biraz çekrefilli uğraştırıyor tüm tabloları formları vb tek tek yazmak gerekiyor.
kod şu şekilde;
Private Sub yedek_al_Click()
On Error Resume Next
Dim vt As Object
Dim ydk As String
ydk = "C:\STS Yedek.mdb"
Set trz = CreateObject("Access.Application")
trz.NewCurrentDatabase ydk
Set vt = appaccess.CurrentDb
trz.CloseCurrentDatabase
trz = Nothing
With DoCmd
.SetWarnings False
.CopyObject "c:\STS Yedek", "calisanlar", acTable, "calisanlar"
.CopyObject "c:\STS Yedek", "ba_formu", acTable, "ba_formu"
.CopyObject "c:\STS Yedek", "bs_formu", acTable, "bs_formu"
.CopyObject "c:\STS Yedek", "yapilacak_islemler", acTable, "yapilacak_islemler"
.CopyObject "c:\STS Yedek", "Giriş", acForm, "Giriş"
.CopyObject "c:\STS Yedek", "ba_formu", acForm, "ba_formu"
.CopyObject "c:\STS Yedek", "bs_formu", acForm, "bs_formu"
.SetWarnings True
End With
MsgBox "Programın Yedeği Başarıyla Alınmıştır..", vbApplicationModa, "STS"
End Sub
yapmak istediğim daha az işlemle yedek almak ve tüm veri tabanını yedeklemek "formlar, tablolar, raporlar, makrolar, modüller, sorgular" gibi elimdeki bu kodla yenin eklenen bir işlem olduğunda forum, tablo gibi buraya gelip eklemek gerekiyor ve vakit kaybı oluyor. taha hızlı bir şekilde nasıl yapa bilirim. yardımcı olursanız çok sevinirim.
