Bir türlü Listview'e veri aldıramadım. Aynı kodları uyarlamama rağmen sürekli;
Hatası alıyorum. Hatanın nedenini araştırdım ancak bir çözüm bulamadım. Bu hata genellikle hangi durumlarda ortaya çıkar? Bilgi verirmisiniz?
Kod:
Private Sub Komut20_Enter()
DoCmd.GoToRecord , , acNewRec
On Error GoTo ErrorHandler
Dim rs As DAO.Recordset
Dim db As Database
Dim lstItem As ListItem
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT * from CariHesapEkstresi"
Set rs = db.OpenRecordset(strSQL)
With Me.ListView3
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.ListItems.Clear
.ColumnHeaders.Clear
End With
With Me.ListView3.ColumnHeaders
.Add , , "Sıra No", 800
.Add , , "Işlem Tarihi", 1100
.Add , , "Fiş Tarihi", 1100
.Add , , "İşlem Adı", 1300
.Add , , "İşlem Tipi", 1500
.Add , , "Belge Num.", 1050
.Add , , "Açıklama", 1600
.Add , , "Borç", 1150
.Add , , "Alacak", 1150
.Add , , "Bakiye", 1150
End With
rs.MoveFirst
Do Until rs.EOF
Set lstItem = Me.ListView3.ListItems.Add()
lstItem.Text = rs!SiraNo
lstItem.SubItems(1) = rs!Islem_Tarihi
lstItem.SubItems(2) = rs!Fis_Tarihi
lstItem.SubItems(3) = rs!Personel_Adi
lstItem.SubItems(4) = rs!Islem_Tipi
lstItem.SubItems(5) = rs!Belge_Num
lstItem.SubItems(6) = rs!Aciklama
lstItem.SubItems(7) = rs!Borc
lstItem.SubItems(8) = rs!Alacak
lstItem.SubItems(9) = rs!Bakiye
rs.MoveNext
Loop
rs.Close
DoCmd.Echo True
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub
Not: Sonunda yapabildim. Me.Listview3 kısmındaki "Me" ibaresini kaldırınca çalıştı.
