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.