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
Tabloya İstenilen Sayı Kadar Kayıt Yaratma
Bu Konudaki Yorumlar |
Tabloya İstenilen Sayı Kadar Kayıt Yaratma - Yazar: barcins - 03/07/2018, 22:50
Cvp: Tabloya İstenilen Sayı Kadar Kayıt Yaratma - Yazar: ozanakkaya - 04/07/2018, 10:25
Cvp: Tabloya İstenilen Sayı Kadar Kayıt Yaratma - Yazar: barcins - 04/07/2018, 14:35
|
Konuyu Okuyanlar: 1 Ziyaretçi