Skip to main content

AccessTr.neT


Liste kutusundan seçili olanı tablodan silme...

Liste kutusundan seçili olanı tablodan silme...

#13
Arkadaşlar konu eski fakat benim isteğim veri tabanından değil sadecek listeden silmesi yada gizlemesi. bununla ilgili olarak aşağıdaki kodu yazdım fakat çalışmadı. bakma şansınız var mı?

Private Sub Komut5_Click()
With Me.Liste0
    If .ItemsSelected.Count <> 0 Then
        For i = 0 To .ItemsSelected.Count - 1
            bhd = bhd & .ItemData(.ItemsSelected(i)) & vbNewLine
             
                         CurrentDb.Execute "Insert Into Tablo2 ( pers_ıp, maas, prim , kesinti ) " & _
                              "Select " & CLng(.Column(0, i)) & " As E1, " & CLng(.Column(2, i)) & " As E2, " & CLng(.Column(3, i)) & " As E3, " & CLng(.Column(4, i)) & " As E4 "
          
        Next i
 Liste0.Items.RemoveAt (Liste0.SelectedItem(i))
        Me.Metin2 = bhd
        
 
    End If
End With
Me.Tablo2.Requery
End Sub
Cevapla
#14
(23/01/2019, 18:14)yahzee_61 yazdı: Arkadaşlar konu eski fakat benim isteğim veri tabanından değil sadecek listeden silmesi yada gizlemesi. bununla ilgili olarak aşağıdaki kodu yazdım fakat çalışmadı. bakma şansınız var mı?

Merhaba, uygun konu başlığı ile örnek uygulamanızı ekleyerek yeni konu açınız.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da