Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tarih baz alınıp gun sayısı otomatik yazsın

labtek
labtek
Access Cevaplanmış Soruları
27
10735

Tarih baz alınıp gun sayısı otomatik yazsın

Çözüldü #6
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 01/04/2024,18:42
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
NÖBET TARİHİ alanına girildiğinde olayındaki aşağıdaki kodu çift tıkladığında olayına taşıyın.

Kod:
Me.NÖBET_TARİHİ = DLookup("Last([NÖBET TARİHİ])", "[NOBET ISL]") + 1

Böylece alana girildiğinde değil, çift tıkladığında tarih bir artarak yazılacaktır. Aynı şekilde Odaklama sonlandığında olayına koyduğunuz
Kod:
Me.GN_SAYISI = Weekday([NÖBET TARİHİ])
kodunu da hemen çift tıkladığında olayınına koyduğunuz kodun altına taşıyın. Böylece çift tıklama kodu şöyle olacaktır.

Kod:
Private Sub NÖBET_TARİHİ_DblClick(Cancel As Integer)
Me.NÖBET_TARİHİ = DLookup("Last([NÖBET TARİHİ])", "[NOBET ISL]") + 1
Me.GN_SAYISI = Weekday([NÖBET TARİHİ])

End Sub
Artık NÖBET TARİHİ alanına çift tıklayarak yeni nöbet ekleyebilirsiniz. Böylesi daha mantıklıdır.


Hata veren bölüm, günün adını yazdırmaya yarayan koddur. Bu kodun çift tıklama olayına alınmasıyla hata da düzeltilmiş olur.
İnadına, ille de Accesstr.net...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Tarih baz alınıp gun sayısı otomatik yazsın - Yazar: mehmetdemiral - 16/10/2009, 07:25
Task