Skip to main content

AccessTr.neT


Listview de verileri görüntüleme

Listview de verileri görüntüleme

#37
Arkadaslar,
benim kullandigim ofisde bi sorun var, yada bende bir sorun var.

Bos form uzerine listview i "insert ActiveX Control" un icinde bulamiyorum. Bu box i nasil ilusturabilirim (bos halini) form uzerine. Yada bu yol yanlis da, baska bir sekilde mi yapiliyor, yapiliyorsa nasil?
Selamlar,

Subco
İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#38
Merhaba,
Bir türlü Listview'e veri aldıramadım. Aynı kodları uyarlamama rağmen sürekli;

Error No: 13; Description: Type Mismatch

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?

Listview için kullandığım kod:
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

Teşekkürler.

Not: Sonunda yapabildim. Me.Listview3 kısmındaki "Me" ibaresini kaldırınca çalıştı.
Son Düzenleme: 12/07/2011, 18:53, Düzenleyen: Ethem AKMAN.
Cevapla
#39
Merhabalar,

ben Access ve vb'da daha acemilik devrindeyim. Ancak yapmis oldugunuz ve yorumlarla anlasilir bir hale getirdiginiz Listview ile kendimi gelistirebilecegim icin, özellikle de bu foruma üye oldugum icin memnunum.
Sarfetmis oldugunuz emeginize saygimi iletmek istedim. saglik,mutluluk ve ugrasilarinizda basarilar dilerim.
Not. Klavyemde Türkce karakterler bulunmadigindan dolayi, yazimdaki imla hatalarini hosgörünüz.
Sagilar
Cevapla
#40
(18/11/2011, 23:05)iablue yazdı: Merhabalar,

. saglik,mutluluk ve ugrasilarinizda basarilar dilerim.

Size de sağlık mutluluk ve başarılar sayın iablue. Sitemize hoşgeldiniz.
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
#41
(29/10/2008, 23:45)cuneyt yazdı: Merhaba,
Daha önce de listview de veriler nasıl görüntülenir diye sorular sorulmuştu forumda;
Listview içinde verileri görüntülemek için ilişikte örnek vb tasarımında kodların yanına yazdım.
bu veriler direkt tablodan veya sorgudan alınması için örnekledim. eğer ODBC veri kaynağından alınacak ise sadece strSQL = "SELECT * from kisiler" yerine farklı tanımlama yapılarak kolaylıkla istelinilen veriler görüntülenir. ayrıca listview ile çok daha değişik uygulamalar yapılabilir.
inceleyin sonra diğer soruları paylaşırız.
saygılar,
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task