Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/07/2018 22:50
Konu Sahibi
barcins
Yorumlar
2
Okunma
230
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

barcins

Aktif Üye*
 43
 18
 65
 29/05/2009
0
 İzmir
 
 Ofis 2007
 Bugün,15:58
Çözüldü 
Arkadaşlar formdan taloya [fgplt] ve [fyil]  alanlarını +1 artırarak istenilet sayıda kayıt işlemesini nasıl yaparız.

Private Sub fcoklukyt_Click()
   Dim rs As Recordset, rs1 As Recordset
    Dim t As Integer
    Set rs = CurrentDb.OpenRecordset("select ISTARIH, SANTIYE, UGRUBU, KALITE, VARDIYA, MUSTERI, URUN, YUZEY, BOY, EN, KALINLIK, BIRIM, ADET, METRAJ, KMETRAJ, BARKOD3, PLTADET, PLTNO_GUN, PLTNO_YIL")
    Set rs1 = CurrentDb.OpenRecordset("ETIKET_GIRIS")
    rs.MoveFirst
    Do Until rs.EOF
        For t = 1 To rs.Fields("ADET")
            rs1.AddNew
                rs1.Fields("ISTARIH") = Me.ftrh1
                rs1.Fields("SANTIYE") = Me.fsantiye
                rs1.Fields("UGRUBU") = Me.fugrub
                rs1.Fields("KALITE") = Me.fkalite
                rs1.Fields("VARDIYA") = Me.fvardiye
                rs1.Fields("MUSTERI") = Me.fmusteri
                rs1.Fields("URUN") = Me.furun
                rs1.Fields("YUZEY") = Me.fyuzey
                rs1.Fields("BOY") = Me.fboy
                rs1.Fields("EN") = Me.fen
                rs1.Fields("KALINLIK") = Me.fkalin
                rs1.Fields("BIRIM") = Me.fbirim
                rs1.Fields("ADET") = Me.fadet
                rs1.Fields("METRAJ") = Me.fsmetraj
                rs1.Fields("BARKOD3") = Me.barkod4
                rs1.Fields("PLTADET") = Me.fetiktadet
                rs1.Fields("PLTNO_GUN") = Me.fgplt + 1
                rs1.Fields("PLTNO_YIL") = Me.fyil + 1
                
            rs1.Update
        Next
        rs.MoveNext
    Loop
    rs.Close
    rs1.Close
    

End Sub


barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub fcoklukyt_Click()
   Dim rs As Recordset, rs1 As Recordset
    Dim t As Integer
    Dim GSAyi As Integer
'    Set rs = CurrentDb.OpenRecordset("select ISTARIH, SANTIYE, UGRUBU, KALITE, VARDIYA, MUSTERI, URUN, YUZEY, BOY, EN, KALINLIK, BIRIM, ADET, METRAJ, KMETRAJ, BARKOD3, PLTADET, PLTNO_GUN, PLTNO_YIL")
    Set rs1 = CurrentDb.OpenRecordset("ETIKET_GIRIS")
'    rs1.MoveFirst
'    Do Until rs1.EOF

    GSAyi = 0

        For t = 1 To Me.fetiktadet
            rs1.AddNew
                rs1.Fields("ISTARIH") = Me.ftrh1
                rs1.Fields("SANTIYE") = Me.fsantiye
                rs1.Fields("UGRUBU") = Me.fugrub
                rs1.Fields("KALITE") = Me.fkalite
                rs1.Fields("VARDIYA") = Me.fvardiye
                rs1.Fields("MUSTERI") = Me.fmusteri
                rs1.Fields("URUN") = Me.furun
                rs1.Fields("YUZEY") = Me.fyuzey
                rs1.Fields("BOY") = Me.fboy
                rs1.Fields("EN") = Me.fen
                rs1.Fields("KALINLIK") = Me.fkalin
                rs1.Fields("BIRIM") = Me.fbirim
                rs1.Fields("ADET") = Me.fadet
                rs1.Fields("METRAJ") = Me.fsmetraj
                rs1.Fields("BARKOD3") = Me.barkod4
                rs1.Fields("PLTADET") = Me.fetiktadet
                rs1.Fields("PLTNO_GUN") = Me.fgplt + GSAyi
                rs1.Fields("PLTNO_YIL") = Me.fyil + GSAyi
                
            rs1.Update
            GSAyi = GSAyi + 1
'            rs1.MoveNext
            
        Next
        
  '  Loop
    rs1.Close

    

End Sub


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

barcins

Aktif Üye*
 43
 18
 65
 29/05/2009
0
 İzmir
 
 Ofis 2007
 Bugün,15:58
sorun çözülmüştür. emeğinize sağlık. teşekkürler.


barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Etikete Tıklandığında Tabloya Kayıtlı Değerler Mesajbox'ta Nasıl Gösterilir. Oğuz Türkyılmaz 8 200 Dün, 15:22
Son Yorum: haliliyas
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 468 Dün, 01:05
Son Yorum: mmert06
Çözüldü İstenilen Zamanda Bilgisayarı Kapatma. barcins 8 104 11/01/2019, 15:30
Son Yorum: barcins
Çözüldü Kayıt Kümesi Türleri notrino 2 82 27/12/2018, 09:18
Son Yorum: notrino
Çözüldü Formdan Tabloya Birleşik Giriş Kutusu İle Kayıt aydint33 5 128 25/12/2018, 11:51
Son Yorum: aydint33

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.