Skip to main content

AccessTr.neT


Veri tabanı onarımı

Veri tabanı onarımı

Çözüldü #1
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
Cevapla
Çözüldü #2
Veritabanını Düzenle ve Onar aşağıdaki kod.

Kod:
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction

Cevapla
Çözüldü #3
Teşekkürler Sledgeab;
Bu kodlar bağlı tablolarada bakım yapar mı?
Cevapla
Çözüldü #4
Burada örneği var.
Veritabanı ve Bağlı Tablo Bilgileri ile Bakım Yaptırma
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da