aşağıdaki gibi düzenler misiniz?

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

       

            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

Else

  

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

  

End If