Sİlah Takİp

[celoy]

kolay gelsin
Aşağıda yapmaya çalıştığım Silah proğramımda bazı hatalar var ve yapamadım lütfen siz değerli arkdaş ve hocalarımdan buna bir el atmanız,en iyi performans ve süçgeç ayarlarını yaparak eklemenizdir,çalışma bittiğinde tamamını yine buraya atacağım,şimdiden yardım eden ve yardım etmek isteyip edemeyen ile yardım etkemeyen tüm insanlara kolay gelsin ve çoook teşekkürler.
sorunun ile ilgili örneğim aşağıdadır.

 

[Taruz]

Sayın celoy,

Çalışmanız çok ham..

Ve de şu aşamada gereksiz olduğuna inandığım modüller incelenmesini zorlaştırıyor..

Yardım etmek isterdim ama bu şekli ile çok zor..

Access Soruları kısmında sorunları parça parça belirtirseniz daha rahat yardım alabilirsiniz diye düşünüyorum..

 

[yeni54]

Evet sayın celoy, sayın Taruz un dediği gibi kod çöplüğüne dönmüş ortalık.
Gereksiz olanların hepsini atın bence de. Lazım oldukça eklersiniz.

 

[celoy]

sayın taruz ,ve diğer arkadaşlar
Derdimi tekrar anlatmaya çalıştım ve sorunlar formu ekledim bu forumda ,kısaca şu yazıyor
1-bir şahıs var ve bu şahıs (İSİMLER tablo ) bu şahıs belli zamanlarda 1 veya 2.3.4 gibi silahlar alıyor ve (BELGELER tablo)bu silahları belli zaman sonra tekrar 1 er veya tümünün kaydını sildiriyor,
mantık bu ,ayrıca burda işlemde bazı hatalar var yapamadığım,(silme butonu,il ve ilçeler ile ilgili gibi)
ayrıca bu modülleri kaldırdım,siz kendinize göre modül koyabilirsiniz tabi lazım olursa:mrgreen:
çözüm öneri ve yardımlarınızı bekliyorum
teşekkür ederim.

 

[Taruz]

Sayın celoy,

Geç vakit fazla uğraşamadım ama yine de il ilçeyi aradan çıkardım

 

[celoy]

sayın taruz,yaptığın yardım ile ilgili dosyayı inceleme fırsatım olmadı çünkü kendi bilgisayarım göçtü ve yeniden kuruyorum
gece geç olmasına rağmen göstermiş olduğun ilgi ve alaka için çok teşekkür ederim, çalışsada çalışmasada uğraşman yeter sağol varol
teşekkürler

 

[yeni54]

Kayıt silme işlemini de ben ekledim.

(Kayıt sil butonunu ana form dan alt forma taşıdım. Böylesi daha makul)

Sayın Taruz un eklediğine de bir satırlık ekleme yaptım.

 

[yeni54]

Yine dosyayı eklemeyi unuttum ya.

 

[celoy]

HAY ALLAH RAZI OLSUN HERKEZDEN
dediğim gibi şimdi çöken bilgisayarımı kurmakla uğraştığım için ,henüz acces'i bile kurmadım o yüzden ne olduğuna bakamıyorum sadece siz değerli doslara teşekkür etmek için yazıyorum,sizede çok teşekkürler.Kolay gele

 

[celoy]

silahta son sorun

Sayın Taruz ve yeni54
yapmış olduğunuz yardımlar çok güzel olmuş tam istediğim gibi ancak bir tek sorunum kaldı onuda hallettimmi,inşallah kullanıma hazır olacak,bunun için yine sizden yardımlarınızı bekliyorum.
Sorunum şudur. Aynı kayıt içinde TESKERE TÜRÜ = YTR ise TESK SON TARİHİ = ( DEF KAYT TARİHİ 'inden 5 yıl ileriki tarihi otomatik atacak (ÖRNEĞİN: 01.03.2004 ise 01.03.2009 gibi ileriki bir tarih olacak )
TAM AÇIKLAYAMADIM ANCAK İSTEDİĞİM ŞU .Kişilerin teskere türü YTR ise , defter kayıt tarihinden tam 5 yıl sonra teskere süresi bitiyor , bunu önce tarih olarak otomatik ekleyecek daha sonra o tarihte ve yakın zamanda ikazla bildirecek
yardımlarınız için şimdiden çok teşekkür ederim.
diğer kardeşlerinde bir bakıp yapabilecekleri yenilik ve yardımlarını bekliyorum
pazartesi gününe erişmesi gerekiyor.:mrgreen:

 

[celoy]

Sayın Hocalarım ,bu sorunum sizin için zor değil bee,bir bakıverseniz diyorum.:dua2: ost:

 

[beab05]

Merhaba;
Aşağıdaki kodu ister denetimine isterseniz teskere türünün güncelleştirme sonrasına yazınız..

=IIf([TESKERE TÜRÜ]="YTR";DateAdd("yyyy";5;[DEF KAYT TARİHİ];"NE İSTİYORSANIZ")

Mesaj verme işlemi ise "datediff" kullanarak bir msgbox ile rahatça olur..

 

[celoy]

Sayıh beab05 kardeş öncelikle ilgi eve alakana çok teşekkür ederim,kolay gelsin
sizin bilelirttiğiniz kodları yazdım ancak eksik imleç veya işeret diyor,Siz diyorum yukarıda bulunan (10 nolu mesajda) örnek üzerinde bir deneseniz,öyle bana yardımcı olsanız daha iyi olacak ben de fazla anlamıyorum.gerçekten ihtiyacım var ve ben halen bunda takılıp kaldım bayadır uğraşıyorum ve bir türlü çözüm bulamadım.
Yardımlarınız için Çok teşekkürler

 

[modalı]

Eğer sorun eksik işleçte ise

 [LEFT]=IIf([TESKERE TÜRÜ]="YTR";DateAdd("yyyy";5;[DEF KAYT TARİHİ][COLOR=red])[/COLOR];"NE İSTİYORSANIZ")[/LEFT]

Kırmızı olan parantez eksik.

Ne istiyorsanız bölümünde ise eğer teskere türü YTR değilse istediğinizi yazabilirsiniz. Bence [DEF KAYT TARİHİ] yazılması uygun olur yani 5 yıl eklenmemiş tarih.

İyi çalışmalar​

 

[celoy]

Modalı hocam bu kod hiç bir işlem yapmıyor ve ne işe yaradığını ve nereye yazacağımı analayamadım,ayrıca bunun otomatik olarak DEF KAYT TARİHİ 'ni atması gerekiyor ancak atmıyor,size zamet şu yukarıdaki örnek üzerinde uygulayıp,yolarsanız bende en azından sizi bir daha rahatsız etmiş olurum,
Yardımlarınızı esirgemediğiniz için Teşekkürler ,Sevgiler ve saygılar

 

[beab05]

Merhaba;

Formu tasarım modunda açınız ve tesk son tarihi alanına aşağıdaki kodu aynen yapıştırın..

=IIf([TESKERE TÜRÜ]="YTR";DateAdd("yyyy";5;[DEF KAYT TARİHİ]);[DEF KAYT TARİHİ])

 

[celoy]

sayın beab05
1-Güncelleştirme sonrasına mı,yapıştıracağım yoksa veri bölümünemi
2-ikazı nasıl yapacak

 

[beab05]

ikaz yok henüz..

Siz tasarım modunda açın ve tes tarihi alanının içine yapıştırın..

 

[celoy]

sayın beab05
harika tam istediğim gibi ,teşekkürler,diğer ikazda da yardımlarınızı bekliyorum kolay gelsin

 

[celoy]

Arkadaşlar ikaz işinide çözüyordum ancak ......bu aşağıda yazılı kodda her ne kadar değişiklik yaptım iside olmadı,bu kodlara göre her yılın aynı gün ve ayında ikaz veriyor,benim istediğim ise (If Day(Me![Metin57]) = Day(Date) And Month(Me![Metin57]) = Month(Date) Then )burda düzenleme yaparak Metin57 içindeki tarihte Ay ve günü yanısıra yılında vermesidir,Örneğin 01.03.2007 tarihinde 01.03 tarihini görünce ikaz veriyor ancak yıl farketmiyor 2008,2001,2006 da veriyor ben bunu düzeltemedim sizden yardımlarınızı bekliyorum. Kod aşağıdadır (kırmızı renkli yerde sorun var)

Private Sub Form_Current()
On Error GoTo err_Form_Current

Me!Etiket250.Caption = ""
If Not IsNull(Me![Metin57]) Then
If Day(Me![Metin57]) = Day(Date) And Month(Me![Metin57]) = Month(Date) Then Me!Etiket250.Caption = "*** BU SİLAHIN TESKERE SÜRESİNİ KONTROL EDİNİZ ***"
End If
End If

exit_Form_Current:
Exit Sub

err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current

End Sub