herkese merhaba;
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

şeklinde ve bu kodun daha yarısı bile deil 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.