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 ![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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.