• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Şehitler Mezarlığı İçin Program Yardımı Hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
869
Excel V
Office 2016 TR
Merhaba üstadlarım,

İlimde bulunan şehitler mezarlığında arkadaşım çalışmaktadır. Bu mezarlıkta şehit mezarları çok olmakla beraber şahıs mezarları da bulunmaktadır. Belediyeye bağlı bir mezarlık. Lakin herhangi bir program v.s. kullanmıyorlar. Tabiri caizse kara düzen diyelim. Arkadaşım benden rica etti. Excel de bu kayıtları mezarlara bakarak ve ölüm evraklarından yola çıkarak listelemeye başladı. Bunları userform üzerinden bir program yaparak kullanmak istiyor.

Burada ki tek amaç merhum yakını girişe geldiğinde mezarın yerini bilmiyorsa ona hızlı bir şekilde mezarının Hangi blokta olduğunu ve kaç numarada olduğunu söylemek. Bunun için ben bir çalışma yapacağım.

Benim aklımın yatmadığı birkaç konu var. Bunları sizlere danışarak başlamak istedim.

* Yeni kayıt ekleme, mevcut kaydı güncelleme ya da silme bunları yapabilirim burada problem yok.
* Örneğin A BLOK A0042 nolu mezar var diyelim. Yine A BLOK A0042 nin SAĞ YANI/SOL YANI/2 SAĞ YANI/2 SOL YANI/AYAK UCU gibi kayıtlarda var. Örneğin;
A BLOK A0042
A BLOK A0042 SAĞ YANI
A BLOK A0042 SOL YANI
A BLOK A0042 AYAK UCU
A BLOK A0042 2 SAĞ YANI gibi.

Bu kayıtları eklerken ya da güncellerken nasıl bir yol izlemem gerekecek bunları kafamda oluşturamadım.


Konu hakkında fikirlerinizi ve yardımlarınızı rica ederim.
 

Ekli dosyalar

Çözüm
CSS:
If Me.txt_yeri.Value Like "SAĞ YANI*" Then

Me.frm_sagyani.BackColor = vbRed

Me.frm_sagyani.Caption = Me.txt_yeri

Else

Me.frm_sagyani.BackColor = vbBlack

End If





If Me.txt_yeri.Value Like "SOL YANI*" Then

Me.frm_solyani.BackColor = vbRed

Me.frm_solyani.Caption = Me.txt_yeri

Else

Me.frm_solyani.BackColor = vbBlack

End If
Merhaba üstadlarım,

İlimde bulunan şehitler mezarlığında arkadaşım çalışmaktadır. Bu mezarlıkta şehit mezarları çok olmakla beraber şahıs mezarları da bulunmaktadır. Belediyeye bağlı bir mezarlık. Lakin herhangi bir program v.s. kullanmıyorlar. Tabiri caizse kara düzen diyelim. Arkadaşım benden rica etti. Excel de bu kayıtları mezarlara bakarak ve ölüm evraklarından yola çıkarak listelemeye başladı. Bunları userform üzerinden bir program yaparak kullanmak istiyor.

Burada ki tek amaç merhum yakını girişe geldiğinde mezarın yerini bilmiyorsa ona hızlı bir şekilde mezarının Hangi blokta olduğunu ve kaç numarada olduğunu söylemek. Bunun için ben bir çalışma yapacağım.

Benim aklımın yatmadığı birkaç konu var. Bunları sizlere danışarak başlamak istedim.

* Yeni kayıt ekleme, mevcut kaydı güncelleme ya da silme bunları yapabilirim burada problem yok.
* Örneğin A BLOK A0042 nolu mezar var diyelim. Yine A BLOK A0042 nin SAĞ YANI/SOL YANI/2 SAĞ YANI/2 SOL YANI/AYAK UCU gibi kayıtlarda var. Örneğin;
A BLOK A0042
A BLOK A0042 SAĞ YANI
A BLOK A0042 SOL YANI
A BLOK A0042 AYAK UCU
A BLOK A0042 2 SAĞ YANI gibi.

Bu kayıtları eklerken ya da güncellerken nasıl bir yol izlemem gerekecek bunları kafamda oluşturamadım.


Konu hakkında fikirlerinizi ve yardımlarınızı rica ederim.
Atladığım bir konu var.

Aynı numaraya çift kayıt olabiliyor. Aynı mezarın üstüne defin yapılıyor.

A BLOK A0050
A BLOK A0050 ÜSTÜNE DEFİN

Gibi.
 
Sayın Himmgarip
Veritabanını access ile yapmanızda fayda var Tablo başlıkları aşağıdaki gibi olabilir.
Adı SoyadıBaba AdıDoğumTVefatTBlokParselVefat Sebebi
Şehit
Hastalık
Normal
İntahar
Kaza
Cinayet
Yangın
bu kayıtlar buraya form kullanılarak girilebilir. (Kayıt ekleme ve Güncelleme )-Silme olmamalı)
Forumda gelişmiş filtre örneği var tüm kayıtlar basit bir sql ile sayfaya alınır ve filtre ile kullanılabilir
 
Merhaba,

Projede benimde katkım olsun isterim,
Nacizene fikrim iki ayrı tablo oluşturun,

Birinde mezarlık sabit bilgileri, (parsel,ada, vs ne tutuluyorsa=
Diğerinde merhum bilgileri tutulsun.

Userformda Merhumu kaydederken , definin nereye yapılacağını tablodan seç. (örnek :A BLOK A0042)

Örneğindeki;
sağ yan, sol yan, ayak ucu alanları için not alanı eklersin.

Çok zor değil, projelendirmek önemli.
 
Sayın Himmgarip
Veritabanını access ile yapmanızda fayda var Tablo başlıkları aşağıdaki gibi olabilir.
Adı SoyadıBaba AdıDoğumTVefatTBlokParselVefat Sebebi
Şehit
Hastalık
Normal
İntahar
Kaza
Cinayet
Yangın
bu kayıtlar buraya form kullanılarak girilebilir. (Kayıt ekleme ve Güncelleme )-Silme olmamalı)
Forumda gelişmiş filtre örneği var tüm kayıtlar basit bir sql ile sayfaya alınır ve filtre ile kullanılabilir
@Adnan hocam Access çok bilgim yok. Oradan biryere varacağimi düşünmüyorum mevcut bilgimle.

Merhaba,

Projede benimde katkım olsun isterim,
Nacizene fikrim iki ayrı tablo oluşturun,

Birinde mezarlık sabit bilgileri, (parsel,ada, vs ne tutuluyorsa=
Diğerinde merhum bilgileri tutulsun.

Userformda Merhumu kaydederken , definin nereye yapılacağını tablodan seç. (örnek :A BLOK A0042)

Örneğindeki;
sağ yan, sol yan, ayak ucu alanları için not alanı eklersin.

Çok zor değil, projelendirmek önemli.
@kanakan52 hocam. Kendimce konuyu açtıktan sonra bir şablon yaptım. Ana mezar ve çevresi olarak. Ben bir yerden başlayayım bakalım ne olacak.

1624607528618.png
 
Hayırlı akşamlar üstadlar,

Programı aşağı yukarı arkadaşın istediği gibi yaptım çok şükür. Takıldığım bir konu var.

Örneğin;

A BLOK 100 NOLU ALAN İÇİN "A100" KULLANDIK.

A100 TAM YERİ
A100 SAĞ YANI
A100 SOL YANI
A100 AYAK UCU
A100 BAŞ UCU
A100 ÜSTÜNE DEFİN

olarak yer belirttik. Burada "Sağ Yanı" ve "Sol Yanı" yerleri için;

A100 SAĞ YANI 2 (A100 nolu mezarın 2 sağ yanı)
A100 SOL YANI 4 (A100 nolu mezarın 4 sol yanı)

gibi kayıtlar yapmamız lazım. Kayıt yaparken problemimiz yok.

Normal kayıtlarda listboxta kayda tıklayınca "Mezar Yeri Tarifi" alanındaki kutucuklar veriye göre renkleniyor.

Burada istediğimiz "Yeri" de yazan veri;
"Sağ yanı" içeriyor ama "Sağ Yanı" na eşit değilse "frm_sagyani" framenin içine yazı olarak "txt_yeri" de ki text yazsın istiyoruz. Bunu nasıl yapabiliriz?

Destekleriniz için teşekkürler.

1624650389681.png
 

Ekli dosyalar

Yanlış üzerinden işlem yapmak bana mantıklı gelmiyor. Bunun yerine etiket sistemi ile mezarlara yeni numara verilmeli iş kökten çözülmeli. Etiket işlemi ile birlikte evraklar üzerine küçük not alınmalı
 
Yanlış üzerinden işlem yapmak bana mantıklı gelmiyor. Bunun yerine etiket sistemi ile mezarlara yeni numara verilmeli iş kökten çözülmeli. Etiket işlemi ile birlikte evraklar üzerine küçük not alınmalı
@Adnan hocam öncelikle bir program olmalı profesyonel. Dediğinizde kesinlikle haklısınız. Etiket sistemi muhakkak olmalı. Ama maalesef bu işler ülkemizde bu şekilde. Bende şahsım adına oradaki şehitler anısına borç belledim kendime bu durumu. Elimden geldiğimce ne yapabilirsem. Saygılar.
 
Hataların devam ettirilmemesinde ısrarcıyım. Arkadaşınız amirine söylerse bu iş çok zor bir iş değil. 1 günde yapılır. Programda ona göre tanzim edilir ve insanlar dilediği kişiyi rahatlıkla bulabilir.
 
Merhaba,

Dblclick() olayında ilgili alanları aşağıdaki gibi revize edin.


Kod:
If Me.txt_yeri.Value Like "SAĞ YANI*" Then
Me.frm_sagyani.BackColor = vbRed
Else
Me.frm_sagyani.BackColor = vbBlack
End If

If Me.txt_yeri.Value Like "SOL YANI*" Then
Me.frm_solyani.BackColor = vbRed
Else
Me.frm_solyani.BackColor = vbBlack
End If
 
Merhaba,

Dblclick() olayında ilgili alanları aşağıdaki gibi revize edin.


Kod:
If Me.txt_yeri.Value Like "SAĞ YANI*" Then
Me.frm_sagyani.BackColor = vbRed
Else
Me.frm_sagyani.BackColor = vbBlack
End If

If Me.txt_yeri.Value Like "SOL YANI*" Then
Me.frm_solyani.BackColor = vbRed
Else
Me.frm_solyani.BackColor = vbBlack
End If
@kanakan52 hocam Bana gerekli olan bilgi burada var. Gerisini ben yaparım. Teşekkürler. :)
 
CSS:
If Me.txt_yeri.Value Like "SAĞ YANI*" Then

Me.frm_sagyani.BackColor = vbRed

Me.frm_sagyani.Caption = Me.txt_yeri

Else

Me.frm_sagyani.BackColor = vbBlack

End If





If Me.txt_yeri.Value Like "SOL YANI*" Then

Me.frm_solyani.BackColor = vbRed

Me.frm_solyani.Caption = Me.txt_yeri

Else

Me.frm_solyani.BackColor = vbBlack

End If
 
Çözüm
Emeği geçen, düşünen, yardımcı olan herkese teşekkürler. Bugün gidip teslim ettim. Kullandılar beğendiler. Çok sağolun. Saygılar.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst