+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Select İle Kayıt Ekleme (/konu-select-ile-kayit-ekleme.html)
Select İle Kayıt Ekleme - alikagan - 07/06/2022
iyi akşamlar arkadaşlar,
eklediğim örnekte,
liste kutusundaki herhangi bir kaydı seçip,
yenikg alanına da yazdığım miktar (gelen kg)
KAYDI COĞALT butonuna tıkladığımda liste kutusundan seçmiş olduğum kayda ait tüm verileri tablodan alıp, sadece kg kısmını formdaki yenikg alanından alarak, tabloya yeni kayıt eklemek istiyorum,
yardımcı olabilirmisiniz?
[img]
RE: Select İle Kayıt Ekleme - berduş - 07/06/2022
ID no da mı aynı olacak?
ID no aynı olamaz çünkü benzersiz alan
RE: Select İle Kayıt Ekleme - alikagan - 07/06/2022
ID NO AYNI OLMAYACAK, O OTOMATİK,
ID HARİÇ
RE: Select İle Kayıt Ekleme - berduş - 07/06/2022
'================>>>>>>>>>>>>>>> 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 <<<<<<<<<<<<<<<<<<<<===================RE: Select İle Kayıt Ekleme - alikagan - 07/06/2022
sayın üstadım, yardımın için çok teşekkür ederim,
açmış olduğum sorun çözülmüştür.
RE: Select İle Kayıt Ekleme - berduş - 07/06/2022
Rica ederim
İyi çalışmalar)