Veri Tabanını Sıkıştırma istenilen klasöre kaydetme
Tarih
10/01/2011 17:42
Konu Sahibi
Coskun0559
Yorumlar
5
Okunma
2321
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Coskun0559
Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.222
02/11/2008
505
Tekirdağ
-
07/12/2016,15:25
Daha önce sitede verilmiş olabilir ama ben yinede paylaşayım Halay
Arkadaşlar ekteki örnek öncelikle *.mdb dosyalarında olmakla birlikte tüm dosyaları rar veya zip dosyası içerisine atıyor.
ister dosyayı sıkıştırıp atın isterseniz sıkıştırmadan direk kopyalayın.


Klasörün içerisindeki "zlib.dll" dosyasını C:\WINDOWS\system32 klasörüne kopyalayınız.

Son olarak deneyen arkadaşlar hem yorumlarını hemde çalışıp çalışmadığını paylaşırlarsa sevinirim isterseniz paylaşmayın yorumlarınızı Sopa
Herkese kolay gelsin..
.


Ek Dosyalar Ekran Görüntüleri
   

.rar   zip_coskun.rar (Dosya Boyutu: 69,54 KB / İndirme Sayısı: 75)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla


Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
291
Bursa
Ofis 2007
22/12/2015,15:41
Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
+rep+rep+rep
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim

Visual Basic Code
ToZipFiles = Left(MyShortFiles, InStr(1, MyShortFiles, ".", vbTextCompare))
ToZipFiles = Left(ToZipFiles, Len(ToZipFiles) - 1) & "_" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & Mid(Now(), 12, 2) & Mid(Now(), 15, 2) & Mid(Now(), 18, 2) & "."


( 2. ToZipFiles tanımı ile "_" Now() ilave ettim )

Böylece dosya adını "Dosya_10012011182412.Zip" olarak düzenledim
Eline sağlık, paylaşım için teşekkürler

______________________

Dosya adına " _now" ekleyen versiyon ektedir



Ek Dosyalar
.rar   zip.rar (Dosya Boyutu: 44,31 KB / İndirme Sayısı: 28)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
(10/01/2011, 17:49)Hayri16 Adlı Kullanıcıdan Alıntı: Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
+rep+rep+rep

Saygılar....

Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


Coskun0559
Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.222
02/11/2008
505
Tekirdağ
-
07/12/2016,15:25
(10/01/2011, 19:26)okileturc Adlı Kullanıcıdan Alıntı: Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim

Visual Basic Code
ToZipFiles = Left(MyShortFiles, InStr(1, MyShortFiles, ".", vbTextCompare))
ToZipFiles = Left(ToZipFiles, Len(ToZipFiles) - 1) & "_" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & Mid(Now(), 12, 2) & Mid(Now(), 15, 2) & Mid(Now(), 18, 2) & "."


( 2. ToZipFiles tanımı ile "_" Now() ilave ettim )

Böylece dosya adını "Dosya_10012011182412.Zip" olarak düzenledim
Eline sağlık, paylaşım için teşekkürler

______________________

Dosya adına " _now" ekleyen versiyon ektedir


oktay hocamın metoduyla daha da zenginleşmiş oldu
sağol hocam.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,20:09
Eline sağlık Coşkun.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Verileri istenilen tabloya gönderme ozguryasin 9 3.145 08/12/2012, 20:21 elektrikci
  Kamera ve Tarayıcıdan resim Alma Kaydetme Coskun0559 29 11.685 27/11/2012, 18:32 kesoka
  İstenilen kayda ulaşmanın 5 yolu POWER 12 3.551 21/10/2012, 14:53 elektrikci
  Dosya Sıkıştırma Suzuki GSX-R 1000 4 1.321 27/10/2011, 18:31 Yandemir
  Formun veri sayfası görünümü: Sütunları içeriğe göre sıkıştırma, otomatik sığdırma ve kilitleme mehmetdemiral 12 3.448 01/09/2011, 11:09 Puletin


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya