Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/06/2019 20:46
Konu Sahibi
feraz
Yorumlar
6
Okunma
388
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Çözüldü 
Merhaba.

Excele kapalı accessden tablo adı getiiriyorum.
Fakat resimdede görüldüğü gibi gizli olanlarda geliyor.

[Resim: do.php?thmb=9096]

Gizli olanların gelmemesi için ne yapmak gerek?

Teşekkürler.




userx

userx

Üye
9174
 37
 0
 18
 24/08/2009
6
 -
 
 -
 Bugün,16:32
Tabloların alt tarafındaki alana sağ tıklayın...


Ekran Görüntüleri
       
userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.

...........
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Konuyu yanlış yazmışım.
Tabloları ben görünür yaptım ayarlardan.

Excele gelecek tablo adı resimdeki gizli olanlar gelmeyecek.
Kodlar Excel içinde.



userx

userx

Üye
9174
 37
 0
 18
 24/08/2009
6
 -
 
 -
 Bugün,16:32
Sub sayfaisimlerinial(ByRef DosyaUzunismi As String, ByRef Sayfaisimlerilistesi() As String)

    Dim objBaglanti As Object
    Dim adoverisi As Object
    Dim sayfaindis As Long
    Dim adobaglanti As String
    Dim sayfaisimleri As String
    
    Erase Sayfaisimlerilistesi()
    
    adobaglanti = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaUzunismi
    
    Set objBaglanti = CreateObject("ADODB.Connection")
    objBaglanti.Open adobaglanti
    Set adoverisi = objBaglanti.openschema(20)
    
    Do While Not adoverisi.EOF
        If LCase(Left(adoverisi.Fields("TABLE_NAME").Value, 4)) <> "msys" Then
            sayfaisimleri = adoverisi.Fields("TABLE_NAME").Value
            sayfaisimleri = Replace(adoverisi.Fields("TABLE_NAME").Value, "''", "'")
            ReDim Preserve Sayfaisimlerilistesi(0 To sayfaindis)
            Sayfaisimlerilistesi(sayfaindis) = sayfaisimleri
            sayfaindis = sayfaindis + 1
        End If
        adoverisi.movenext
    Loop
    
    adoverisi.Close
    Set adoverisi = Nothing
    objBaglanti.Close
    Set objBaglanti = Nothing


End Sub



userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.

...........
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
Mobilden kodun inceledim.Pasif yaptığım if kodlarını aktif yapmışsınız.
Ben extra pasip yapmıştım baş yoldan çözüm için.



berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
Sorunuz "Excel Soruları ve Cevapları" bölümüne taşınmıştır



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mevcut Olan Veri Yapısının, Veritabanı Tablo Yapısına Çevrilmesi. direnist 7 1.005 14/07/2018, 20:56
Son Yorum: Mehmet Emin Alkan
Çözüldü Php Mysqli Aynı Anda İki Farklı Tablo Güncelleme serkandiker 4 494 25/06/2018, 11:25
Son Yorum: ozguryasin
Çözüldü 2 tablo arasındaki Farklar Durmuş Okur 3 1.583 12/09/2016, 11:01
Son Yorum: atoz112
Çözüldü Alfa-numerik alanlarda min ve max degerleri getirme Accessive 4 1.347 10/06/2016, 20:29
Son Yorum: Accessive
Çözüldü excelde tablo içinde yer eşleştirme orhanbalcı 5 1.915 05/06/2016, 15:59
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.