merhaba,
konudan tam anlaşılmamış olabilir ama benim sorunum şu:
visual basic kullanarak Access veritabanındaki bir bilgiye ulaşmak istiyorum. ulaşmak istediğim bilgi FIRMA_TEKLIF_ITEM tablosundaki FiyatTeklifi. firmalar her OnayNo için her malzemeye teklif verebilirler. sorun burda ortaya çıkıyor. bir firma bir OnayNo'daki bir malzemeye teklif vermezse visual kodu çalışmıyor. herhangi bir hata vermeden çalışmayı durduruyor. hatayı anlıyorum. döngü ulaşmak istediği alana ulaşamıyor ve duruyor. ancak benim istediğim ulaşmak istediği alan tanımlı olmadığında word'e bir şey aktarmaması yani ilgili alanı boş bırakması. sanırım tam anlatamadım. dosyam ve çıktı almak istediğim şablon ekte. kodu çalıştıran buton ise üzerinde printer resmi olan.
verileri access'ten word'e aktarmayla ilgili bir sorun
Dim malzemeler2(0 To 50) As Integer
değişkenininden hemen sonraya gelecek şekilde şu kodu yerleştirin:
OnayNo alanı boş olduğu için işlemi durdurur ve kod çalışmaz.
Anladığım kadarıyla istediğiniz bu...
Kolay gelsin...
değişkenininden hemen sonraya gelecek şekilde şu kodu yerleştirin:
Kod:
If IsNull(OnayNo) Or OnayNo = "" Then
MsgBox "Onay No alanını boş bıraktınız. Lütfen seçim yapınız...", vbInformation, "D İ K K A T"
Exit Sub
End If
Anladığım kadarıyla istediğiniz bu...
Kolay gelsin...
bu kodu dediğiniz yere ekledim ancak işlevde herhangi bir değişiklik olmadı. benim istediğim böyle boş (tanımsız) bir alan olduğunda o alanı boş olarak geçip diğer fiyatları yazmaya devam etmesi. kodun içindeki sorguda malzeme adları ve firma isimlerini x ve y integer değişkenlerine atadım. ama bir firma herhangi bir malzemeye teklif vermediyse, kod bu fiyat alanını aradığında öyle bir alan bulamıyor ve çalışmayı bırakıyor. oysa çalışmaya devam etse daha yazdıracağı fiyatlar var. ben o fiyatların da yazdırılmasını istiyorum. sanırım ilk mesajda sorunu tam anlatamadım. bu daha açıklayıcı olmuştur umarım. ilginize teşekkür ederim
Tamam, ne yapmak istediğinizi anladım.
Yalnız bir noktayı merak ettim: Bu kodları kim yazdı? Yani örnekteki kodlar kime ait? Bu kodlar acemi birinin elinden çıkmış kodlar değil. Merak ettim sadece. Başka bir forumdan falan mı yaptırdınız?
Başka biri yapmamış ve bütün kodlar size aitse gelin sizi bizim foruma yönetici yapalım... Ben seve seve yerimi size veririm...
Siz benim bu konudaki merakımı giderin, ben de sizin şu kod olayını çözeyim...
Yalnız bir noktayı merak ettim: Bu kodları kim yazdı? Yani örnekteki kodlar kime ait? Bu kodlar acemi birinin elinden çıkmış kodlar değil. Merak ettim sadece. Başka bir forumdan falan mı yaptırdınız?
Başka biri yapmamış ve bütün kodlar size aitse gelin sizi bizim foruma yönetici yapalım... Ben seve seve yerimi size veririm...
Siz benim bu konudaki merakımı giderin, ben de sizin şu kod olayını çözeyim...
bu örnekteki kodları database bilgisi olan bir arkadaşım yazdı. yani internetten hazır bulmadım. ancak kendisi bu aralar başka boş zamanı olmadığını söyledi. o yüzden ben biraz kodlar üzerinde çalıştım ancak soruna bir çözüm bulamadım. şimdi de sizden yardım istiyorum. teşekkür ederim.
Çözüm ektedir.
Fakat gördüğüm kadarıyla bu algoritma çok yavaş. Bir sürü kereler recordset açıp kapıyor.
Bence yapılması gereken mümkün olduğu kadar az recorset açmak,bilgileri bir record array'de tutma, işlem bitince sıradan word'e,excele,listbox'a artık nereye isterseniz göndermek.
O kısmı da sonra vakit bulabilirsem yaparım artık.
Uzun zamandır yoksun diyenlere selam ederim.
Fakat gördüğüm kadarıyla bu algoritma çok yavaş. Bir sürü kereler recordset açıp kapıyor.
Bence yapılması gereken mümkün olduğu kadar az recorset açmak,bilgileri bir record array'de tutma, işlem bitince sıradan word'e,excele,listbox'a artık nereye isterseniz göndermek.
O kısmı da sonra vakit bulabilirsem yaparım artık.
Uzun zamandır yoksun diyenlere selam ederim.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
Descartes
Descartes
Konuyu Okuyanlar: 1 Ziyaretçi