Skip to main content

AccessTr.neT


verileri access'ten word'e aktarmayla ilgili bir sorun

alperalper00
alperalper00
9
4264

verileri access'ten word'e aktarmayla ilgili bir sorun

Çözüldü #1
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.
.rar accesstr4.rar (Dosya Boyutu: 73,89 KB | İndirme Sayısı: 22)
Cevapla
Çözüldü #2
Dim malzemeler2(0 To 50) As Integer
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

OnayNo alanı boş olduğu için işlemi durdurur ve kod çalışmaz.

Anladığım kadarıyla istediğiniz bu...

Kolay gelsin...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
Çö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.
.rar accesstr.rar (Dosya Boyutu: 79,41 KB | İndirme Sayısı: 32)
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task