Yoklama Bilgisi

icapcı · 5 Ekim 2007

arkadaşlar bir yurt programı yapmaya çalışıyorum ama yoklamada takıldım. İstediğim şu; form yüklenirken dönüş tarihiyle günün tarihini karşılaştırması, ikiside aynıysa yoklama bilgisini mevcut yapması,formun açılış kısmına aşağıdaki kodu yazdım yerse diye ama yemedi

bu konuda ne yapmam gerektiği hakkında bi fikri olan varmı?

If Dönüş_Tarihi = Date Then
stDocName = "İzin Dönüş Uyarı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Yoklama_Bilgisi = "MEVCUT"
End If

Ercan_ÇELİKOĞLU · 5 Ekim 2007

Dosyayı Ekleme İmkanınınz varmı?

Dosyanızı eklermisiniz.

icapcı · 5 Ekim 2007

örnek

dosyayı örnek olarak yapmaya çalıştım

icapcı · 7 Ekim 2007

Bu konuda bilgisi olan yokmu arkadaşlar?

yeni54 · 7 Ekim 2007

Olayın işleyişini anlamadım.

form açılınca, donuş tarihi ile date i kontrol etmeye çalışmışsın.

aynı ise mevcut demişsin.

o gün form açılmazsa, kişi de geldiyse aslında, mecut olmayacak mı?

Biraz daha detay lazım galiba.

omerceri · 7 Ekim 2007

Aşağıdaki kod işine yarar mı?
Kayda gelince çalışıyor.
Private Sub Form_Current()
If [Dönüş Tarihi] = Date Then [Yoklama Bilgisi] = "Mevcut"
End Sub

icapcı · 7 Ekim 2007

sayın yeni54 form mutlaka açılıyor hergün yaklaşık 6 kullanıcısı var açılmama gibi bi durum pek söz konusu değil

sayın omerceri kaydın üstüne gelince olmuyor çünkü 1200 kayıt var yani formu otomatik taraması lazım açılışta

arkadaşlar ilginiz için çok teşekkürler.

omerceri · 7 Ekim 2007

Formun açılışında tüm kayıtları günceleştirir.
Private Sub Form_Load()
DoCmd.RunSQL "UPDATE Ana SET Ana.[Yoklama Bilgisi] = IIf([Dönüş Tarihi]=Date(),'Mevcut');", 0
End Sub

yeni54 · 8 Ekim 2007

omerceri, çözümün güzel gerçekten.

Ama IIf teki "=" i "<=" yapmak daha doğru olur herhalde.

Her ne kadar icapcı form mutlaka açılıyor dese de no'lmaz no'lmaz.

icapcı · 8 Ekim 2007

sayın omerceri eline sağlık fakat küçük bir sorun var Dönüş_Tarihinde tarih olanların hepsinin Yoklama_Bilgisi "MEVCUT" oldu zaten mevcut olanlar ise Yoklama_Bigisi silindi, yani eldeki mecvut yoklama bilgileri silindi, günün tarihinde diyelim 2 tane dönüş var sadece onların Yoklama_Bilgisi var.

yardımcı olursanız sevinirim

ayrıca sayın yeni54 "IIF" "if" olunca kod çalışmıyor

Kolay gelsin Arkadaşlar

yeni54 · 8 Ekim 2007

Kod:

DoCmd.RunSQL "UPDATE Ana SET Ana.[Yoklama Bilgisi] = 'Mevcut' where ana.[D&#246;n&#252;&#351; Tarihi] = Date()"

assenucler · 8 Ekim 2007

Sn. icapcı

Günaydın. Sorunun çözüldüyse, son halini siteye yüklermisin? Teşekkürler.

icapcı · 8 Ekim 2007

Private Sub Form_Load()

DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE Ogrenci_Ana_Tablo SET Ogrenci_Ana_Tablo.[Yoklama_Bilgisi] = 'MEVCUT' where Ogrenci_Ana_Tablo.[Dönüş_Tarihi] = Date()"

DoCmd.SetWarnings True

stDocName = "İzin Dönüş Uyarı"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

--------------------------------------------------------

Öncelikle yardımınız için sağolun sayın yeni54
Bir tek sorunum kaldı. dönüş tarihiyle günün tarihi aynı ise güncelleme ancak formu açıp kapattığımızda oluyor bunu formu aç kapa yaptırarak güncelleye bilirim, fakat yapamadığım şu güncellenecek kayıt olmasada izin dönüş uyarı diye bir form yapmıştım (yukardaki kotta gözüküyor) o açılıyor. Uzun lafın kısası eger güncellenen kayıt varsa bu formun açılmasını sağlayabilirmiyiz.

Sayın assenucler galiba bunu cevap olarak kabul edin. tam anlamıyla arkadaşlarla yaptığımzda göndereyim ok

yeni54 · 8 Ekim 2007

Kod:

Private Sub Form_Open(Cancel As Integer)

Dim cnt As Integer

DoCmd.SetWarnings False

cnt = DCount("Kimlik", "Ana", "[Yoklama Bilgisi]<>'Mevcut' and [Dönüş_Tarihi] = Date()")

If cnt > 0 Then
    DoCmd.RunSQL "UPDATE Ogrenci_Ana_Tablo SET Ogrenci_Ana_Tablo.[Yoklama_Bilgisi] = 'MEVCUT' where Ogrenci_Ana_Tablo.[Dönüş_Tarihi] = Date()"
    stDocName = "İzin Dönüş Uyarı"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

DoCmd.SetWarnings True

End Sub

(tablo ve alan isimleri eklediğin örneğe göre.)

icapcı · 8 Ekim 2007

sayın yeni54 çok sağolun tam istediğim gibi oldu elinize sağlık.

sayın assenucler kodları sayın yeni54 çalışmayı en kısa zamanda atmaya çalışırım

kolay gelsin arkadaşlar.

tabloları isimlerini değiştirdiğim için karışıklık olmasını engellemek için sayın yeni54 ün yazdığı kottaki tablo isimlerini yenileyerek kodu tekrar gönderiyorum.
-------------------------------------------------------------
Private Sub Form_Load()

Dim cnt As Integer

DoCmd.SetWarnings False

cnt = DCount("Kimlik", "Ogrenci_Ana_Tablo", "[Yoklama_Bilgisi]<>'MEVCUT' and [Dönüş_Tarihi] = Date()")

If cnt > 0 Then
DoCmd.RunSQL "UPDATE Ogrenci_Ana_Tablo SET Ogrenci_Ana_Tablo.[Yoklama_Bilgisi] = 'MEVCUT' where Ogrenci_Ana_Tablo.[Dönüş_Tarihi] = Date()"
stDocName = "İzin Dönüş Uyarı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

DoCmd.SetWarnings True

End Sub

------------------------------------------------------------------------------