+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste kutusundan seçili olanı tablodan silme... (/konu-liste-kutusundan-secili-olani-tablodan-silme.html)
Cvp: Liste kutusundan seçili olanı tablodan silme... - yahzee_61 - 23/01/2019
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
Cvp: Liste kutusundan seçili olanı tablodan silme... - ozanakkaya - 23/01/2019
(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.