+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri tabanı onarımı (/konu-veri-tabani-onarimi.html)
Veri tabanı onarımı - herdogan - 14/02/2010
Arkadaşlar;
Polsoftta kullanılmış olan şu kodlardan sadece veri tabanına bakım yapanları almak istiyorum. Heralde modül başvurusu yok içinde
fSetAccessWindow (SW_SHOWMAXIMIZED)
DoCmd.SelectObject acForm, "YEDEKAL", True
DoCmd.Maximize
Dim msg As String
msg = "Veritabanı Bakım İşlemlerini Polsoft İkaz Ettiğinde Uygulamanız Önerilir " & vbCrLf & vbCrLf
msg = msg & "[Yetekleme Ayarları] Formundan Gerekli Ayarı Yapabilirsiniz." & vbCrLf & vbCrLf
msg = msg & "Evet'i Seçerseniz...Programın Düzenlenip Onarılabilmesi için Kapatılması Gerekiyor " & vbCrLf & vbCrLf
msg = msg & "Şimdi veritabanı dosyanızın bakımını yapacak mısınız?" & vbCrLf & vbCrLf
If MsgBox(msg, vbQuestion + vbYesNo, "Veritabanı dosyası bakımı") = vbNo Then Exit Sub
Dim rs As New ADODB.Recordset
rs.Open "BAKIMTABLOSU", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("bakimtarihi") = Date
rs.Update
Set rs = Nothing
DoCmd.Close acForm, "BEKLEME"
DoCmd.Close acForm, "GİRİŞ"
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Cvp: Veri tabanı onarımı - ozanakkaya - 14/02/2010
Veritabanını Düzenle ve Onar aşağıdaki kod.
Kod:
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultActionCvp: Veri tabanı onarımı - herdogan - 14/02/2010
Teşekkürler Sledgeab;
Bu kodlar bağlı tablolarada bakım yapar mı?
Cvp: Veri tabanı onarımı - Seruz - 02/03/2010
Burada örneği var.
Veritabanı ve Bağlı Tablo Bilgileri ile Bakım Yaptırma