Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » yedekleme ve form kapanışında yedek alınmadı uyarısı
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Yeni bir objeyi Clipboard?a ve Clipboard?dan kopyalamak

Yazar: eserdar

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 4539
Yayın Tar:05.10.2005
Yazar : zaxaca
Hit :2881

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

yedekleme yapacağınız form üzerinde bir butona cmdyedekle adını verin.Ve kod kısmına aşağıdakileri yazın.

Private Sub cmdyedekle_Click()
Dim yanit, mesaj, YOL
YOL = Format(Now, "DD.MMMM.YY") & " " & Format(Now, "HH.MM.SS")
yanit = MsgBox("YEDEKLEME YAPILSIN MI?", vbQuestion + vbOKCancel, App.Title)
If yanit = vbOK Then
Beep

If Dir("c:YEDEK", vbDirectory) = "" Then
MkDir "C:YEDEK
End If
'MkDir "
C:YEDEK" & YOL
FileCopy App.Path & "
2005.mdb", "C:YEDEK" & YOL & " .mdb"
mesaj = "
Veritabanı C:YEDEK" & YOL & ".mdb şeklinde yedeklendi!.."
MsgBox mesaj, 48
SaveSetting "
Program", "yedek", "tarih", Date
End If
Exit Sub
End Sub

Ben projemde MDIForm kullanmıştım.Formun kapanışını aşağıdaki gibi yaptım.Siz bu olayı istediğiniz gibi yapabilirsiniz.

Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("
Programdan çıkmak istediğinize emin misiniz?", vbQuestion + vbYesNo, "UYARI") = vbNo Then
Cancel = 1
Else
calcel = 0
End
End If

Call yedeklemekontrol
End Sub

Public Sub yedeklemekontrol()
bugün = Date
sontarih = GetSetting("
Program", "yedek", "tarih", "")
kalan = bugün - sontarih
If kalan > 7 Then
MsgBox "
" & kalan & " gündür yedek almadınız", vbInformation, "UYARI"
End If
End Sub




Yorumlar, eklemeler ve düşünceler
        Bu Kodları indiremiyorum
ip ucu veya makaleyi nereye yazacağom

   stasci1, 28.12.2006 14:46
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin