AccessTr.neT

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

(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.