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