Permission denied

[karaayhan]

permission denied hatası ile ilk defa karşılaşmık bulunmaktayım
bir txt dosyasına veri yazdırmak istediğimde karşılaştım
araştırdım hatayı write yetkisinin kısıtlı olmasından kaynaklandığını
söylediler ama anlamadım tabi yardımlarınızı bekliyorum.

'-------Kod aşağıdaki gibi hata nerede anlamadım'-------------------

On Error GoTo hata
Dim dbs As Database, rst As Recordset, dn As Byte, ay As String
Set dbs = CurrentDb: ay = Format(Date, "mmmm")
Set rst = dbs.OpenRecordset("SELECT [zz_Miatlı Evrak Tablosu].GönderilecekEvrakınAdı, [zz_Miatlı Evrak Tablosu]." & ay & " FROM [zz_Miatlı Evrak Tablosu] WHERE ((([zz_Miatlı Evrak Tablosu]." & ay & ") > 0)) ORDER BY [zz_Miatlı Evrak Tablosu]." & ay & ";")
dn = FreeFile: Open apppath & "Miatlı_Evraklar.txt" For Output As #dn
Print #dn, rUcase(ay) & " AYINDA GÖNDERİLECEK MİATLI EVRAKLARIN GÖNDERİLME GÜNÜ VE ADI": Print #dn,
Do While Not rst.EOF
Print #dn, Right(" " & rst.Fields(ay), 2); " "; rst!GönderilecekEvrakınAdı
rst.MoveNext
Loop
rst.Close: Set dbs = Nothing: Close #dn
FileCopy apppath & "Miatlı_Evraklar.txt", glbBaşlangıçKlasörü & "Miatlı_Evraklar.txt"
MsgBox rUcase(ay) & " AYINDA GÖNDERİLECEK MİATLI EVRAKLAR," & vbCrLf & "WINDOWSUNUZUN BAŞLANGIÇ KLASÖRÜNE YERLEŞTİRİLDİ" & vbCrLf & " Gönderilecek evraklar konusunda bilgisayarınızı her açışınızda sizi uyaracaktır", vbInformation
Shell "notepad " & apppath & "Miatlı_Evraklar.txt", vbNormalFocus

Exit_hata: Exit Sub
hata: MsgBox Err.Description: Resume Next

 

[modalı]

Sayın karaayhan,

Küçük bir araştırma yaptım. Yüzlerce sebebi olabilir. Onun için tam olarak bu hatanın üretildiği satırı bilmemiz gerekiyor.

Bir de acaba kullandığınız bilgisayarın sistemini mi değiştirdiniz. Yani Windows Me, 98 den Windows 2000 veya XP ye mi geçtiniz. Böyle bir olasılıktan şüpheleniyorum. Öyle ise aşağıdaki linli inceleyin.

http://support.microsoft.com/kb/303079/en-us

Şimdilik iyi çalışmalar

 

[modalı]

Sayın karaayhan,

Bir de dediğiniz gibi eğer write yetkisi kısıtlıysa aşağıdaki gibi bir kod buldum bunun uygulanmasını tavsiye ediyorlar. En sondaki true write yetkisini veriyor.

Dim Fileobj As Object
Dim File1 As String
Dim file2 As String
File1 = "c:\Reportlog1.txt"
file2 = "c:\NewReport.txt"
Set Fileobj = CreateObject("scripting.FileSystemObject")
Fileobj.CopyFile File1, file2, True

Bilmem tabi bunu da deneyebilirsiniz

 

[karaayhan]

miatlı evrak programı

Arkadaşlar bahse konu hata mesajının bulunduğu dosya Ek'tedir.

1- Açılışta içinde bulunduğumuz Ay'a ait miatlı evrakların gönderilme zamanlarıyla birlikte bir txt dosyası olarak windowsumuzun başlangıcına yerleştirilecek ve bizi her bilgisayarımızı açtığımızda uyaracak.. (ama permission denied hatası veriyor ve başlangıç klasörüne yerleştirilemiyor.)

2- Tarih aralığı seç grup seçeneklerinde tüm aylar ve ay çalışırken haftalık ve günlük süzme yaptığımızda istenen tarih/tarihler olmasına rağmen süzmüyor..

Kolay gelsin..

 

[modalı]

Sayın karaayhan,

Gerçi daha önce göncermiştim çözümü ama siz kodları yazarken bir hata yaptınız.

Süzme olayında bir iki hatanız vardı onları da düzelttim. Haledilmesi gereken bir nokta kaldı o da haftalık süzme. Hafta iki aya yayılıyorsa o zaman her iki ayın da görülmesi gerekir. Siz formu açarken bulunduğumuz tarihin ayını görünür yaptığınız için haftalık
olay sadece bulunulan ayı kapsıyor.

Oluşan hatayı yakalayabilmem için strFilter ı ekledim ki araya MsgBox strFilter ı ekleyerek hatayı yakalayabileyim.
İyi çalışmalar

 

[karaayhan]

Sayın modalı (Dostum), senin apastrofla kapadığın satır bende açık kalmış ondan hata veriyormuş, gün olayı güzel olmuş, ancak senin de dediğin gibi hafta da sorun var. Ya ikinci Ay'a taşarsa, fakat zaten o haftaya ait olanları mevcut ay'da da gösteremiyoruz ki biz ikinci aya taşmasına çözüm arayalım. İçinde bulunduğumuz hafatanın tespiti doğru ancak buna karşılık gelen miatlı evrak sütunu yok ortada dikkatini çekti mi bilmem...en azından mevcut haftayı süzdürelim sonra ikinci aya taşarsa diye çaresini bakarız.


Kolay gelsin.

 

[karaayhan]

konu yarım kalmış ben uygulamada ikinci aya taşarsa çaresine bakarız demiştim şimdi bu konuda sıkıntı çekiyorum.
miatlı evrak ikinci aya taşınca hiç birşeyi süzmüyor !!
bilgisi olan varsa diye konuyu tekrar canlandırıyorum

kolay gelsin

 

[karaayhan]

konu yarım kalmış ben uygulamada ikinci aya taşarsa çaresine bakarız demiştim şimdi bu konuda sıkıntı çekiyorum.
miatlı evrak ikinci aya taşınca hiç birşeyi süzmüyor !!
bilgisi olan varsa diye konuyu tekrar canlandırıyorum

 

[karaayhan]

sayın modalı hocam bu soruya en son siz cevap verdiniz, ancak tamamlanmadı malesef soru başkada cevap gelmedi!

içinde bulunduğumuz hafta bir sonraki aya sarkarsa bunu nasıl göstereceğiz soru bundan ibaret ?


kolay gelsin..