Tablodan Seçerek Rapor Yazdırma

isim kullanırken alan yada tablo boşluk kullanmayın
ANA TABLO yerine AnaTablo deseydiniz sorun olmazdı ama şu halde [ANA TABLO] derseniz çalışır.

Sayın Yandemir, köşeli parantez kullanması gerektiğini örneklerden anladım ama kodlar arasında tablo ismini yazabilecğim ala nı göremedim, bütün tabloları seç anlamına gelen bir bölüm var herhalde kodlar kullanıldığı için çözemedim,

kodlar;

Option Compare Database

Dim TabloAdi As String

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

Private Sub ComboyuDoldur()

 Dim obj As AccessObject, dbs As Object

 Set dbs = Application.CurrentData

 Dim s As String

 'Önce tabloları al

 For Each obj In dbs.AllTables

 If Left(obj.name, 4) <> "mSys" Then s = s & obj.name & ";"

 Next

 'Şimdi de sorguları

 For Each obj In dbs.AllQueries

 s = s & obj.name & ";"

 Next

 If s <> "" Then Kaynaklar.RowSource = s

End Sub

Private Sub Form_Load()

 ComboyuDoldur

End Sub



Private Sub Kaynaklar_AfterUpdate()

 If Len(Kaynaklar.Text & "xx") <= 2 Then Exit Sub

 ListeyiYukle Kaynaklar.Text

End Sub



Private Sub Komut3_Click()

 Dim Item As ListItem

 Dim i As Long

 Dim mesaj As String

 Dim s As String

 mesaj = ""

 For i = 1 To Me.ListView1.ListItems.Count

 Set Item = Me.ListView1.ListItems.Item(i)

 If Item.Checked Then

 If Len(mesaj) = 0 Then mesaj = Item.Text Else mesaj = mesaj & "," & Item.Text

 End If

 Next

 If Len(mesaj) = 0 Then Exit Sub

 s = "select " & mesaj & " from " & TabloAdi

 AdoAcEx s

 ExAc

 KayittanExcele

End Sub

sizin yöntem

s = "Select * from " & KaynakAdi

örnek : bu şekilde deneyin kullanırken

s = "Select * from [" & KaynakAdi &"]"

Sayın Yandemir, tablo seçme sorunum düzeldi ama excele vermede halen hata veriyor. "Dim Item As ListItem" kodunda hata veriyor.

o kısım bende de hata veriyor excel'i iyi bilen arkadaşlar var istersen onun için yeni bir konu aç.

Sayın Yandemir, İlginiz ve yardımlarınız için teşekkür ederim. Peki benim zaten 1 tane tablom var ve burdan bilgileri seçiyorum. Bunu sabitleyebilirmiyiz? Kullanıcı başka tablolara müdahale etmesin.