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ı
3
189

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
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ı: 1)
Cevapla
#2
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
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
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
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task