Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

SeferŞANLI
SeferŞANLI
Access Soruları ve Cevapları
4
345

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

#1
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: Dün,23:00
Yorumları: 810
Konuları: 157
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
"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
.rar liste kutusu sorunu.rar (Dosya Boyutu: 794,54 KB | İndirme Sayısı: 2)
Cevapla
#2
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: Dün,23:00
Yorumları: 810
Konuları: 157
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
filed sized hatası alıyorum sürekli
Cevapla
#3
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: Dün,23:00
Yorumları: 810
Konuları: 157
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
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.
Cevapla
#4
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: Dün,23:00
Yorumları: 810
Konuları: 157
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
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.
Cevapla
#5
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,00:18
Yorumları: 3.600
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.050
Mesleğiniz: Yazılım
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) & "'"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task