Me.KLDgrBitTar = Me.KLDgrBasTar + Me.KLDgrGunSayisi
If Me.KLDgrBitTar > Date Then
Me.Durum = "İzinli"
Else
Me.Durum = "Kurumda"
End If
3. soru için.
liste22nin satır kaynağındaki Sql kodunu aşağıdaki ile değiştir.
SELECT Qry_Deneme.KLDgrBasTar, Qry_Deneme.KLDgrGunSayisi, Qry_Deneme.Durum, Qry_Deneme.KLDgrBitTar, Qry_Deneme.IzinTur, Qry_Deneme.Adi, Qry_Deneme.Soyadı
FROM Qry_Deneme
WHERE (((Qry_Deneme.Durum) Like "*" & [Formlar]![Frm_Deneme]![Durum] & "*"))
ORDER BY Qry_Deneme.Adi;
4. soru için;
Durum açılır kutusunun güncellenme sonrasında olayına aşağıdaki kodu yaz
liste22.requery
Buna en son bakın. Tümünün yapılmış hali.