Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/11/2012 21:08
Konu Sahibi
ucloy
Yorumlar
8
Okunma
3171
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ucloy

Aktivasyon Bekleyen
10234
 61
 25
 95
 10/10/2009
 Kocaeli
 
 Ofis XP
 29/04/2016,12:54
Çözüldü 
Herkese merhaba


Ekteki

“Kopya_ Maytas_Klasor+ csv Veril al + ayır” Vt Win 7 ve Acsess run time olan bir PC de çalışmadı

Vt daki “Maytas_Form” formu açılıyor “ klasore gozat” penceresi de açılıyor ama dosyaları
listelemiyor

“Maytas_Form” da klasör seçme yerinde doğrudan
C: /OKUMA/ adresindeki “. csv” dosyaları listelemesi de benim için yeterli

Mevcut kodu nasıl değiştirmek gerekir


Private Sub Komut2_Click()
Me.Liste18.RowSource = ""

Dim Obj As Object, Klasor As String
Set Obj = CreateObject("shell.application")
Klasor = Klasor_Secimi 'Api fonksiyonu
If Klasor = "" Then Exit Sub
KlasorYolu.Caption = Klasor
Call Tablo_Olustur
Dim Litem As MSComctlLib.ListItem
ListView3.ColumnHeaders.Clear
ListView3.ColumnHeaders.Add , , "Dosya Adı", ListView3.Width / 3
ListView3.ColumnHeaders.Add , , "Dosya Yolu", ListView3.Width * 2 / 3
ListView3.View = lvwReport
ListView3.GridLines = True
ListView3.ListItems.Clear

If IsNull(Uzanti_Liste.Value) Then
Dosya_Listele Klasor
Else
Dosya_Listele Klasor, Uzanti_Liste.Value
End If
If Listelendi Then
Me.Liste18.RowSource = "SELECT [DosyaYolu] & [DOsyaadi] AS Deyim1 FROM YeniTablo"
MsgBox "Dosyalar listelendi ve YeniTablo'ya alındı.", vbInformation, "Sonuç"
End If


End Sub


İyi akşamlar



Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çözüldü 
Aşağıdaki kodu yeni bir formda yeni bir buton olayına yazınız. Maytaş hocamın örneğinden bağımsız olarak bunu yapın.
Kolay Gelsin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub dosyalarial()
      ' Öncelikle Referanslar içine Microsoft Office XX.0 Library Eklenecek...
    Dim kural As Variant
    With Application.FileDialog(msoFileDialogFilePicker)
    'açılan pencere adı
        .Title = "Okuma Dosyaları..."
        .Filters.Clear
        .Filters.Add "CSV Dosyaları", "*.csv"
        .FilterIndex = 3
        .AllowMultiSelect = True
        .InitialFileName = "c:\okuma\"
        .Show
        If .SelectedItems.Count > 0 Then
                For Each kural In .SelectedItems
                    kural = Trim(kural)
                    Debug.Print kural
                    
                   
                        ' Bu döngünün içine tabloya alma komutları girecek...
                        ' Açılan pencereden dosyalarınızı seçeceksiniz...
                        ' Sonra Tamam Tıklandıktan Sonra Dosyalar Sırayla Alınmaya Başlayacak...
                    
                    
                Next
   End If
    End With
End Sub


20:49 itibari ile değişiklik yaptım. Ona göre alınız.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

ucloy

Aktivasyon Bekleyen
10234
 61
 25
 95
 10/10/2009
 Kocaeli
 
 Ofis XP
 29/04/2016,12:54
Çözüldü 
Merhaba Sayın Kural Hocam

Yazdıkarınızı yaptım dosyayı gördim ama döngünün içini dolduramadım.
benim bunu Maytaş Hocamın prg içine almam gerek çünkü bu dosyaları ayıracağım



Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çözüldü 
diğer çalışmada nasıl aldığınızı ekleyinde bakalım.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

ucloy

Aktivasyon Bekleyen
10234
 61
 25
 95
 10/10/2009
 Kocaeli
 
 Ofis XP
 29/04/2016,12:54
Çözüldü 
ekledim Sayın Kural

orjinal dosya ilk mesajım da var
son yolladıgımda Maytaş hocamın ki bozuldu



Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çözüldü 
eklediğimi inceleyin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ara Toplam Alma edacan19 14 232 09/05/2019, 14:37
Son Yorum: edacan19
Çözüldü Web Ten Access Dosyası Çalıştırma yenginoglu 2 174 17/04/2019, 14:29
Son Yorum: yenginoglu
Çözüldü Web Sitesinden Tabloya Veri Alma aliyuzen 3 297 10/04/2019, 15:43
Son Yorum: ozanakkaya
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 13 1.942 10/01/2019, 21:40
Son Yorum: hakkih
Çözüldü İki Tarih Arası Veri Alma hegu 7 364 15/12/2018, 12:09
Son Yorum: ozanakkaya

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