AccessTr.neT

Tam Versiyon: Buton İle Klasör Ekleme, Eklenen Klasörü Açma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
sayın Mehmet DEMİRAL hocam ve diğer hocalarım.

Mehmet hocamın düzenlediği tarih_demiral isimli Access dosyasında yeni kaydettiğim her bir sayı için mesela 2014/0006 kaydı için "klasör aç" düğmesine basınca D:\EVRAK TAKİP\DEPO\ ortamında 20140006 klasörünün oluşturulmasını istiyorum. sonradan mesela programdaki 20140002 sayılı evrak kaydında iken "klasöre git" dediğimde önceden oluşturulan D:\EVRAK TAKİP\DEPO\20140002 klasörüne gitmesini istiyorum. daha ayrıntılı bilgi için resimde ekledim şimdiden teşekkür ederim saygılarımla
Sorunuz yeni konu olarak eklenmiştir.

Site Kuralları 1c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız.

Klasör Aç butonunun tıklandığında olayına

On Error GoTo HataBul
MkDir "D:\EVRAK TAKİP\DEPO\" & Replace(Me.sayı, "/", "")
MsgBox ("D:\EVRAK TAKİP\DEPO\" & " dizininde " & Replace(Me.sayı, "/", "") & " isminde klasör oluşturulmuştur")
HataBul:
If Err.Number = 75 Then
MsgBox ("bu isimde klasör mevcut")
End If

Klasöre Git butonunun tıklandığında olayına;

Shell "C:\WINDOWS\explorer.exe """ & "D:\EVRAK TAKİP\DEPO\" & Me.sayı & "", vbNormalFocus

kodlarını ekleyiniz.