Option Compare Database
Private Sub Combo39_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "select * from Table1 where [M_Ad_Soyad] = '" & Me.Combo39.Value & "'"
'WHERE (((Table1.M_Ad_Soyad)="ADEM GÜL"));
Set rs = CurrentDb.OpenRecordset(strSQL)
Me.RecordSource = strSQL
rs.Close: Set rs = Nothing
End Sub
Private Sub Detail_Paint()
On Error Resume Next
 If (Me.Teblig_Verilme_Tarihi + Me.Dosya_Teslim_Edilme_Suresi) - Me.M_Teslim_Tarihi > 0 Then Me.M_Teslim_Tarihi.ForeColor = vbBlack Else Me.M_Teslim_Tarihi.ForeColor = vbRed
End Sub
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "select * from Table1"
Set rs = CurrentDb.OpenRecordset(strSQL)
Do Until rs.EOF
rs.Edit
If rs!Dosya_Teslim_Edilme_Suresi > 0 Then
        If IsNull(rs!M_Teslim_Tarihi) Then
                If (rs!Teblig_Verilme_Tarihi + rs!Dosya_Teslim_Edilme_Suresi) - Date > 0 Then
                    rs!Teslim_Durumu = (rs!Teblig_Verilme_Tarihi + rs!Dosya_Teslim_Edilme_Suresi) - Date & " gün var"
                Else
                    rs!Teslim_Durumu = (rs!Teblig_Verilme_Tarihi + rs!Dosya_Teslim_Edilme_Suresi) - Date & " gün gecikti"
                End If
        Else
                If (rs!Teblig_Verilme_Tarihi + rs!Dosya_Teslim_Edilme_Suresi) - rs!M_Teslim_Tarihi > 0 Then
                    rs!Teslim_Durumu = "Zamanında teslim etti"
                    Me.M_Teslim_Tarihi.ForeColor = vbBlack
                Else
                    rs!Teslim_Durumu = "Zamanında teslim edilmedi"
                    Me.M_Teslim_Tarihi.ForeColor = vbRed
                End If
        'Rs!Teslim_Durumu = "Teslim Edildi."
        End If
        Else
            rs!Teslim_Durumu = " "
End If
rs.Update
rs.MoveNext
Me.Teslim_Durumu.Requery
Me.M_Teslim_Tarihi.Requery
Me.Dosya_Teslim_Edilme_Suresi.Requery
Loop
Me.Refresh
rs.Close: Set rs = Nothing
End Sub

Private Sub SecTesDrm_AfterUpdate()
Me.Filter = "InStr(1, [Teslim_Durumu], 'var') " & IIf(Me.SecTesDrm = -1, ">0", "=0")
Me.FilterOn = True
End Sub