AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7

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

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ı.

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

(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.

(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,

Sayfalar: 1 2 3 4 5 6 7

Subco

Ethem AKMAN

iablue

Puletin

mertman55