08/02/2014, 23:35
Ozan Hocam,
Klasörün içine attığım dosyalara otomatik sıra numarası vermesi mükemmel oldu ancak; yazdır butonuna bastığımda end debug hatası veriyor du debuga bastığımda ise " Set rs = CurrentDb.OpenRecordset("sorgu 1")" koduna konumlanıyor imleç ve hiç yazdırmıyor du nedenini buldum;
bu kodu
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Sorgu1 SET ÇıktıSayısı = '0', Secim_Yapınız = 0;"
DoCmd.SetWarnings True
Form.Requery
Set rs = Nothing kodunun altına değil de
rs.Close kodunun altına yapıştırıldığında düzgün çalışıyor
set rs nin altına yapıştırılırsa hiç işlem yapmıyor
Ayrıca ölümcül hatalara yönelik hatırlatmanıza da teşekkür ederim ve kodlarımdaki hataları düzeltim.
Konu çözüme kavuşmuştur ozan hocam Allah razı olsun çook teşekkür ederim size ancak;
Dosyaları pdf olarak ön izleme yapmak istiyordum, üzerine gidilen her kaydı web browser üzerinden görmek için, her dosyayı tek tek ön izleme için, ben toplu olarak yapabiliyorum ama tek tek yaptıramadım yeni bir konu mu açayım yoksa burdan mı devam edeyim?
Klasörün içine attığım dosyalara otomatik sıra numarası vermesi mükemmel oldu ancak; yazdır butonuna bastığımda end debug hatası veriyor du debuga bastığımda ise " Set rs = CurrentDb.OpenRecordset("sorgu 1")" koduna konumlanıyor imleç ve hiç yazdırmıyor du nedenini buldum;
bu kodu
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Sorgu1 SET ÇıktıSayısı = '0', Secim_Yapınız = 0;"
DoCmd.SetWarnings True
Form.Requery
Set rs = Nothing kodunun altına değil de
rs.Close kodunun altına yapıştırıldığında düzgün çalışıyor
set rs nin altına yapıştırılırsa hiç işlem yapmıyor
Ayrıca ölümcül hatalara yönelik hatırlatmanıza da teşekkür ederim ve kodlarımdaki hataları düzeltim.
Konu çözüme kavuşmuştur ozan hocam Allah razı olsun çook teşekkür ederim size ancak;
Dosyaları pdf olarak ön izleme yapmak istiyordum, üzerine gidilen her kaydı web browser üzerinden görmek için, her dosyayı tek tek ön izleme için, ben toplu olarak yapabiliyorum ama tek tek yaptıramadım yeni bir konu mu açayım yoksa burdan mı devam edeyim?