Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi
Tarih
05/05/2014 15:22
Konu Sahibi
Yunus Bozkurt
Yorumlar
14
Okunma
2172
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Yunus Bozkurt
attman
Kullanici Avatari
Aktif Üye
Y.... B....
147
18/08/2011
0
Sinop
Ofis 2010 64 Bit
12/12/2016,16:58
Çözüldü 
Sponsor Reklam
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

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Dün,10:26
Örnek ekleyiniz.
Please return your positive or negative ...
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Sponsor Reklam
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

Yunus Bozkurt
attman
Kullanici Avatari
Aktif Üye
Y.... B....
147
18/08/2011
0
Sinop
Ofis 2010 64 Bit
12/12/2016,16:58
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


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

Yunus Bozkurt
attman
Kullanici Avatari
Aktif Üye
Y.... B....
147
18/08/2011
0
Sinop
Ofis 2010 64 Bit
12/12/2016,16:58
Sponsor Reklam
Şu kodu düzeltebilirmisiniz eklenecek tablonun ismi Defterler

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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…
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tabloya Resim Yolu Eklenen Resmi Raporda Gösterme siyahca 2 63 19/01/2017, 16:59 siyahca
  Raporda yürüyen bakiye kadirdursun 2 78 11/01/2017, 13:14 kadirdursun
  Listedeki tüm kayıtları tabloya ekleme nightashes 2 99 01/01/2017, 11:54 nightashes
  FORMDA BULUNAN VERİYİ TABLOYA KOPYALAMA fatihkara 12 343 21/12/2016, 18:32 fatihkara
  Tablodan başka Tabloya ilişki Kurma 53rize 2 134 21/12/2016, 13:01 53rize


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya