Uygulamalarınızda kullana bileceğiniz değişik bir örnek

Access penceresinin sol tarafında menü görevi gören kalıcı bir form var. diğer formları açtığımda ve formların boyutunu değiştirdiğimde (örn. maximize ettiğimde) menü formunun kapladığı alanı kullanmasın istiyorum. nasıl yapabilirim?

Arkadaşlar merheba;

gönderdiğim örnekte rapor kısmında kayıtlardan hemen sonra toplam aldırma işlemini nerden yapacağım.

***Not : Toplamı Sayfa alt bilgisinin orda almayacak. en son kayıtın hemen sonunda toplam alınacak.

Merhaba,
Bu güne kadar pek üstünde durulmayan ancak gerçek anlamda Access programlarımıza güvenlik sağlayan Kullanıcı düzeyi güvenlik olayı.
kullanıcı düzeyi güvenliği diğerlerinde olduğu gibi veritabanını parola ile koruma sağlayan bir güvenlik biçimi değildir. çünkü veritabanını parolarını anında çözen programlar mevcut ancak kullanıcı düzeyi güvenlik parolalarını çözmek hemen hemen imkansız ve hiç bir yerde bu şifreleri çözen prg görmedim zaten çözülme olayı sanırım imkansız ve mantıksız.

Merhaba,
Rapor alırken bazen isme göre değilde soyadına göre veya tarihe göre veya adrese göre veya telefona göre sıralatsın isteriz veya o şekilde yazıcıya döksün isteriz. İlişikteki örneğimde bu sıralamayı size raporla birlikte açılan menüyle istediğniz alana göre sıralatma imkanı veriyor. isterseniz küçükten büyüğe isterseniz büyükten küçüğe. araç menü çubuğuna bu formun kısayolunu koyarak rapor açıldığında üst menülerde hazır halde tutabilirsiniz. seçim size kalmış,
saygılar,

Bu örnek ile açmak istediğiniz rapor boş ise uyarı mesajı gösterip raporu açtırmıyor.

[Resim: http://ekim10.kucukresim.com/uploads/adsiz92355.jpg]


rar şifresi : accesstr.net

Formda açılır kutu ile seçtiğim kişinin diğer bilgilerinin otomatik olarak gelmesini istiyorum

resmin orginal hali ve parcaların resimdeki yerleri gösterir.
başlangıc ve ileri seviye olarak 2 zorluk da oynayabilirsiniz.
kolay gelsin

Public Function AutoCompactCurrentProject()
Dim fs, f, S, filespec
Dim strProjectPath As String, strProjectName As String

strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath & "\" & strProjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb’s
If S > 20 Then 'ed

arkadaşlar bir süredir ozan hocanın otomatik yedekleme uygulamasıyla uğraşıyorum. ancak çözemediğim bir sorun var. Yedekleme için bildirdiğimiz adres diyelimki bir şekilde uçtu. program yedekleme sırasında bunu farkedip bize söylese ve gerekirse yeni klasör oluştursa. bu konuda yardımcı olacak arkadaşlar varsa çok sevinirim.