Skip to main content

AccessTr.neT


koşula bağlı tarih ve sayı toplamı yapma

Kardeşpayı
Kardeşpayı
7
2048

koşula bağlı tarih ve sayı toplamı yapma

#1
Merhabalar,
forum içerisinde arama yaptım ama istediğim sonucu bulamadığım için bu konu başlığını açtım. Ekli dosyada yapmak istediğim; işlem tarihi ve atıksu denetim tarihi bölümlerine veri girişi yapılmış ise;
1.denetim tarihi=işlem tarihi+atıksu denetim süresi
denetime kalan süre=(bugün()-1.denetim tarihi) gün kaldı.
veri girişi yapılmadı ise;
denetime kalan süre= 1. denetim bekleniyor.
şeklinde işlemleri yaptırabilmek.
işin acemisi olduğum için toplama yaptırsam bile nasıl koşula bağlayacağımı bulamadım.Bu işlemleri yapabilecek kodlar konusunda yardımcı olursanız.Çok memnun olurum.Şimdiden Teşekkürler.
.rar deneme çalışması.rar (Dosya Boyutu: 941,58 KB | İndirme Sayısı: 4)
Cevapla
#2
sayın Kardeşpayı,

öncelikle;
kendi adıma,uygulamanızı kısa süreli zaman içinde olma nedeni ile ayrıntılı inceleme imkanım olmadı fakat talebinize bir çözüm önerisinde bulunmak yerine öncesinde uygulamanızın yapısına yönelik olarak

Alıntı:işin acemisi olduğum için

beyanınızı da dikkate almak sureti ile şu hususa dair bir tavsiyede bulunmayı doğru bulmaktayım.

aşağıda bağlantısı yazılı konuda yer alan açıklamaları incelemenizi temenni etmekle birlikte konuda yazılı işlemleri (özellikle de,UYGULAMA İÇERİĞİNE YÖNELİK TAVSİYELER başlıklı kısımları uygulamanıza uyarlamanızı ve uygulamanızı yeniden düzenlemede bulunmanızı önermek isterim.bu hali ile,zaman içerisinde ola ki geliştirme aşamalarında sorunlara ve bu sorunlardan kaynaklı yeni konular açmak durumunda kalacaksınız.

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

ayrıca;
gerek tablolarınızda alan tanımlaması yaparken ve gerekse de form üzerindeki denetimlerde önce metin değerini ardından da sayı değerini yazmayı ihmal etmeyiniz.

ÖRNEK 1
formunuzda 1.Denetim Tarihi etiketli denetimin için 1denetim yerine denetim1 yazmak daha doğru.

ÖRNEK 2
deneme adlı tablonuzda 1  Denetim Tarihi adlı alan tanımlaması yerine denetim_tarihi1 yazmak daha doğru.

ilgili konudaki düzenlemeleri yaptıktan sonra uygulamanızı bu yeni düzenlenmiş hali ile tekrar ekleyiniz ki,katılımcılar tarafından uygun görülebilecek paylaşımların ya da bilgilendirmelerin yapılmasına imkan sağlamış olasınız.

son olarak;
yine de bir fikir verebilmesini sağlamak amacı ile,aşağıdaki kodları formun GEÇERLİ OLDUĞUNDA olay yordamına yazmak sureti ile bir denemede bulunabilirsiniz.(denetimlerin adlarını,kendi uygulamanızdaki denetim adları ile değiştirmeyi unutmayınız.)

Kod:
if IsNull(Me.islem_tarihi_denetiminin_adi) or Me.islem_tarihi_denetiminin_adi="" and IsNull(Me.atiksu_denetim_tarihi_denetiminin_adi) or Me.atiksu_denetim_tarihi_denetiminin_adi="" then
msgbox("İşlem Tarihini ve Atıksu Denetim Tarihi bilgilerini giriniz")

Me.denetime_kalan_sure_denetiminin_adi= "1. denetim bekleniyor."
exit sub
else
Me.denetim tarihi1_denetiminin_adi=Me.islem_tarihi_denetiminin_adi + Me.atiksu_denetim_suresi_denetiminin_adi
Me.denetime_kalan_sure_denetiminin_adi=(Date() - Me.denetim tarihi1_denetiminin_adi) & " gün kaldı."
end if




bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
cevabınız için teşekkür ederim.Gösterdiğiniz yol üzerinden deneme çalışmamı düzenledim.Umarım bu kez doğru yapmışımdır.Verdiğiniz kodu uyarlamaya çalıştım fakat istediğim sonucu alamadım.Hesaplamayı yanlış yaptığını fark ettim ve bir düğmeye bağlamadan çalışmasını sağlayamadım.Eğer dosya istediğiniz şekle geldiyse bana kod konusunda yardımcı olabilir misiniz?
.rar deneme çalışması.rar (Dosya Boyutu: 933,68 KB | İndirme Sayısı: 1)
Cevapla
#4
Sayın Kardeşpayı,

Alıntı:Verdiğiniz kodu uyarlamaya çalıştım fakat istediğim sonucu alamadım.Hesaplamayı yanlış yaptığını fark ettim

İfadenize yönelik olarak;
Bu sonucu almanız doğal.çünkü;yapılan inceleme neticesinde,örnek kalıp olarak yazılan kod satırlarını olduğu gibi kullanmış olduğunuz için mevcut yeniden tanımlama ifadelerine göre tekrar değiştirmediğiniz görülmektedir.

Dolayısı ile de,kodlar içerisindeki denetim adlarını değiştirdiğinizi beyan ettiğiniz yeni isimlerine göre düzenlemelisiniz.

atıksu denetim tarihi için kod üzerinde değiştirdiğiniz txt_islem2 adlı denetimin form üzerinde olmadığından dolayı böyle bir denetime yönelik kontrol işlemini de yapamayacaktır hali ile.bu nedenle de,bu değeri hangi alan üzerinden alması gerektiğini ya belirtmelisiniz ya da form üzerindeki bir denetim olacaksa bunu da açıklamalısınız.

Bu bilgilendirmeyi yapmanız önemli çünkü,kontrol işlemi içerisinde bu denetimin de yeri söz konusu.aksi takdirde bir işlem yapabilmesi geçerli olmayacaktır.

ayrıca;
mevcut yeni tanımlar akabinde,GEÇİCİ olarak kullanılabilecek kodlar şu şekilde olmalı:

Kod:
If IsNull(Me.txt_islem_tarihi) Or Me.txt_islem_tarihi = "" And IsNull(Me.txt_islem2) Or Me.txt_islem2 = "" Then

MsgBox ("İşlem Tarihini ve Atıksu Denetim Tarihi bilgilerini giriniz")

Me.txt_denetimkalan = "1. denetim bekleniyor."
Exit Sub
Else
Me.txt_denetim1 = Me.txt_islem_tarihi + Me.txt_islem2
Me.txt_denetimkalan = (Date - Me.txt_denetim1) & " gün kaldı."
End If

Son olarak;
Tekrar hatırlatmakta fayda var.bazı düzeltmeler yapmış olduğunuz görülmekte fakat yine de naçizane yeterli olmadığını tekrar kontrol edilerek daha geçerli düzeltmelerin yapılması gerektiğini bir kez daha belirtmek yerinde olacaktır.

Bunlar;tablo ve içeriklerindeki alan adları,form üzerindeki denetimlerin adları…(Türkçe karakterler olmaması adına önemli.bu uyarının tekrar yapılmasının da tek nedeni,sadece;ileride bu durumlardan dolayı mutlak olası sorunların şimdiden engellenmesidir.)

Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Sayın atoz112,

mesajınızda belirttiğiniz değişiklikleri ve düzenlemeleri yaptıktan sonra,

Me.txt_denetim1 = Me.txt_islem_tarihi + Me.txt_islem2

txt_islem2 i değeri ay bazında bir sayı olduğundan yazdığınız kodu

Me.txt_denetim1 = dateadd("m",txt_islem2,txt_islem_tarihi) olarak değiştirdim fakat yine de doğru toplam değerini alamıyorum.sebebi ne olabilir?
Cevapla
#6
sayın Kardeşpayı,

Alıntı:mesajınızda belirttiğiniz değişiklikleri ve düzenlemeleri yaptıktan sonra,

ifadenizde bahsini yaptığınız yeni düzenlenmiş halini içeren örnek uygulamanızı ekleyiniz.

yeni hali üzerinden incelemeler neticesinde uygun görülebilecek bilgilendirme ya da paylaşımları elde etmeniz olasıdır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task