AccessTr.neT

Tam Versiyon: Veri tabanı onarımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
Veritabanını Düzenle ve Onar aşağıdaki kod.

Kod:
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Teşekkürler Sledgeab;
Bu kodlar bağlı tablolarada bakım yapar mı?