ListView Sıralama Sorunu

E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
Altın Üyelik Bitiş Tarihi
10/05/2019
Aşağıda vermiş olduğum kodlar access veri tabanından listeleri çekiyor. Benim sorunum Personel Kodu sütunundaki numaralara göre listeleme yaptırmak. ne denediysem olmadı. 1 den başlayarak otomatik olarak son sayıya kadar sıralı bir şekilde listeleye almak istiyorum.
Yardımlarınız için çok teşekkür ederim...

Kod: 
Private Sub listeye_al(Optional aranacak As String, Optional aranacak2 As String, Optional aranacak3 As String)

Dim X As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL.mdb"
Set rs = CreateObject("adodb.recordset")

ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True

rs.Open "Select * from PERSONEL WHERE (A2 like '%" & aranacak & "%') AND (A4 like '%" & aranacak2 & "%') AND (A10 like '%" & aranacak3 & "%')", baglan, 1, 1


If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    X = X + 1
    If X Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , rs(0).Value
    For k = 1 To 46
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(X).SubItems(k) = rs(k).Value
        ListView1.ListItems(X).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close
Label100 = ListView1.ListItems.Count & " Adet Aktif Personel Listelendi"
End Sub
Private Sub UserForm_Initialize()
 On Error Resume Next
    Dim hWnd As Long
    Dim Style As Long
    If Val(Application.Version) >= 9 Then
          hWnd = FindWindow("ThunderDFrame", Me.Caption)
    Else
          hWnd = FindWindow("ThunderXFrame", Me.Caption)
    End If
    
    Style = GetWindowLong(hWnd, GWL_STYLE)
    Style = (Style And Not WS_SYSMENU)
    SetWindowLong hWnd, GWL_STYLE, Style
    
With ListView1.ColumnHeaders
    .Add , , "S.NO", 1
    .Add , , "P.KODU", 60
    .Add , , "ADI SOYADI", 150
    .Add , , "T.C. KİMLİK NO", 70
    .Add , , "FİRMA", 150
    .Add , , "ANNE ADI", 70
    .Add , , "BABA ADI", 70
    .Add , , "DOĞUM YERİ", 70
    .Add , , "DOĞUM TARİHİ", 70
    .Add , , "İŞE BAŞ.TAR.", 70
    .Add , , "BÖLÜMÜ", 80
    .Add , , "GÖREVİ", 80
    .Add , , "TELEFON", 70
    .Add , , "İŞTEN AY.TAR.", 80
    .Add , , "İL", 70
    .Add , , "İLÇE", 70
    .Add , , "MAH-KÖY", 100
    .Add , , "KİMLİK SERİ NO", 80
    .Add , , "CİLT NO", 60
    .Add , , "HANE NO", 60
    .Add , , "SAYF NO", 60
    .Add , , "ADRES", 300
    .Add , , "EŞİ TC", 70
    .Add , , "EŞİ AD SOYAD", 150
    .Add , , "EŞİ D.Y.", 70
    .Add , , "EŞİ D.T.", 70
    .Add , , "1.ÇOCUK TC", 70
    .Add , , "1.ÇOCUK ADI", 150
    .Add , , "1.ÇOCUK D.Y.", 70
    .Add , , "1.ÇOCUK D.Y.", 70
    .Add , , "2.ÇOCUK TC", 70
    .Add , , "2.ÇOCUK ADI", 150
    .Add , , "2.ÇOCUK D.Y.", 70
    .Add , , "2.ÇOCUK D.T.", 70
    .Add , , "3.ÇOCUK TC", 70
    .Add , , "3.ÇOCUK ADI", 150
    .Add , , "3.ÇOCUK D.Y.", 70
    .Add , , "3.ÇOCUK D.T.", 70
    .Add , , "4.ÇOCUK TC", 70
    .Add , , "4.ÇOCUK ADI", 150
    .Add , , "4.ÇOCUK D.Y.", 70
    .Add , , "4.ÇOCUK D.T.", 70
    .Add , , "5.ÇOCUK TC", 70
    .Add , , "5.ÇOCUK ADI", 150
    .Add , , "5.ÇOCUK D.Y.", 70
    .Add , , "5.ÇOCUK D.T.", 70
    .Add , , "Medeni Durumu", 70
End With
listeye_al
End Sub
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
efeksk' Alıntı:
Aşağıda vermiş olduğum kodlar access veri tabanından listeleri çekiyor. Benim sorunum Personel Kodu sütunundaki numaralara göre listeleme yaptırmak. ne denediysem olmadı. 1 den başlayarak otomatik olarak son sayıya kadar sıralı bir şekilde listeleye almak istiyorum.
Yardımlarınız için çok teşekkür ederim...

Kod: 
Private Sub listeye_al(Optional aranacak As String, Optional aranacak2 As String, Optional aranacak3 As String)
 
Dim X As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL.mdb"
Set rs = CreateObject("adodb.recordset")
 
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True
 
rs.Open "Select * from PERSONEL WHERE (A2 like '%" & aranacak & "%') AND (A4 like '%" & aranacak2 & "%') AND (A10 like '%" & aranacak3 & "%')", baglan, 1, 1
 
 
If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    X = X + 1
    If X Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , rs(0).Value
    For k = 1 To 46
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(X).SubItems(k) = rs(k).Value
        ListView1.ListItems(X).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close
Label100 = ListView1.ListItems.Count & " Adet Aktif Personel Listelendi"
End Sub
Private Sub UserForm_Initialize()
 On Error Resume Next
    Dim hWnd As Long
    Dim Style As Long
    If Val(Application.Version) >= 9 Then
          hWnd = FindWindow("ThunderDFrame", Me.Caption)
    Else
          hWnd = FindWindow("ThunderXFrame", Me.Caption)
    End If
 
    Style = GetWindowLong(hWnd, GWL_STYLE)
    Style = (Style And Not WS_SYSMENU)
    SetWindowLong hWnd, GWL_STYLE, Style
 
With ListView1.ColumnHeaders
    .Add , , "S.NO", 1
    .Add , , "P.KODU", 60
    .Add , , "ADI SOYADI", 150
    .Add , , "T.C. KİMLİK NO", 70
    .Add , , "FİRMA", 150
    .Add , , "ANNE ADI", 70
    .Add , , "BABA ADI", 70
    .Add , , "DOĞUM YERİ", 70
    .Add , , "DOĞUM TARİHİ", 70
    .Add , , "İŞE BAŞ.TAR.", 70
    .Add , , "BÖLÜMÜ", 80
    .Add , , "GÖREVİ", 80
    .Add , , "TELEFON", 70
    .Add , , "İŞTEN AY.TAR.", 80
    .Add , , "İL", 70
    .Add , , "İLÇE", 70
    .Add , , "MAH-KÖY", 100
    .Add , , "KİMLİK SERİ NO", 80
    .Add , , "CİLT NO", 60
    .Add , , "HANE NO", 60
    .Add , , "SAYF NO", 60
    .Add , , "ADRES", 300
    .Add , , "EŞİ TC", 70
    .Add , , "EŞİ AD SOYAD", 150
    .Add , , "EŞİ D.Y.", 70
    .Add , , "EŞİ D.T.", 70
    .Add , , "1.ÇOCUK TC", 70
    .Add , , "1.ÇOCUK ADI", 150
    .Add , , "1.ÇOCUK D.Y.", 70
    .Add , , "1.ÇOCUK D.Y.", 70
    .Add , , "2.ÇOCUK TC", 70
    .Add , , "2.ÇOCUK ADI", 150
    .Add , , "2.ÇOCUK D.Y.", 70
    .Add , , "2.ÇOCUK D.T.", 70
    .Add , , "3.ÇOCUK TC", 70
    .Add , , "3.ÇOCUK ADI", 150
    .Add , , "3.ÇOCUK D.Y.", 70
    .Add , , "3.ÇOCUK D.T.", 70
    .Add , , "4.ÇOCUK TC", 70
    .Add , , "4.ÇOCUK ADI", 150
    .Add , , "4.ÇOCUK D.Y.", 70
    .Add , , "4.ÇOCUK D.T.", 70
    .Add , , "5.ÇOCUK TC", 70
    .Add , , "5.ÇOCUK ADI", 150
    .Add , , "5.ÇOCUK D.Y.", 70
    .Add , , "5.ÇOCUK D.T.", 70
    .Add , , "Medeni Durumu", 70
End With
listeye_al
End Sub
Genişletmek için tıkla ...
listeyi aidıktan sonra kodun hemen altına bunu ekle kırmızı yer birinci sutünu sıralıyor.

Kod: 
.Sorted = True
.SortKey = [COLOR=red]1[/COLOR]
.SortOrder = lvwAscending
.Sorted = False
 
E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
Altın Üyelik Bitiş Tarihi
10/05/2019
Halit kardeşim cansın, adamsın, paşasın, arkadaşsın, bycoder sın ama ufak bi sorun var :D

Listeye_al prosedürünün bitimine aşağıdaki şekilde kodu yerleştirdim.. Yerleştirdim ama liste çorba oldu. sıra şöle gidiyor. 1-2-8-16-243-118-4-27 gibi karman çorman bi liste oldu abi :D

Kod: 
Private Sub listeye_al(Optional aranacak As String, Optional aranacak2 As String, Optional aranacak3 As String)

Dim X As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL.mdb"
Set rs = CreateObject("adodb.recordset")

ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True

rs.Open "Select * from PERSONEL WHERE (A2 like '%" & aranacak & "%') AND (A4 like '%" & aranacak2 & "%') AND (A10 like '%" & aranacak3 & "%')", baglan, 1, 1


If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    X = X + 1
    If X Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , rs(0).Value
    For k = 1 To 46
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(X).SubItems(k) = rs(k).Value
        ListView1.ListItems(X).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close

[COLOR="Red"]With ListView1
.Sorted = True
.SortKey = 1
.SortOrder = lvwAscending
.Sorted = False
End With[/COLOR]

Label100 = ListView1.ListItems.Count & " Adet Aktif Personel Listelendi"
End Sub
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Birde bunu dene ancak form açıldığı zaman sütün başlıklarına tıklaman yeterli.

Kod: 
Dim komm(65536)
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Index = ColumnHeader.Index
For i = 1 To ListView1.ListItems.Count
komm(i) = ""
If ColumnHeader.Index > 1 Then
If IsNumeric(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text) = True Then
If Len(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text) = 10 Then
If IsDate(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text) = True Then
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
CDec(CDate(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text))
komm(i) = CDec(CDate(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text))
Else
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
Format(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text, "000000000000.00")
End If
Else
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
Format(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text, "000000000000.00")
End If
Else
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text
End If
Else
If IsNumeric(ListView1.ListItems(i).Text) = True Then
If Len(ListView1.ListItems(i).Text) = 10 Then
If IsDate(ListView1.ListItems(i).Text) = True Then
ListView1.ListItems(i).Text = _
CDec(CDate(ListView1.ListItems(i).Text))
komm(i) = CDec(CDate(ListView1.ListItems(i).Text))
Else
ListView1.ListItems(i).Text = _
Format(ListView1.ListItems(i).Text, "000000000000.00")
End If
Else
ListView1.ListItems(i).Text = _
Format(ListView1.ListItems(i).Text, "000000000000.00")
End If
Else
ListView1.ListItems(i).Text = _
ListView1.ListItems(i).Text
End If
End If
Next i
ListView1.Sorted = True
ListView1.SortKey = ColumnHeader.Index - 1
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
If ColumnHeader.Index > 1 Then
If IsNumeric(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text) = True Then
If komm(i) <> "" Then
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
Format(CDate(ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text), "DD/MM/YYYY")
Else
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text * 1
End If
Else
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text
End If
Else
If IsNumeric(ListView1.ListItems(i).Text) = True Then
If Len(ListView1.ListItems(i).Text) = 10 Then
If IsDate(ListView1.ListItems(i).Text) = True Then
ListView1.ListItems(i).Text = _
Format(CDate(ListView1.ListItems(i).Text), , "DD/MM/YYYY")
Else
ListView1.ListItems(i).Text = _
ListView1.ListItems(i).Text * 1
End If
Else
ListView1.ListItems(i).Text = _
ListView1.ListItems(i).Text * 1
End If
Else
ListView1.ListItems(i).Text = _
ListView1.ListItems(i).Text
End If
End If
Next i
End Sub
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Verileri datadan aldığın şekliyle ekran görüntüsünü buraya ekleyebilirmisin.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu kodda ilk sutündaki değerleri sıralıyor (tabi sayı formatındaysa)

Kod: 
Private Sub listeye_al(Optional aranacak As String, Optional aranacak2 As String, Optional aranacak3 As String)
Dim X As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL.mdb"
Set rs = CreateObject("adodb.recordset")
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True
rs.Open "Select * from PERSONEL WHERE (A2 like '%" & aranacak & "%') AND (A4 like '%" & aranacak2 & "%') AND (A10 like '%" & aranacak3 & "%')", baglan, 1, 1

If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    X = X + 1
    If X Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , [COLOR=red]Format([/COLOR]rs(0).Value[COLOR=red], "000000000000000")[/COLOR]
    For k = 1 To 46
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(X).SubItems(k) = rs(k).Value
        ListView1.ListItems(X).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close
 
[COLOR=red]ListView1.Sorted = True
ListView1.SortKey = 0
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
Next i[/COLOR]
 
Label100 = ListView1.ListItems.Count & " Adet Aktif Personel Listelendi"
End Sub
 
E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
Altın Üyelik Bitiş Tarihi
10/05/2019
halit3' Alıntı:
Bu kodda ilk sutündaki değerleri sıralıyor (tabi sayı formatındaysa)

Kod: 
Private Sub listeye_al(Optional aranacak As String, Optional aranacak2 As String, Optional aranacak3 As String)
Dim X As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL.mdb"
Set rs = CreateObject("adodb.recordset")
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True
rs.Open "Select * from PERSONEL WHERE (A2 like '%" & aranacak & "%') AND (A4 like '%" & aranacak2 & "%') AND (A10 like '%" & aranacak3 & "%')", baglan, 1, 1

If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    X = X + 1
    If X Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , [COLOR=red]Format([/COLOR]rs(0).Value[COLOR=red], "000000000000000")[/COLOR]
    For k = 1 To 46
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(X).SubItems(k) = rs(k).Value
        ListView1.ListItems(X).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close
 
[COLOR=red]ListView1.Sorted = True
ListView1.SortKey = 0
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
Next i[/COLOR]
 
Label100 = ListView1.ListItems.Count & " Adet Aktif Personel Listelendi"
End Sub
Genişletmek için tıkla ...
abi bu kodlarıda denedim ama olmadı. ekran grüntüsünü gönderiyorum. Personel kodu olan bölümde kırmızı daire içindeki siyah halkada 7 RAKAMI İKİ BASAMAKLI SAYILARIN ARASINDA GÖRÜNÜYOR. ONUN GİBİ LİSTENİN DEVAMINDA BİR KAÇ RAKAM DAHA VAR

 
Son düzenleme:
E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
Altın Üyelik Bitiş Tarihi
10/05/2019
halit kardeşim çok yaşa. Son gönderdiğin kodda ben ikinci sütunu yani 1 Nolu sütunu sıralatmak için
Kod: 
ListView1.Sorted = True
[COLOR="Red"]ListView1.SortKey = 0 => yerine [COLOR="Blue"]1 yaptım[/COLOR][/COLOR]
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
Next i
ama prosedürdeki
Kod: 
ListView1.ListItems.Add , , Format(rs([COLOR="Red"]0'ı 1 yapmamışım[/COLOR]).Value, "000000000000000")
şimdi düzeldi. Allah senden razı olsun kardeşim. Tek sorunum bu sıralama olurken mavi siyah dizilimli satırların bozulması. Biraz uğraşırsam sanırım çözerim. Tekrar Tekrar teşekkür ederim.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,855
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
efeksk' Alıntı:
halit kardeşim çok yaşa. Son gönderdiğin kodda ben ikinci sütunu yani 1 Nolu sütunu sıralatmak için
Kod: 
ListView1.Sorted = True
[COLOR=red]ListView1.SortKey = 0 => yerine [COLOR=blue]1 yaptım[/COLOR][/COLOR]
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
Next i
ama prosedürdeki
Kod: 
ListView1.ListItems.Add , , Format(rs([COLOR=red]0'ı 1 yapmamışım[/COLOR]).Value, "000000000000000")
şimdi düzeldi. Allah senden razı olsun kardeşim. Tek sorunum bu sıralama olurken mavi siyah dizilimli satırların bozulması. Biraz uğraşırsam sanırım çözerim. Tekrar Tekrar teşekkür ederim.
Genişletmek için tıkla ...
iyi çalışmalar
 
E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
Altın Üyelik Bitiş Tarihi
10/05/2019
efeksk' Alıntı:
halit kardeşim çok yaşa. Son gönderdiğin kodda ben ikinci sütunu yani 1 Nolu sütunu sıralatmak için
Kod: 
ListView1.Sorted = True
[COLOR="Red"]ListView1.SortKey = 0 => yerine [COLOR="Blue"]1 yaptım[/COLOR][/COLOR]
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = Val(ListView1.ListItems(i).Text)
Next i
ama prosedürdeki
Kod: 
ListView1.ListItems.Add , , Format(rs([COLOR="Red"]0'ı 1 yapmamışım[/COLOR]).Value, "000000000000000")
şimdi düzeldi. Allah senden razı olsun kardeşim. Tek sorunum bu sıralama olurken mavi siyah dizilimli satırların bozulması. Biraz uğraşırsam sanırım çözerim. Tekrar Tekrar teşekkür ederim.
Genişletmek için tıkla ...
Halit kardeş. Bu düzenlemeden sıralama çok rahat çalışıyor. Fakat ;
Kod: 
kimlik = txKimlik

Call baglanti
Set rs = baglan.Execute("DELETE FROM aktifpersonel WHERE KIMLIK=" & kimlik)

Set baglan = Nothing: Set rs = Nothing:

MsgBox kimlik & " kimlik numaralı kayıt silindi.", vbInformation + vbOKOnly, "PerSis v.16.4.11 Beta"
kodları ile personeli veritabanından silmek istediğimde silindi diyor ama silmiyor.
Sıralama kodunu kaldırınca siliyor. Sence nedendir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst