Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

PolSoft Final

ozanakkaya
ozanakkaya
Access Örnekleri ve Uygulamaları
225
118851

PolSoft Final

#175
SCavusoglu
pmsata
SCavusoglu
Bul
Destek
Adı Soyadı: Se.... Ca....
Konum: İstanbul
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 01/02/2023,22:58
Yorumları: 312
Konuları: 20
Kayıt Tarihi: 24/02/2014
Teşekkür Puanı: 122
Windows bölge ve dil seçenekleriniz Türkiye, Türkçe değilse çalışmayacaktır. Ayrıca tarih ayraçları, referanslarda önemli tabi.

Cevapla
#176
silka
Aktif Üye
silka
Bul
Aktif Üye
Adı Soyadı: Me.... GÖ....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/02/2025,01:26
Yorumları: 140
Konuları: 30
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 20
hocam olmuyor neyse yapacak bişey yok ilginiz için sağolun.
Benim amacım burdan acess nesnesinin kapandığında kendi kendini onarması için kodlar falan bulmaktı. Bu konuda yardımcı olabilirmisiniz peki
Cevapla
#177
access_delisi
Tımarhaneden Yeni Kaçtım
access_delisi
Bul
Aktif Üye
Adı Soyadı: Ah.... Fu.... Ce....
Yaşı: 49
Konum: Denizli
Ofis Versiyonu: -
Son Oturumu: 14/01/2023,00:45
Yorumları: 454
Konuları: 87
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 20
(29/05/2014, 09:47)silka yazdı: hocam olmuyor neyse yapacak bişey yok ilginiz için sağolun.
Benim amacım burdan acess nesnesinin kapandığında kendi kendini onarması için kodlar falan bulmaktı. Bu konuda yardımcı olabilirmisiniz peki
sanirim asagidaki konu isinize yarar
🔍https://accesstr.net/konu-program-belirl...-acma.html
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#178
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Veritabanının kapanırken onarılması ve düzenlenmesi için 2 yol var. Birincisi seçeneklerden "kapatırken onar" gibi bir seçeneği işaretlemek. İkinci yol ise kodla bu işi yapmak. Arşivimde bunun için bazı kodlar buldum. Aşağıya ekledim:



Private Sub Komut3_Click()
Dim msg As String
msg = "Database.Mdb isimli veritabanında girdiğiniz kayıtlar tutulmaktadır. "
msg = msg & "Girdiğiniz ve/veya sildiğiniz kayıtlarla bu dosya zamanla gereksiz yere şişer."
msg = msg & "Bunun için [Veritabanı dosyası bakımı] işlemini 10 günde bir yaparsanız, "
msg = msg & "gereksiz şişkinlikler dosyanızdan atılacak, dolayısıyla dosyanızın boyutu küçülecektir." & vbCrLf & vbCrLf
msg = msg & "Özellikle hafta sonları yedeklemelerden önce" & vbCrLf
msg = msg & "[Veritabanı dosyası bakımı] işlemini uygulamanız tavsiye edilir." & 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
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accD oDefaultAction
End Sub
İnadına, ille de Accesstr.net...
Cevapla
#179
simendifer
Onursal Üye
simendifer
Bul
Onursal Üye
Adı Soyadı: Ek.... ÇE....
Yaşı: 67
Konum: Çankırı
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Dün,12:00
Yorumları: 1.026
Konuları: 98
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 345
Mesleğiniz: emekli
Application.CommandBars.FindControl(ID:=2071).accD oDefaultAction
Sarı renklenip hata mesajı veriyor
Cevapla
#180
sonneillon
Üye
sonneillon
Bul
Üye
Adı Soyadı:
Yaşı: 42
Konum:
Ofis Versiyonu: Belirtilmemiş
Son Oturumu: 04/03/2015,11:15
Yorumları: 7
Konuları: 1
Kayıt Tarihi: 19/04/2013
Teşekkür Puanı: 0
64bit sistemlerde çalışmıyor sanırım. Bende hata verdi
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task