AccessTr.neT

Gider pusulalarını Access üzerinden takip etmek istiyorum tek tek girdiğimde herhangi bir sorun yok. Fakat 50 tane defter aldığımda bunların topluca girilmesi kısmında takıldım biraz defterin Adı, Cilt nosu ve Sayfa Numaraları( 50 yapraklık ciltler) aldığım tarih alanlarını topluca girmem mümkün müdür.
Gider pusulası
Alım Tarihi 05.05.2014
Cilt No : 101

Şimdi bu 101 nolu ciltten 50 defter birden giriş yapmam lazım
101 : 0001-0050
101 : 0051-0100
101 : 0101-0150 adı alım tarihi vb bilgiler
101 : 0151-0200

Örnek ekleyiniz.

Sayın Yunus Bozkurt konunun son durumu nedir?

Valla henüz bir şey yapamadım kafamda da bir şey oluşmadı örneği ekliyorum sade tablo bir bakın isterseniz sorguyla filan yapmam lazım gibi ama biraz daha kafa yormak lazım

Şu kodu düzeltebilirmisiniz eklenecek tablonun ismi Defterler

Private Sub Komut64_Click()

Dim ciltserinumara As Integer

Dim ciltilksayfaNO As Integer

Dim SondefterIlkSayfa As Integer

Dim gondermetarihi As Date

Dim gondermeno As Integer

Dim ambartarihi As Date

Dim ambarno As Integer

ciltserinumara = Me.txtCiltSeriNO

ciltilksayfaNO = Me.txtCildilkSayfa

SondefterIlkSayfa = Me.txtAdeti

gondermetarihi = Me.txtGonderimTarihi

gondermeno = Me.txtGonderimNo

ambartarihi = Me.txtAmbaraGirTar

ambarno = Me.txtAmbarNo

    If ciltilksayfaNO <= SondefterIlkSayfa Then

        ciltilksayfaNO = ciltilksayfaNO + 50

            insert into defterler ( CildinSerisi,Cildin İlk SahifeNosu,_

                GonderimYaziTarih,GonderimYaziNO,AmabaraGirisTar,AmbaraGirBelgeNo)



                values (ciltserinumara,ciltilksayfaNO,gondermetarihi,_

                    gondermeno,ambartarihi,ambarno)

        Else

    End If

End Sub

Dim ciltserinumara, ciltilksayfaNO, SondefterIlkSayfa, gondermeno, ambarno As Integer

Dim gondermetarihi, ambartarihi As Date



    ciltserinumara = Me.txtCiltSeriNO

    ciltilksayfaNO = Me.txtCildilkSayfa

    SondefterIlkSayfa = Me.txtAdeti

    gondermetarihi = Me.txtGonderimTarihi

    gondermeno = Me.txtGonderimNo

    ambartarihi = Me.txtAmbaraGirTar

    ambarno = Me.txtAmbarNo

    

    If ciltilksayfaNO <= SondefterIlkSayfa Then

    

        ciltilksayfaNO = ciltilksayfaNO + 50

        DoCmd.RunSQL "INSERT INTO defterler (CildinSerisi,Cildin İlk SahifeNosu, GonderimYaziTarih,GonderimYaziNO,AmabaraGirisTar,AmbaraGirBelgeNo) VALUES (" & ciltserinumara & " '," & ciltilksayfaNO & "," & gondermetarihi & "," & gondermeno & "," & ambartarihi & "," & ambarno & ")"

    End If

olarak deneyin.