AccessTr.neT
Run-time error '76':__Path not found YARDIM! - Baskı Önizleme

+- 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ığı: Run-time error '76':__Path not found YARDIM! (/konu-run-time-error-76-path-not-found-yardim.html)



Run-time error '76':__Path not found YARDIM! - FurcHT - 06/08/2014

' Create folder with time stamp and username in CoCo Folder

MyPath = "P:\Cost - Core\20 - Cost and Commitment\BLIO Reports -" & Format(Now, "yy-m-dd(hhmm) - " & (Environ$("Username")) & "\\")
If MsgBox(MyPath, vbOKCancel) = vbCancel Then
Cancel = True
Else
MkDir MyPath
End If

Arkadaslar kirmizi olan yer Debug diyince gozukuyor. Yardiminiza ihtiyacim var. Simdiden tesekkur ederim.


Cvp: Run-time error '76':__Path not found YARDIM! - atoz112 - 06/08/2014

sayın FurcHT,

bahsettiğiniz sorununuzun çözümü için aşağıdaki bilgiler yeterli olacaktır.fakat,öncelikle bir hususu belirtmekte fayda var.belirtilecek husus,sizin aldığınız hatanın sebebini de gösterecektir.ayrıca,EK'te,konuya dair bir örnek uygulama mevcuttur.inceleyebilirsiniz.

içiçe oluşturulmuş bir klasör yolu belirtilirken direkt
MyPath = "P:\Cost - Core\20 - Cost and Commitment\BLIO Reports -"
bu şekilde yazarsanız hata verir.her bir klasörü MkDir ile tek tek oluşturmanız gerekir kodlama sayfasında.mesela;
MkDir ("P:\Cost - Core")
MkDir ("P:\Cost - Core\20 - Cost and Commitment")
MkDir (MyPath)
gibi.bu sebeple,kullanmanız gereken kodlama aşağıdaki gibi olmalı.eğer belirtilen klasör mevcut değilse oluşturuacak mevcutsa bilgi verecek.bu kodu,bir butonun tıklandığında olay yordamına ekleyiniz.
Dim MyPath As String
MyPath = "P:\Cost - Core\20 - Cost and Commitment\BLIO Reports -" & Format(Now, "yy-m-dd(hhmm) - " & (Environ$("Username")) & "\\")
If Dir("P:\Cost - Core", vbDirectory) = "" Then
MkDir ("P:\Cost - Core")
MkDir ("P:\Cost - Core\20 - Cost and Commitment")
MkDir (MyPath)
MsgBox "Klasör oluşturulmuştur", vbInformation, "BİLGİ"
Else
MsgBox MyPath & vbCr & "daha önceden oluşturulmuştur", vbCritical, "UYARI"
End If
bunu bir deneyiniz lütfen.bilgilerinize.

iyi çalışmalar,
saygılar.


Cvp: Run-time error '76':__Path not found YARDIM! - FurcHT - 06/08/2014

Cok tesekkur ederim ilginiz icin.