AccessTr.neT

Tam Versiyon: Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.
Sayfalar: 1 2 3