Excele nasıl alıyorsunuz. Dış veri al ile mi alıyorsunuz.
Accesste Hesap Planı Sıralama
Kod:
Private Sub listeyap()
With Me.ListView1
.Gridlines = True
.FullRowSelect = True
.View = lvwReport
.ListItems.Clear
.ColumnHeaders.Clear
End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "Kimlik", 0
.ColumnHeaders.Add , , "Hesap Grubu", 60
.ColumnHeaders.Add , , "Hesap Kodu", 60
.ColumnHeaders.Add , , "Hesap Adı", 130
.ColumnHeaders.Add , , "Türü", 30
.ColumnHeaders.Add , , "Hesap Açıklama", 370
.FullRowSelect = True
.Gridlines = True
End With
Dim umit As ListItem
On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\HesapPlani.accdb"
rs.Open "select * from [Hesap_Plani]", baglan, 1, 1
ListView1.ListItems.Clear
Dim satir As Integer
On Error Resume Next
If Not rs.EOF Then
Do While Not rs.EOF
Set umit = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
umit.SubItems(1) = rs.Fields("Tur")
umit.SubItems(2) = rs.Fields("Kod")
umit.SubItems(3) = rs.Fields("HesapAdi")
umit.SubItems(4) = rs.Fields("Csekil")
umit.SubItems(5) = rs.Fields("Hesap_aciklama")
rs.MoveNext
Refresh.ListView1
Loop
End If
rs.Close: con.Close
Set rs = Nothing
End Sub
Kod:
select * from [Hesap_Plani]
@benbendedeilem
rs.Open "select * from [Hesap_Plani] order by kod", baglan, 1, 1
Gibi yazdığınızda istediğiniz gibi sıralamıyor mu?
Gibi yazdığınızda istediğiniz gibi sıralamıyor mu?
Yoksa siz bilgisayara "Koda göre sırala" dememiş miydiniz?
"order by kod"
24. mesajda
ve
derken bunu kastetmiştim
"order by kod"
24. mesajda
Kod:
ya veri kaynağı Sql alınırken istediğiniz sıralamada alabilirsinizKod:
bilgisayarın sizin nasıl sıralama yapmak istediğinizden haberi var mı
onun ile konuştunuz mu ona dediniz miKod:
order by kod
@benbendedeilem
Son Düzenleme: 21/04/2020, 13:42, Düzenleyen: accessman.
Konuyu Okuyanlar: 3 Ziyaretçi
