30-12-2008, 18:22 (En son düzenleme: 30-12-2008, 18:27 assenucler.)
İyi akşamlar...
"YonetimGelirleri" tablosundaki verileri silerken, "Arsiv_bugününtarihi" adlı bir tabloya yedeğini alsın istiyorum. Koda nasıl bir ekleme yapmak gerekiyor.
Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim cevap As Long
cevap = MsgBox("TÜMVERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [YonetimGelirleri] ")
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Else
Cancel = True
End If
Exit_Komut24_Click:
Exit Sub
Pardon sorunuzu sonradan okudum Koda bunu yazarsanız Arsivlemeden önce soracaktır....
Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim cevap As Long
Select Case MsgBox("YonetimGiderleri Tablonuzda ki verileri" _
& vbCrLf & "Silmeden önce Arsivlemek İstermisiniz?" _
, vbOKCancel Or vbQuestion Or vbMsgBoxRtlReading Or vbDefaultButton1, "VERİ ARSİVLEME")
Case vbOK
DoCmd.OpenQuery "Arsivle"
Case vbCancel
End Select
cevap = MsgBox("TÜMVERİLER SİLİNİYOR!!DEVAM EDİLSİN Mİ?", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [YonetimGelirleri] ")
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Else
Cancel = True
End If
Exit_Komut24_Click:
Exit Sub
Hardiskim 2 bölüm, belgelerim klasörü D: bölümünde, indirdiğim dosya C: masa üstünde, WinXP Pro Türkçe ve Office 2007 Türkçe kullanıyorum. Sizin dosyanın yolunu "arşiv ekleme sorgusuna bakarak" gördüm.
Arşive ekle sorgusuna, arşiv yolu adresini nasıl yazacağımı bilmiyorum. Bu yolu en kolay ne şekilde bulabilirim?
Sayın Assenucler Arsiv sorgunuzu tasarım görünümünde açınız Bu halde iken Ekleme sorgusunu seçiniz oradan da farklı veritabanı nı seçerek Arsiv mdb isimli dosyanızı Gözat tan bulacaksınız...
MUTLU YILLAR...
