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 VerAta, Isaret As String, Kosul As String
                    If IsDate(Me.Controls(Ctl.Name)) And Not IsNull(Me.Controls(Ctl.Name)) Then VerAta = VerAta & ", [" & Ctl.Name & "] = Null": Isaret = " And [" & Ctl.Name & "]=#" & Format(Me.Controls(Ctl.Name), "mm\/dd\/yyyy") & "#" Else VerAta = VerAta & ", [" & Ctl.Name & "] = Null": Isaret = " And [" & Ctl.Name & "]='" & Me.Controls(Ctl.Name) & "'"
                    Kosul = Kosul & Isaret
                    Ctl.Value = vbNullString  '********* Alan Temizleme *********
            End If
  ElseIf Ctl.ControlType = 106 Then
            If Me.Controls(Ctl.Name).Value = -1 Then Ctl.Value = 0   '******* Seçenegi degiştirme **********
    End If
Next Ctl
If Kosul <> "" Then
MsgBox Mid(Kosul, 5, Len(Kosul))
'CurrentDb.Execute "DELETE * FROM Tbl_Frekans WHERE " & Mid(Kosul, 5)
'CurrentDb.Execute "UPDATE Tbl_Frekans SET " & Mid(VerAta, 2) & " WHERE " & Mid(Kosul, 5)
End If
End Sub