Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Veri Tabanını Sıkıştırma istenilen klasöre kaydetme

Coskun0559
Coskun0559
Access Örnekleri ve Uygulamaları
5
4259

Veri Tabanını Sıkıştırma istenilen klasöre kaydetme

#1
Coskun0559
Onursal Üye
Coskun0559
Bul
Onursal Üye
Adı Soyadı: Co.... ÇA....
Yaşı: 39
Konum: Tekirdağ
Ofis Versiyonu: -
Son Oturumu: 13/11/2024,03:19
Yorumları: 1.221
Konuları: 99
Kayıt Tarihi: 02/11/2008
Teşekkür Puanı: 519
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...
.rar zip_coskun.rar (Dosya Boyutu: 69,54 KB | İndirme Sayısı: 77)
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
#2
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 64
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
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
#3
okileturc
Onursal Üye
okileturc
Bul
Onursal Üye

Additional groups:
Üye
Adı Soyadı: Ok.... Le....
Yaşı: 66
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/09/2020,15:07
Yorumları: 966
Konuları: 113
Kayıt Tarihi: 18/03/2009
Teşekkür Puanı: 464
Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim



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
.rar zip.rar (Dosya Boyutu: 44,31 KB | İndirme Sayısı: 30)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
benremix
Onursal Üye
benremix
www Bul
Onursal Üye
Adı Soyadı: Ra.... So....
Yaşı: 57
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 26/10/2024,11:52
Yorumları: 4.446
Konuları: 127
Kayıt Tarihi: 17/05/2009
Teşekkür Puanı: 365
Mesleğiniz: Şirket Sahibi
(10/01/2011, 17:49)Hayri16 yazdı: 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
#5
Coskun0559
Onursal Üye
Coskun0559
Bul
Onursal Üye
Adı Soyadı: Co.... ÇA....
Yaşı: 39
Konum: Tekirdağ
Ofis Versiyonu: -
Son Oturumu: 13/11/2024,03:19
Yorumları: 1.221
Konuları: 99
Kayıt Tarihi: 02/11/2008
Teşekkür Puanı: 519
(10/01/2011, 19:26)okileturc yazdı: Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim



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
#6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/11/2024,22:08
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Eline sağlık Coşkun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task