VB Excel Rapor Kullanima Hazir

Arkadaslar ekteki dosyayi alip kullanmaya baslayabilirsiniz. Daha önceki dosyada bulunan sifre hatasi giderildi. Sirketlerin hizli sekilde combobox a getirilmesi saglandi. Tarih kisitlari daha kolay hale getirildi önceden ters yaziliyordu. Çek raporlarina vade tarihi kisiti eklendi. Dashboard çalismalari basladi. Istege göre gelistirilebilir. Dosyayi açmadan önce makrolari etkinlestir demelisiniz.

http://hotfile.com/dl/38897277/f0477ee/Raportr_v2.xls.html

Düzenleyen NeTSiSFoReVeR - 21 Nisan 2010 Saat 12:02

Açilmamasinin nedeni nedir?

Dosyayi açtiktan sonra araçlar/seçenekler/güvenlik/makro açtiktan sonra güveligi orta seviyeye alin. Sonra dosyayi kapatin tekrar açin açarken size makrolari etkinlestirip etkinlestirmeyeceginizi soracaktir. Makrolari etkinlestiri seçin. Sunucu adini bilmiyorsaniz baslat/çalistir/regedit/local machine/software/netsis/4.0/Ticari buraya girdikten sonra sag tarafta veritabanisunucusu var ordaki degerin aynisini excel deki sunucu adina yaziyorsunuz. SQL kullanici adini ve sifreyi giriyorsunuz. Sirketleri getir dedikten sonra sirketi seçiyorsunuz. Daha sonra diger sayfalara geçerek ilgili kisitlari verdikten sonra rapor butonuna tikliyorsunuz. Raporlar çalisiyor.

Tesekkürler NeTSiSFoReVeR güzel bi çalisma olmus emegi geçen ardaslara da tesekkür.

Yaradilani Severim Yaradandan Ötürü

rapor çok güzel elinize saglik

fakat 1-2 özellik eklenmesi gerekiyor.

1- müsteri çek ve senetlerinde teminata verilen çekler eklenmeli

2- kasa raporunda çoklu kasa kullanildigi düsünülmeli.toplamlar kisminda her kasa toplami ayri olmali

3- satis kisminda iadeler var mi? netlesmeli

4- stok kisminda sgnf(yanlis anlamiyorsam son giris net fiyat) herkesin kullandigi bir maliyet fiyati olmayabilir. orada kullaniciya göre degistirme imkani olabilmeli

5- bankalarda bildiginiz gibi borç çeklerini takip edecek bir sistem yok. ben mevduat hesabi gibi borç çeki hesabi açiyorum. bankalar içerisinde mevduat, kredi. borç çeki, tahsil çek, tahsil senet, teminat çek, teminat senet toplamlari da olmali.

6- müsteriler ve saticilar haricinde diger hesaplarda var. onlarida ayrica raporlamak gerekir diye düsünüyorum.

7- ayrica bunlarin özetini olusturacak bilanço gibi bir tablonun da bulunmasi iyi olabilir.

8- combo boxlar HARIKA tekrar tekrar tesekkürler

emegine saglik arkadasim, kolay gelsin

aayhan

belli bir araliktaki satislari getirmiyor kist veremiyoruz yinede emeginize saglik

netsisforever kardes,

müsteri çekleri ve senetleri kisminda tahsile verilen çek ve senetlerin hangi banka hesaplarina verildigini de eklersen daha iyi olur diye düsünüyorum

hadi kolay gelsin...

Bilmediklerimi ayağımın altına alsaydım başım göğe ererdi

tek kelimeyle mükemmel

netsis ayna gibidir kim uyarlıyorsa o kadar cevap verir

hbulus Yazdı:

Çok güzel bir çalisma tebrikler. Acaba rica etsem, bu çalismadaki gibi netsis e baglanti komutu ve bir de kisa bir örnek sorgu verebilir misiniz? Delphi ve sql bilgim var ama VB tecrübem yok. Simdiden tesekkürler.

Sub insertSQL()
Dim cnn As ADODB.Connection
Dim cmdCommand As ADODB.Command
Dim vtSql

Dim say%

    Set cnn = New ADODB.Connection
    cnn.Open "driver={SQL Server};server=SERVER;uid=****;pwd=*****;database=DATABASE"

    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnn
    For say = 6 To 11

       '' If Cells(say, 4) "" Then GoTo SON Else

        '' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        vtSql = ""
        vtSql = vtSql & "INSERT INTO TBLKOSDETAY(BASLANGICTARIHI,BITISTARIHI,MIKTUT,ORANTUTAR,LISTEFIATI,VADEGUNU,STOKKODU,KOSUL_KOD,DEGERI,ISKORAN2,ISKORAN3,ISKORAN4,ISKORAN5,ISKORAN6,MALFMIKTAR1,MALFAZLASI1,MALFMIKTAR2,MALFAZLASI2)VALUES('08/01/2008','12/31/2010','T','O'"
        vtSql = vtSql & " , " & Cells(say, 6)
        vtSql = vtSql & " , " & Cells(say, 5)
        vtSql = vtSql & " , '" & Cells(say, 2)
        vtSql = vtSql & " ' , '" & Cells(say, 4)
        vtSql = vtSql & " ' ," & Cells(say, 7)
        vtSql = vtSql & " , " & Cells(say, 8)
        vtSql = vtSql & " , " & Cells(say, 9)
        vtSql = vtSql & " , " & Cells(say, 10)
        vtSql = vtSql & " , " & Cells(say, 11)
        vtSql = vtSql & " , " & Cells(say, 12)
        vtSql = vtSql & " , " & Cells(say, 13)
        vtSql = vtSql & " , " & Cells(say, 14)
        vtSql = vtSql & " , " & Cells(say, 15)
        vtSql = vtSql & " , " & Cells(say, 16)
        vtSql = vtSql & " ) "


            With cmdCommand
            .CommandText = vtSql
            .CommandType = adCmdText
            .Execute
            End With
SON:
      Next say

    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing

Netsisden vazgeçemiyorum. Beni engelliyor..

Yanıt Yaz	Sayfa 12 3 7 >
Tweet