Skip to main content

AccessTr.neT


Liste Kutusundan Başka Liste Kutusuna Taşıyın

Liste Kutusundan Başka Liste Kutusuna Taşıyın

Çözüldü #1
Private Sub lb1_Click()
Dim posn As Integer
Dim find As String


'find and remove selected from txtCando
find = ";" & lb1.Column(1) & ";"
posn = InStr(1, txtCanDo, find)
txtCanDo = Left(txtCanDo, posn - 1) & Mid(txtCanDo, posn + Len(lb1.Column(1)) + 1)
'move selection to lb2
lb2.AddItem lb1.Column(0) & ";" & lb1.Column(1)
lb1.RemoveItem (lb1.ListIndex)
End Sub
@benbendedeilem
Son Düzenleme: 23/01/2020, 11:41, Düzenleyen: accessman.
Cevapla
#2
Private Sub lb2_Click()
'add selection to txtCando and display in lb1
If IsNull(txtCanDo) Then txtCanDo = ";" 'add leading semicolon to first entry
txtCanDo = txtCanDo & lb2.Column(1) & ";"
lb1.AddItem lb2.Column(0) & ";" & lb2.Column(1)
'remove selection from lb2
lb2.RemoveItem (lb2.ListIndex)
End Sub
Cevapla
#3
Ornek mi yoksa soru mu bu konu, örnekse lütfen örnekler bölümüne acınız.
Cevapla
#4
aslında soru şu bu kodlarla sadece listede değişiklik oluyor bunu kayıtlarda da olacak şekilde ADO ile yapabilir miyiz
Cevapla
#5
bu konuyu admin arkadaşlar tamamen silebilirler mi sitedeki örnek tamamen problemimi çözdü
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task