Sayın Taruz hocam ve diğer tüm arkadasların örneklerinden uyarlayarak hazırladığım bir Belediye İmar Arşiv Programıdır. Kendilerine teşekkürler.

Program için çok zaman harcadım çok emek harcadım. Bir çok çıktı formatını direkt olarak alabildiğimiz, imzalı belgeleri taratıp arşivleyebildiğimiz, Subasman takiplerini yapabildiğimiz, İmar Uygulama bilgilerini üst yazıları harçları hesaplayıp raporlayabildiğimiz, tüm haritaların sayısallarını saklayabildiğimiz bir program halini aldı.

Özellikle tasarım modunda açılmayacak şekilde örneği yüklüyorum. Kullanmak isteyen arkadaşlar olursa ücret karşılığı paylaşmayı düşünüyorum. Paylaştığım dosyanın belediye bilgileri kendi çalıştığım belediyeye aittir. Cıktı formatlarındaki bilgiler belediyemize aittir. İstek olması durumunda düzenleme yapılarak teslim edilir.

Dosyaları "K:\" sürücüsü içine kopyalayıp, yada ağ üzerinden paylaşıma açıp Ağ sürücüsü K olarak ayarlayıp Deneyebilirler.

Kullanıcı Adı : Saffet Erdem
Kullanıcı Şifre : 123

Umarım Beğenilir.

Paylasim icin tesekkur ederim. Projenizin, daha fazla kullanicinin incelemesi icin 64Bit ornegi veya accdb uzantili projenizi eklenebilir.

Teşekkürler.

Ben şu anda Win-7 64 bitte kullanıyorum. Herhangi bi sorun yaşamadım. İlk yaptığımda Win7-32 bit te hazırlanmıştı.

Ilk acilista yukarida ki mesaj gelmekte, proje paketlemesini 32 bit olan bilgisayar ile yapilmis olabilir veya declare bolumu ptrsafe ile asilabilir.

(03-03-2016, 14:04)dsezgin83260 demiş ki:
Ilk acilista yukarida ki mesaj gelmekte, proje paketlemesini 32 bit olan bilgisayar ile yapilmis olabilir veya declare bolumu ptrsafe ile asilabilir.

Hocam tam olarak nasıl düzeltebilirim bu hatayı. Ben şu anda bu programı burada Ağ üstünden Win7-64, Win7-32, win8-32, winXP-32 de kullanıyorum. Bu güne kadar böyle bir hata almadım. Hatayı nasıl düzeltebilirim.

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3




#If VBA7 And Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
#End If


Kullandığım kod bu şekilde hocam. Taruz Hocamın kodu.