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
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