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.
Örnek uygulamanızı ekleyiniz.
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
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
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.
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.