Liste Kutusundan Çift Tıklama İle Kayıt Silmek.

Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Soruları ve Cevapları (https://accesstr.net/forum-access-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. (/konu-liste-kutusundan-cift-tiklama-ile-kayit-silmek.html)

Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 14/09/2025

"frm_evci_sorgulama" liste kutusunda çift tıklama ile veri silinip listenin güncellenmesini istiyorum. Nerde hata yapıyorum acaba.

Kod:

Dim rs As Object



    Set rs = Me.Recordset.Clone

    rs.FindFirst "Str(Nz[Evci_Cikan_ID])  " = " & Me![Liste491] & " '"

 

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 14/09/2025

filed sized hatası alıyorum sürekli

RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 14/09/2025

Kod:

sub sil()

If MsgBox("" & Me.Liste491.Column(0) & " " & "  isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE TbLevci.Evci_ID, * FROM TbLevci WHERE TbLevci.Evci_ID = " & Liste491.Column(0)



Me.Liste491.Requery

Else

Exit Sub

End If

bu kodla nedenedim bunda da eksik ilgeç hatası veriyor.

RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 14/09/2025

Kod:

Private Sub kmtsil_Click()

Dim GItem As Variant

For Each GItem In Me.Liste491.ItemsSelected

If MsgBox(Me.Liste491.Column(0, GItem) & "adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

DoCmd.SetWarnings False

DoCmd.RunSQL "delete ogrenciID from TbLevci where (((ogrenciID)=" & Me.Liste491.ItemData(GItem) & "))"

DoCmd.SetWarnings True

End If

Next GItem

Me.Liste491.Requery

Recalc

'isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then



End Sub

bu kodlamada girdiğiniz değer bu alan için geçerli değil hatası alıyorum.

RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - C*e*l*o*y*c*e - 15/09/2025

Private Sub kmtsil_Click()
Dim GItem As Variant
For Each GItem In Me.Liste491.ItemsSelected
If MsgBox(Me.Liste491.Column(0, GItem) & " adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
' Sql düzeltildi
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = " & Me.Liste491.ItemData(GItem)
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc
End Sub

eğer bu alan metin ise tırnak içine almalısınız:
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = '" & Me.Liste491.ItemData(GItem) & "'"