Kodu denedim ama nerede hata yaptıysam hareket gören 1 nolu Uyenın kaydında  sil butonuna tıkladığımda herhangi bir tepki vermiyor. Ne hata veriyor nede mesaj. Nereyi yanlış yada eksik yaptım. ( Kod satırında yorum şekline çevirdiğim satırla silme işlemi gerçekleşiyordu yeni silme işlemi için hem ID hem de UyeNo alanlarında ayrı ayrı denedim ikisinde de sonuç değişmedi )

Private Sub Sil_BTN_Click()



If 0 = Nz(DCount("UyeNo", "T_UyeTahsilat", "[UyeNo]=" & Me.UyeNo_TXT), 0) Then

  

  If MsgBox("Üye Kaydı ve tüm bilgileri silinecek, İşlemin geri dönüşü yoktur. Eminmisiniz ? ", vbCritical + vbYesNo, " !!! DİKKAT !!! ") = vbYes Then

  

  CurrentDb.Execute "delete from T_Uye where [UyeNo]=" & Me.UyeNo_TXT



Else

  

  MsgBox "DİKKAT" & vbCrLf & (" Hareket gören kayıtlar silinemez."), vbCritical

  

End If



'If MsgBox("Üye Kaydı ve tüm bilgileri silinecek, İşlemin geri dönüşü yoktur. Eminmisiniz ? ", vbCritical + vbYesNo, " !!! DİKKAT !!! ") = vbYes Then



'CurrentDb.Execute "delete from T_Uye where [ID]=" & Me.ID_TXT



'End If



Dim fat As Control

    For Each fat In Me.Form.Controls

    Select Case fat.ControlType

        Case acTextBox 'Bütün metin kutularini bosalt

            fat.Value = ""

          Case acComboBox 'bütün açilan kutulari bosalt

              fat.Value = ""

            Case acCheckBox

                fat.Value = "0"

    End Select

Next

End If



End Sub