öncelikle bu yaptığım programda gün kendi otomatik güncellemiyordu accesstr sayesinde bunu aştık. fakat tarih nöbet tarihi güncellendikten yada tıklandıktan sonra gün sayısının otomatik güncellenmesini istiyorum.
(gün sayısı 1=pazar,2=pzt,3=çrşb vs) kısacası gün sayısı kutucuğundaki varsayılan değerin (=Weekday([NÖBET TARİHİ]) nöbet tarihi güncelleğinde yada tıklandığında otomatik yazsın yada düzelsin istiyorum bir türlü yapamadım 2 hafta oldu eğer yapabilirseniz şimdiden teşşekürler
Yapmak istediğiniz şey için kod, varsayılan değere ya da denetim kaynağına yazılmayacak. Bunun için olay yordamlarını kullanın. Yaptığım örneği inceleyiniz. NOBET ISL isimli formu deneyiniz.
Kolay gelsin.
Çok teşekkür ederim , sizden şu ana kadar çok şey öğrendim .......... gerek benim sorunlarımdan gerekse cevaplanmış sorulardan iyi geceler iyi bayramlar
bu programda çok yol kat ettim en büyük sorunum kayıt yaparken NÖBDOSYA formunda yeni kayıt girerken tarihin bir sonraki günü otomatik yazmaması idi Mehmet Demirel bey sağolsun bu konuyu çözdü.
fakat haftalardır bir hata var çözemedim geçmişte yaptığım kayda yanlışlıkla mause ile dokunduğumda tarih en sondaki tarihin bir sonrası oluyor.
**acaba kayıt yapılınca kitlenebilir mi
yada daha iyi bir fikri olan var mı bir türlü çözemiyorum
** birde olur olmaz her yerde aşağıda gönderdiğim hatayı veriyor "run tıme error 94
"ınvalid use of null"
çözerseniz çok sevinirim
Alıntı:fakat haftalardır bir hata var çözemedim geçmişte yaptığım kayda yanlışlıkla mause ile dokunduğumda tarih en sondaki tarihin bir sonrası oluyor.
NOBET ISL formundaki NÖBET TARİHİ metin kutusunun "Girildiğinde" olayındaki kodu sil. (Bu kod ne için yazıldı?)
Alıntı:** birde olur olmaz her yerde aşağıda gönderdiğim hatayı veriyor "run tıme error 94
Hata İletisindeki "Debug"u tıkladığında hangi koda yönlendiriyor
Private Sub GN_SAYISI_Enter() ??
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.