Skip to main content

AccessTr.neT


Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü

Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü

#13
Rica ederim.

Mükerrer kontrolü için önceki kodlar çalışır ve denemem lakin yapılır kesin.

Aktar sayfasını aslında ileride çeltikleri ayarlamak için eklemiştim yani arama ve mükerrer için sayfaya gerek yok.

Bugün hem sayfalı hemde sayfasız olarak denerim akşam.
Cevapla
#14
Aslında aktar adındaki sayfa ile kaydetme kodlarının alakası yok.
Hız ve sıralama için basit olmuştu ve dediğim gibi çeltik içinde.

Önceki gün uğraşırken veriler hafızaya aldıramamıştım global yada public gibi uğraşırken.İşi çeltik olayı karıştırıyor yoksa diperleri zor değil.
Her neyse üstad bugün yeterince zamanım olur akşama dönüş yaparım o zamana kadar çözüm gelmezse.
Cevapla
#15
Çok teşekkür ederim Hocam
Cevapla
#16
Verdiğim kodu denedim çalışıyor resimdeki boyalı yerler gibi olacak.
Ayrıca alttaki gibi ; kullanılmalı , yerine.Siz  virgül kullanmışsınız.
Kodu ilk eklediğiniz dosyada denedim.

ListBox1.ColumnWidths = "20;50;100;100,100"
ListBox2.ColumnWidths = "20;50;100;100;100"

[Resim: do.php?img=10516]
Cevapla
#17
Birşeyler yaptım kolaylık olsun diyede tklama adında sayfa ekledim.
Deneyin işlemler doğruysa o sayfayıda silerim.

[Resim: do.php?img=10517]
.rar ListBox İşemleri3.rar (Dosya Boyutu: 48,49 KB | İndirme Sayısı: 3)
Cevapla
#18
Sanırım bu şekilde sayfasızda oldu.
Listbox2 için kodları eklemiştim.Şimdi diğer eklediğim kodları yazayım.
Kodların en üstüne
Dim dict As Object
ekledim.
Sonra Private Sub TxtAra_Change() kodunada  alttaki kodu ekledim.
        For i = 0 To ListBox1.ListCount - 1
            If dict.exists(ListBox1.List(i)) Then
                ListBox1.Selected(i) = True
            End If
        Next
Ve diğer kodlarda altta.

Private Sub ListBox1_Change()
    Dim son As Long, aranan As Long, indexNo As Long
   
    indexNo = ListBox1.ListIndex
    If indexNo > 0 Then
        aranan = ListBox1.List(indexNo)
        If dict.exists(aranan) = False Then
            If ListBox1.Selected(indexNo) = True Then
                dict.Add aranan, 0
            End If
        Else
            If ListBox1.Selected(indexNo) = False Then dict.Remove (aranan)
        End If
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set dict = Nothing
End Sub
.rar ListBox İşemleri 4.rar (Dosya Boyutu: 47,96 KB | İndirme Sayısı: 1)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task