'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

y = Me.Liste0.Value



'Dim rs1 As Recordset

Set rs1 = CurrentDb.OpenRecordset(Name:="IPLIK_STOK_GIRIS", Type:=RecordsetTypeEnum.dbOpenDynaset)



    rs1.FindFirst "[ID]=" & y

    Set rs2 = CurrentDb.OpenRecordset("IPLIK_STOK_GIRIS")

    rs2.AddNew

    For x = 1 To rs1.Fields.Count - 1

        rs2(x) = rs1(x)

    Next x

    rs2(10) = kg

    rs2.Update

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

y = Me.Liste0.Value

Set rs1 = CurrentDb.OpenRecordset(Name:="select * from IPLIK_STOK_GIRIS where Id=" & y, Type:=RecordsetTypeEnum.dbOpenDynaset)



    rs1.MoveFirst

    Set rs2 = CurrentDb.OpenRecordset("IPLIK_STOK_GIRIS")

    rs2.AddNew

    For x = 1 To rs1.Fields.Count - 1

        rs2(x) = rs1(x)

    Next x

    rs2(10) = kg

    rs2.Update

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================