+- 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 Başka Liste Kutusuna Taşıyın (/konu-liste-kutusundan-baska-liste-kutusuna-tasiyin.html)
Liste Kutusundan Başka Liste Kutusuna Taşıyın - accessman - 23/01/2020
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
Cvp: Liste Kutusundan Başka Liste Kutusuna Sürükleyin - accessman - 23/01/2020
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
Cvp: Liste Kutusundan Başka Liste Kutusuna Sürükleyin - berduş - 23/01/2020
Ornek mi yoksa soru mu bu konu, örnekse lütfen örnekler bölümüne acınız.
Cvp: Liste Kutusundan Başka Liste Kutusuna Taşıyın - accessman - 23/01/2020
aslında soru şu bu kodlarla sadece listede değişiklik oluyor bunu kayıtlarda da olacak şekilde ADO ile yapabilir miyiz
Cvp: Liste Kutusundan Başka Liste Kutusuna Taşıyın - accessman - 23/01/2020
bu konuyu admin arkadaşlar tamamen silebilirler mi sitedeki örnek tamamen problemimi çözdü