+- 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ığı: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak (/konu-access-programinda-klasor-olusturduktan-sonra-butonla-acilmasini-saglamak.html)
Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - ahmet4343 - 13/07/2020
Merhabalar,
Bir program üzerinde çalışıyorum. Öğrenci kayıt programı olarak tasarladığım programda her öğrencinin belgelerini kopyalabileceğim klasör oluşturuyorum. Ancak bu klasörü nasıl açabilirim bunu yapamadım. Yardımcı olur musunuz?
RE: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - ozanakkaya - 13/07/2020
Dim Foldername As String
Foldername = "D:\Polsoft"
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocusŞeklindeki kod ile açabilirsiniz.
RE: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - berduş - 13/07/2020
yapmak istediğiniz şeyi tam olarak anlamadım ama aşağıdaki yöntem de denenebilir
Application.FollowHyperlink "klasör adresi"RE: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - ahmet4343 - 13/07/2020
Yardımlarınız için çok teşekkür ederim. Ancak sorunum tam olarak çözülmedi. Klasör açmadan önce başka bir butonla her defasında yeni bir adla klasör oluşturuyorum. Klasör aç dediğimde bu dosyanın açılmasını istiyorum.
Private Sub Komut99_Click()
Dim Foldername As String
Foldername = "C:\Users\Ahmet\Desktop\2020 - 2021" & Me.MKKlasorYolu.Value
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
End Sub
bunu nasıl tanımlayabilirim
Klasör oluşturma ile ilgili olarak şu konuda yardımcı olabilir misiniz?
Butona bastığımda öğrenci adı ve soyadını birleştirerek bir klasör oluşturuyorum. Bunda sorun yok. Ama bu adla bir klasör varsa "bu klasör zaten var" mesajını vermesini istiyorum. Şu an klasör oluşturuyor ancak tekrar butona tıkladığımda hata mesajı veriyor.
MkDir CurrentProject.Path & "\" & Me.Öğrenci_Adı & " " & Me.Öğrenci_Soyadı
MsgBox ("Klasör oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA"
RE: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - berduş - 13/07/2020
Klasör varsa uyarı verir yoksa olusturur
If Dir(KlasorAdresi, vbDirectory)="" Then
MkDir KlasorAdresi
Else
Msgbox "zaten var"
End ifIf Len(Dir(KlasorAdresi, vbDirectory)) = 0 Then
MkDir KlasorAdresi
Else
Msgbox "Zaten var"
End IfRE: Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak - ahmet4343 - 14/07/2020
Teşekkür ederim. Sorun çözüldü