Skip to main content

AccessTr.neT


Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme

Her yılın 1 Ocağında Tablodaki bir sutunda bulunan Sayı üzerine 20 ekleme

Çözüldü #1
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.
Cevapla
Çözüldü #2
Örnek uygulamanızı ekleyiniz.
Cevapla
Çözüldü #3
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
Son Düzenleme: 15/04/2012, 20:45, Düzenleyen: sfenksturk.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
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.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da