Private Sub KytSil_Click()
Dim Ctl As Control, Kyt As Recordset, SQLa As String
For Each Ctl In Me.Controls
If Ctl.ControlType = 109 Then
    If Me.Controls(Ctl.Name).BackColor = RGB(255, 250, 160) Then
            Dim Isaret As String, Kosul As String
                    If IsDate(Me.Controls(Ctl.Name)) Then Isaret = " And [" & Ctl.Name & "]=#" & Format(Me.Controls(Ctl.Name), "mm\/dd\/yyyy") & "#" Else Isaret = " And [" & Ctl.Name & "]='" & Me.Controls(Ctl.Name) & "'"
                    Kosul = Kosul & Isaret
    End If
End If
Next Ctl
If Kosul <> "" Then
MsgBox Mid(Kosul, 5, Len(Kosul))
 'CurrentDb.Execute "DELETE * FROM Tbl_Frekans WHERE " & Mid(Kosul, 5, Len(Kosul))
End If
End Sub