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

Derecelendirme: 0/5 - 0 oy

ucloy

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
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


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır.zip (Dosya Boyutu: 163,12 KB / İndirme Sayısı: 7)
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
17/10/2017,17:58
Çö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.
Cevapla

ucloy

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
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


Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
17/10/2017,17:58
Çö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.
Cevapla

ucloy

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
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


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 149,58 KB / İndirme Sayısı: 3)
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
17/10/2017,17:58
Çözüldü 
eklediğimi inceleyin.


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 49,59 KB / İndirme Sayısı: 10)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sorguda İlk 9 Karakter Alma blumanx 2 157 27/09/2017, 23:22 blumanx
Çözüldü Access İçine Bat Dosyası Nasıl Yerleştirebilirim. mtorcu 10 388 28/08/2017, 11:03 mehmetdemiral
Çözüldü Satın Alma Takip Te Yöneticilere Onaylatma mahsumyavuz 2 156 24/08/2017, 12:15 mahsumyavuz
Çözüldü Bat-vbs Dosyası İle exe üzerinden url açma angel1585 8 406 16/08/2017, 10:50 alpeki99
Çözüldü Web Browserdeki Checkbox Değerini Alma idrisy 4 247 31/07/2017, 23:33 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.