VB Excel Rapor Kullanima Hazir

 

Yeni modül ekleyerek kullanmalsiniz.

 

Ayrica Referanslarda /Microsoft Ado Ext. 2 veya üzeri olmalidir.

c:\program files\common files\system\ado\msadox.dll

 

dosyasinida kontrol ediniz.

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

 

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

 

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