AccessTr.neT

Tam Versiyon: Apartman yönetimi programı çalıştırılması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Değerli dostlar merhabalar;

Murat Özmenler tarafından hazırlanan "Apartman Yönetimi" Excel dosyasını 4 Mart 2010 tarihinde aşağıdaki linkte ekledim..
https://accesstr.net/konu-excelde-hazirl...grami.html

Bu programla ilgili sayın Simendifer'in sorularına sayın ogulcan92 hocamızın verdiği katkı ve yanıtlar sonrasında, yanıt alabilirim düşüncesiyle bir isteğim olacak...

"Apartman Yönetimi" dosyasını bir türlü düzgün çalıştıramadım. Programın doğru çalışabilmesi için iş ve bilgi akışı nasıl olmalıdır?

Kısa da olsa bilgi verecek dostlara şimdiden teşekkürler...
Sn:assenucler
Programın amacı site veya apartmanda oturan kişlerin kayıtlarını (Ev sahibi, Kiracı) tutmak ve yönetimde yapılan harcama vb. giderleri işleyip aidat gibi gelirleride işleyerek istenildiğinde rapor alınarak bilgi vermektir.Öncelikle çalışma yılını oluşturmalısınız ki ona görede işlem yapabilirsiniz.
sn : oğulcan hocam çalışma yılını oluşturamıyorum, runtime error 459 hatası veriyor Office 2010 kulanıyorum , yardımcı olabilirseniz sevinirim şimdiden teşekürler
Sn:tagesss
Lütfen sorularınızı cevaplanmış konular altında sormayınız yeni konu açınız.Çünkü buralar bizim dikkatimizi çekmez işlerimizden vakit buldukça sorular bölümüne bakmaya çalışıyoruz ve olan soruları elimizden geldigine cevaplandırmaya çalışıyoruz.Ekli programda yıl açma ile ilgili bir sorun görünmemektedir.
sayın ogulcan92 ofis2010 kullanıyorum su an önceleri 2003 de sorunsuz çalıyordu
2010 da şöyle bir hata veriyor sebebi ne olabilir
system error &H80040111 (-2147221231) ClassFactory istenen sınıfı sağlayamıyor
tamam dediğimizde visual basıc kodlarına gidiyor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("CommandButton4").Top = Target.Top
ActiveSheet.Shapes("CommandButton4").Left = Target.Left
End Sub
burada hata gösteriyor kapat bu seferde mous hareketinde hata veriyor gene
Sn:simendifer
Bende herhangi bir hata vermeden çalıştığı için tahminimce kullandığınız sistem ve eksik komponentlerden kaynaklı olabilir.Birde belirttiğiniz kodları silerek deneyiniz program açıldığında tam ekran oluyor 2010 desteklememmiş olabilir.

Ana Sayfada silinecek
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("CommandButton4").Top = Target.Top
ActiveSheet.Shapes("CommandButton4").Left = Target.Left
End Sub
Modulde silinecek
x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
Y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
ActiveWindow.Zoom = 70 * x / 1024
Application.DisplayFullScreen = True

Not:Ofice 2003 ve 2007 ile denenmiştir.