AccessTr.neT

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

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

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: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

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: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.