Hareket Gören Kayıtların Silinmemesi Hakkinda

1 2 3 4
18/03/2020, 11:05

Oğuz Türkyılmaz

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
18/03/2020, 11:56

berduş

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
18/03/2020, 12:00

berduş

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
bu kodlar kayıt silinince mi çalışacak
18/03/2020, 12:07

Oğuz Türkyılmaz

(18/03/2020, 12:00)berduş yazdı:
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
bu kodlar kayıt silinince mi çalışacak
 evet Sn@berduş formdaki alanları boşaltıyorum
18/03/2020, 12:08

berduş

8. mesajdaki kodu tekrar düzenledim
ilk kayıtta silinemez uyarısı verdi ve silmedi
2. kayıtta sileyim mi dedi onaylayınca sildi
3. kayıtta onaylamadığım için işlem yapmadı
18/03/2020, 12:22

Oğuz Türkyılmaz

(18/03/2020, 12:08)berduş yazdı: 8. mesajdaki kodu tekrar düzenledim
ilk kayıtta silinemez uyarısı verdi ve silmedi
2. kayıtta sileyim mi dedi onaylayınca sildi
3. kayıtta onaylamadığım için işlem yapmadı

Else blogu ve mesaj en alta alınmış sanırım başka bir değişiklik yok. Çok teşekkür ederim  ben şimdi Uye hareketlerinin tutulduğu 3 ayrı tablo daha var onlarıda koda ekleyip çalıştırayım.
1 2 3 4