AccessTr.neT
Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme (/konu-her-yilin-1-ocaginda-tablodaki-bir-sutunda-bulunan-sayi-uzerine-20-ekleme.html)

Sayfalar: 1 2


Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - sfenksturk - 15/04/2012

Bir proje üzerine çalışmaktayım ve projemde bir iş yerinde çalışan işçilerin bilgileri ve ne kadar yıllık izinleri oldukları tabloda yazılı. Ben her yılın ocak ayının 1. günü tüm işçilerin izin sürelerine 20 eklensin istiyorum. Bunu ifade şeklinde nasıl yapabilirim. Cevaplarınız için şimdiden teşekkür ederim.


Cvp: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - ozanakkaya - 15/04/2012

Örnek uygulamanızı ekleyiniz.


Cvp: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - sfenksturk - 15/04/2012

uygulamanın konu ile alakalı olan bir kısmını yolladım. Ben görevli personel isimli tablo içerisinde bulunan izin süresi sütunundaki sayıların her yılın ocak ayının birinci günü 20 artmasını istiyorum. Ayrıca aynı tabloda bulunan yol izin hakkı sütununda bulunan sayı ne olursa olsun her yıl 1. ocakta sayı 4 olsun. Yani her çalışanın her yıl dört gün yol izin hakkı bulunuyor. kullansa da kullanmasa da yol izin hakkı süresinin 1 ocakta 4 olmasını istiyorum. ilginiz için teşekkürler

Kişiler1.rar



Cvp: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - ozanakkaya - 16/04/2012

Forma buton ekleyin, butonun tıklandığında olayına aşağıdaki kodu ekleyin

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [GÖREVLİ PERSONEL] SET [GÖREVLİ PERSONEL].[izin süresi] = (Val([izin süresi])+20), [GÖREVLİ PERSONEL].[yol izni hakkı] = '4';"
DoCmd.SetWarnings True



Cvp: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - sfenksturk - 16/04/2012

evet PERSONEL KAYIT isimli forma buton ekledim ve butona tıkladığımda istediğim sonuçları elde ettim. Ancak bu olay her ocak birde otomatik olarak kendisi butona basılmış gibi olabilir mi? cevabınız ve ilginiz için teşekkür ederim.


Cvp: Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme - Kur@l - 16/04/2012

Programınıza bir tablo ilave edin ve iki alan ekleyin bu alanlardan bir tanesinin adı ID (Alan Özelliği Otomatik Sayı) diğer alanın adıda sene (Alan Özelliği Sayı ) adında olsun.
Tablonuzun adınıda seneislem yapın.
Programınızın ilk açılan formuna günü kontrol ettirin.

if DCount ("sene","seneislem","sene=" & val(year(date)) ) <>1 then
' Ozan Hocamın Kodu Burada Çalışacak. Ardından Alttaki Kod Çalışacak
docmd.setwarnings false
docmd.runsql "INSERT INTO seneislem (sene) values (" & val(year(date)) & ")"
docmd.setwarnings true
end if

Bu kısmı ekleyin en son halinide ekleyin inceleyelim.