private sub DOSYAYIAÇ_Click()
Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\" & "klasörler" & "\" & Me.kayit_no & "", vbNormalFocus
Application.FollowHyperlink CurrentProject.Path & "\" & "klasörler" & "\" & Me.kayit_no, vbNormalFocus
end sub
şeklinde yaptım ancak
Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\" & "klasörler" & "\" & Me.kayit_no & "", vbNormalFocus
satırı sarı renkte hata veriyor
Sayın serhatksk,
Buton içerisinde aynı islevi gören her iki kod kullanımını da yazmışsınız.
11.mesajda da görüleceği gibi iki kod farklı kullanım için alternatif olarak yazıldı sadece.
Birini tercih ederek kullanmalısınız.
Bilginize...iyi çalışmalar,saygılar.
Merhaba,
F dizinindeki YAPILACAK DOSYALAR isimli klasör içerisindeki klasörleri açtırmak istiyorsunuz ama eklidiğiniz kodda bunun ile ilgili tanımlama yok.
Kodu aşağıdaki ile değiştiriniz
Dim KlasorAdi As String
KlasorAdi = "F:\YAPILACAK DOSYALAR\"
Shell "C:\WINDOWS\explorer.exe """ & KlasorAdi & Me.kayit_no & "", vbNormalFocus
hocam bu kodda hata veriyor. tam olarak yapmak istediğim.
dosyayı aç butonuna tıkladığımda daha önce yapılacak dosyalar klasörüne açtığım klasör adı örneğin 95 olan klasörü açmasını istiyorum. 95 i ise kayıt no adlı bölümden almasını istiyorum.
sayın serhatksk,
öncelikle;
konunuzun 4.mesajında yazılı olan kodların kısa açıklaması olması adına şu bilgilendirmenin yapılamsı uygun görülmüştür.
1)
ilk örnek kod kalıbı ile,direkt olarak,
Windows Explorer üzerinde ilgili klasör yolu içinde yer alan klasör adını açmaktadır.
2)
ikinci kod kalıbı ile de,
Windows Explorer üst menüdeki GÖRÜNÜM - GEZGİN ÇUBUĞU sekmesindeki KLASÖR ifadesini seçmek (işaretlemek) sureti ile sol kısımda Klasör penceresini açmaktadır.
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
teşekkür ederim ilgi ve alakanız için oldu.