mrb bende de aşağıdaki gibi bir hata mesajı veriyor. sıkıntı nedir acaba
complite erros
sub or function not defined
ve aşağıdaki kodda işaretli yeri açıyor
Private Sub ListeyiYukle(KaynakAdi As String)
Dim s As String
Dim i As Integer
Dim SutunSay As Integer
Dim lstItem As ListItem
If Len(KaynakAdi & "xx") <= 2 Then Exit Sub
TabloAdi = KaynakAdi
s = "Select * from " & KaynakAdi
If Not AdoAc1(s) Then
MsgBox "Tablo/Sorgu açılamadı", vbInformation
Exit Sub
End If
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Checkboxes = True
.ColumnHeaders.Add , , "Alan", .Width - 200
End With
SutunSayisi = Rs1.Fields.Count - 1
For i = 0 To SutunSayisi
Set lstItem = ListView1.ListItems.Add()
lstItem.Text = Nz(Rs1.Fields(i).Name, "-")
Next
AdoKapa 1
End Sub
Excel'e seçerek veri gönderme
Bu Konudaki Yorumlar |
Excel'e seçerek veri gönderme - Yazar: kdurmaz - 30/01/2009, 19:51
Cvp: Excel'e seçerek veri gönderme - Yazar: alpeki99 - 30/01/2009, 20:54
Cvp: Excel'e seçerek veri gönderme - Yazar: kdurmaz - 30/01/2009, 22:50
Cvp: Excel'e seçerek veri gönderme - Yazar: alpeki99 - 30/01/2009, 23:53
Cvp: Excel'e seçerek veri gönderme - Yazar: kdurmaz - 31/01/2009, 18:07
Cvp: Excel'e seçerek veri gönderme - Yazar: ozanakkaya - 31/01/2009, 18:26
Cvp: Excel'e seçerek veri gönderme - Yazar: kdurmaz - 31/01/2009, 18:35
Cvp: Excel'e seçerek veri gönderme - Yazar: ozanakkaya - 31/01/2009, 18:49
Cvp: Excel'e seçerek veri gönderme - Yazar: kdurmaz - 31/01/2009, 19:06
Cvp: Excel'e seçerek veri gönderme - Yazar: osman06 - 07/03/2013, 17:39
|
Konuyu Okuyanlar: 2 Ziyaretçi