+- 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ığı: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin (/konu-yeni-kayit-eklerken-metin-kutusundaki-sayi-kadar-satir-eklesin.html)
Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - Acemi54 - 30/09/2023
Hayırlı akşamlar. Hocalarım benim bir sorum olacak. Acceste kayıt ekleme sayfam var, verileri tüm kutulara giriyorum ve Kaydet butonuna bastığım zaman Yıllık Plan Miktarı kutusuna yazdığım sayı kadar yazdıklarımı kopyalayarak satır eklemesini istiyorum bu konuda bana yardımcı olursanuız sevinirim. Şimdiden teşekkür ederim.
RE: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - berduş - 30/09/2023
Yıllık Plan Miktarı en fazla ne kadar olabilir,
genelde ne kadar oluyor
RE: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - Acemi54 - 01/10/2023
(30/09/2023, 22:01)berduş yazdı: Yıllık Plan Miktarı en fazla ne kadar olabilir,
genelde ne kadar oluyor
Sınır yok hocam ama şimdiye kadar 100 'ün altı.
RE: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - berduş - 01/10/2023
yalnız şöyle bir sorun var ana formunuz tabloya bağlı dolayısıyla siz ister kaydet deyin ister demeyin tek bir metin kutusuna veri girmişseniz kayıt otomatik olarak eklenecektir
siz ekle düğmesine basar basmaz 5 tane daha eklenecektir
yada siz kayıtlar arasında dolaşırken dalgınlığınıza geldi ekle düğmesine bastınız daha önceden 5 eklenmişti bir 5 tane daha eklenebilir
tablonun kontrolünü yapmak çalışmanızın mantığını bilmeden zor.
stokno alanı belirleyici alansa kontrol ona göre sağlanabilir belki
Private Sub Komut3_Click()
DoCmd.RunCommand acCmdSaveRecord
xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "'") + 1
For x = xSay To Nz(Me.PLAN_MİKTAR_YIL, 0)
xSQL = "INSERT INTO [T_VERİ] ( STOK, MALZEME, SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY , PLAN_MİKTAR_AY) values " & _
"('" & Nz(Me.STOK, "") & "','" & Nz(Me.MALZEME, "") & "','" & Nz(Me.SİPARİŞNU, "") & "'," & _
Nz(Me.SİPARİŞ_MİKTARI, 0) & "," & Nz(Me.PLAN_YIL, 0) & "," & Nz(Me.PLAN_MİKTAR_YIL, 0) & "," & _
Nz(Me.PLAN_AY, 0) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "
CurrentDb.Execute (xSQL)
Next x
Me.F_KAYIT_ALT_FORM.Requery
End SubRE: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - Acemi54 - 01/10/2023
Teşekkür ederim hocam işin mantığını kavradım sayılır. Ufak tefek pürüzleri çözerim inşallah.
RE: Yeni Kayıt Eklerken Metin Kutusundaki Sayı Kadar Satır Eklesin - berduş - 01/10/2023
rica ederim
iyi çalışmalar