+- 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ığı: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak (/konu-listeden-coklu-secilen-elemanlari-diger-listeye-sag-tik-ile-kesip-yapistirmak.html)
Sayfalar:
1
2
Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - accessman - 17/03/2020
Olay şu arkadaşlar üç adet listemiz var
liste1 den çoklu seçim yapacağız
sonra liste1 de sağ tık ile cut diyeceğiz
liste2 ye gideceğiz ve sağ tık yapıp copy dediğimizde
liste1 de seçili elemanlar liste2 ye taşınmış olacaklar
mantık basit gibi gözüküyor ama nasıl yapacağımı bilemedim
Cvp: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - berduş - 17/03/2020
Bir önceki konunuzda GSecili ile zaten değerlerin nasil hafızaya alındığı gosterilmis yapmanız gereken bu değerin bir benzerini olusturp yine önceki konunuzdaki gibi split ile ayırıp listeye eklemek
Cvp: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - accessman - 17/03/2020
sn@berduş
örneği biraz değiştirdim çünkü asıl olması gereken zaten bu idi yeni şekli
bir tabloda isimler var her isimin hangi listede olduğunu gösteren listId değeri var
listId değerine göre liste1,2,3 de listeleniyor
bizde sağ tık ile kesip yapıştırarak listeden diğer listeye taşıyacağız
yani bu durumda seçilen elemanların listId değerini update edeceğiz
yeni listesinin adına göre listId değerini nasıl güncelleyebiliriz
Cvp: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - accessman - 17/03/2020
Public Function güncelle(eski As String, ByVal yeni As Integer)
Dim i As Variant
Dim rstkayit As New ADODB.Recordset
Dim strSQL As String
strSQL = "UPDATE Tablo1 SET listId =" & Right(yeni, 1) & " WHERE id =" & eski & ";"
CurrentProject.Connection.Execute strSQL
End Functionbunları nasıl birleştireceğiz
Cvp: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - berduş - 17/03/2020
kopyalama fonksiyonunu aşağıdaki gibi düzenlerseniz seçili ögelerin ID değerini almış olursunuz
Function fCopy()
Dim varItm As Variant
Dim frm As Form
Dim Ctl As Control
Set frm = Screen.ActiveForm
Set Ctl = Screen.ActiveForm.ActiveControl
On Error Resume Next
Application.CommandBars.ExecuteMso ("Copy")
KpySecili = ""
For Each varItm In Ctl.ItemsSelected
KpySecili = KpySecili & "," & Ctl.Column(0, varItm)
Next varItm
KpySecili = Mid(KpySecili, 2)
End Functionama KpySecili ile zaten değiştirlecek kayıtların IDleri alındığınıdan
currentdb.execute "" ile çağrılabilir
yapıştır fonksiyonuna eklenen form1deki güncelleme fonksiyonu
Function fPaste()
On Error Resume Next
Application.CommandBars.ExecuteMso ("Paste")
Form_Form1.guncelle
End FunctionPublic Function guncelle()
Dim i, YnDgr As Variant
Dim strSQL As String
Debug.Print "KpySecili ", KpySecili
YnDgr = Right(ActiveControl.Name, 1)
strSQL = "UPDATE Tablo1 SET listId =" & YnDgr & " WHERE id in (" & KpySecili & ");"
CurrentDb.Execute strSQL
ActiveControl.Requery
End Function
Cvp: Listeden Çoklu Seçilen Elemanları Diğer Listeye Sağ Tık İle Kesip Yapıştırmak - access_delisi - 17/03/2020
Benim kisisel dusuncem, olmuyorsa zorlamayacaksin, birakacaksin. benden bir gun sonra 31.10.2008'de uye olmussunuz. 700'den fazla konu acip cevap almissaniz ve verilen uc satirlik kodu uygulayamayacaksan birakacaksin, kimseyi mesgul etmeyeceksin, sonra program yaziyorum demeyeceksin, bu benim forumdakiler icin kisisel dusuncemdir, ayrica hic altin uye oldunuz mu onuda merak ediyorum,