Skip to main content

AccessTr.neT


Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi

Yunus Bozkurt
Yunus Bozkurt
14
5359

Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi

Çözüldü #1
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
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#2
Örnek ekleyiniz.
Please return your positive or negative ...
Cevapla
#3
Sayın Yunus Bozkurt konunun son durumu nedir?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#4
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
.rar AlindiKayit.rar (Dosya Boyutu: 16,2 KB | İndirme Sayısı: 8)
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#5
Ş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
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 22/06/2014, 17:25, Düzenleyen: Yunus Bozkurt.
Cevapla
#6

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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da