AccessTr.neT
Butonla klasör açmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Butonla klasör açmak (/konu-butonla-klasor-acmak.html)

Sayfalar: 1 2


Butonla klasör açmak - adams43 - 22/07/2009

Arkadaşlar form üzerindeki bir butonla yine aynı formaki bir alanın değeriyle aynı adı taşıyan bir klasörü açtırmak istiyorum. Açtırmak istediğim klasörün yolu belli.
Örneğin;
C:..../Belgelerim/[formdaki alanın değeri]

Bu klasörü açtırabilirmiyiz? Tabiiki Access içinde değil. Normal Microsoft explorer ekranında.

Yardımlarınız için şimdiden teşekkür ederim.


Cvp: Butonla klasör açmak - tdsharun - 22/07/2009

Amaç yeni bir pencerede klasör yolunu açtırmaksa bununla ilgili bir örnek hazırladım. Klasörü dosya seçim penceresi gibi açtırmak ve içinden bir dosyayı seçmek istiyorsanız da forumumuzdaki uygulamalar bölümümüzü incelemenizi tavsiye ediyorum. Bu ikisi de değilse, lütfen biraz daha açıklayıcı olun. Ne yapmak istediğinizi biraz daha anlatın. Kolay gelsin...


Cvp: Butonla klasör açmak - adams43 - 22/07/2009

Bu örnek tam sorumun cevabıdır. eni bir pencerede klasörü açtırmak.

Çok teşekkür ederim. Ellerinize sağlık.


Cvp: Butonla klasör açmak - vetaltan - 18/11/2009

arkadaşlar kolay gelsin,
internet explorer ile bir form üzerindeki değeri database'in bulunduğu klasör içinde bulunan başka bir klasöre aktararak ie da açtırmanın kodunu aşağıda yazdım.ancak bu klasörü önceden yaratmam gerekiyor,eğer hedef klasörde formdaki değer adında bir klasör bulunmuyorsa ie hata veriyor.
ie ye hata verdirmeden eğer protokol numarasıyla eşleşen klasör bulunmuyorsa,"bu isimde klasör bulunmuyor,yeni yaratmak istermisiniz" mesajını koduma nasıl ekleyebilirim ve yeni klasörü otomatik olarak nasıl açtırabilirim.
şimdiden teşekkürler,iyi çalışmalar

Dim ekocan As String
Dim altan As String
Dim bute As String
Dim aa As String
Dim baglan As String
Dim r As String
Dim t As String

ekocan = Form_HASTAMASTERFM.PROTOKOL.Value
aa = "a"
altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
baglan = StrReverse(bute)

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & baglan & aa & "\" & ekocan & "", vbMaximizedFocus


Cvp: Butonla klasör açmak - ozanakkaya - 18/11/2009

Alıntı:MkDir CurrentProject.path & "\ekocanklasor"

kodu ile veritabanının bulunduğu dizine ekocanklasor isimli klasör eklenir.

Ayrıca kullanıcı adınız vetaltan olarak değiştirilmiştir.


Cvp: Butonla klasör açmak - vetaltan - 21/11/2009

verdiğiniz bilgi çok yararlı oldu,teşekkür ederim.sorunsuz çalışıyor.
bir sorum daha olacaktı,access içersinde takvim nasıl yaratırım,randevu defteri olarak kullanmak istiyorum.yada;microsoft mounthwiev control ile microsoft outlook u gerçek zamanlı olarak birbirine bağlayabilirmiyim.
teşekkürler