Skip to main content

AccessTr.neT


Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak

Access Programında Klasör Oluşturduktan Sonra Butonla Açılmasını Sağlamak

Çözüldü #1
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?
Cevapla
#2

Visual Basic Code
Dim Foldername As String

Foldername = "D:\Polsoft"

Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus


Şeklindeki kod ile açabilirsiniz.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
yapmak istediğiniz şeyi tam olarak anlamadım ama aşağıdaki yöntem de denenebilir

Visual Basic Code
Application.FollowHyperlink "klasör adresi"

Cevapla
#4
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"
Son Düzenleme: 13/07/2020, 21:28, Düzenleyen: ahmet4343.
Cevapla
#5
Klasör varsa uyarı verir yoksa olusturur

Visual Basic Code
If Dir(KlasorAdresi, vbDirectory)="" Then
MkDir KlasorAdresi
Else
Msgbox "zaten var"
End if

yada

Visual Basic Code
If Len(Dir(KlasorAdresi, vbDirectory)) = 0 Then 
MkDir KlasorAdresi
Else
Msgbox "Zaten var" 
End If

Cevapla
#6
Teşekkür ederim. Sorun çözüldü
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da