Kod:
Private Sub Form_Unload(Cancel As Integer)
OtoYedek
End Sub
Function OtoYedek()
On Error GoTo hatalar
Dim gonder
Set gonder = CreateObject("Scripting.FileSystemObject")
If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\yedek"
End If
gonder.CopyFile CurrentProject.FullName, Application.CurrentProject.Path & "\yedek\" & Format(Now(), "dd/mm/yyyy mmmm dddd hh nn ss") & ".mdb"
Set gonder = Nothing
Exit_hatalar:
Exit Function
hatalar:
MsgBox Err.Description, vbExclamation, "A-Yapı"
Resume Exit_hatalar
End Functionzararın neresinden dönülürse kardır derler geçmişe değilde geleceğe bakmak için
alttaki yeekleme kodlarını bir forma ekleyin yada örnek uygulamayı inceleyin
saygılarımla
