AccessTr.neT
listeye çoklu ekle çıkar kaydet - Baskı Önizleme

+- 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ığı: listeye çoklu ekle çıkar kaydet (/konu-listeye-coklu-ekle-cikar-kaydet.html)

Sayfalar: 1 2 3 4

Cvp: listeye çoklu ekle çıkar kaydet - mhmtogz - 21/05/2013

ilginiz için çok teşekkür ederim, bahsettiğiniz mantıktan eklee çıkarma ve kayıt işlemlerini yaptım... şu an istediğimi gibi çalışıyor..
tek bir sorun kaldı LSTKATILIMCI listesine eklenen verileri çoklu değil sadece ilk ekleneni kayıt ediyor... onun için ne yazacağımı bulamadım onuda yazdıkmı tam oalcak....

Cvp: listeye çoklu ekle çıkar kaydet - dayday - 21/05/2013

syn mhmtogz bu şekildemi istemiştiniz inceleyiniz.

Cvp: listeye çoklu ekle çıkar kaydet - mehmetdemiral - 21/05/2013

Kayıtların tablodaki id numaralarını saydırıp tek tek kayıt göndermek için for next sorgusu yapmalısınız.

Cvp: listeye çoklu ekle çıkar kaydet - mhmtogz - 21/05/2013

dayday hocam kayıt ederken tür uyuşmazlığı hatası verdi...
mehmet demiral hocam evet sanırım öyle olacak,bahsettiğiniz şekilde deniyorum..

Cvp: listeye çoklu ekle çıkar kaydet - mhmtogz - 22/05/2013

for next sorgusunu yapamadım hocam yardımcı olur musunuz?

rs.Open "TBLKATILIMCIALT", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
rs2.Open "T_KATILIMCILAR", CurrentProject.Connection, adOpenDynamic, adLockOptimistic



rs2.AddNew
rs2!DONEMID = Me.AKDONEM
rs2!ADSOYAD = rs("ADI")
rs2!UNVANID = rs("UNVANI")
rs2!ISTASYONID = rs("ISYERI")
rs2.Update


rs2.Close
rs.Close

MsgBox "Veriler başarıyla aktarıldı."

Cvp: listeye çoklu ekle çıkar kaydet - mehmetdemiral - 22/05/2013

form üzerinde bir metin kutusuna kayıtları saydırın. Bunun için KMTEKLE butonunun en son satırına
Kod:
MetinX = LSTKATILIMCI.ListCount
(metinX'i anlatmam gerek yok sanırım) yazın. Böylece adını verdiğiniz metin kutusuna her kayıt eklendiğinde güncel sayı gelecektir. Artık for next sorgusunu yapmak için KMTKAYDET butonunun uygun yerine -ki en altına olabilir-
Kod:
For i = 1 To Val(Me.MetinX)
Next
komutunu koyun. Böylece i değeri 1 den başlayıp MetinX değeri kadar dönecektir.

ANCAAAAK, nereye döneceğini belirtmek gerekir. Bunun için de tabloya eklenecek verilerden birisi 1'den başlayıp son kayda kadar sırasıyla gidecek bir id değeri olmalıdır. Böyle bir değer olduğunda zaten kayıtları saydırmaya da gerek kalmaz, son kayıt sayısını almak yeterlidir.

Kafada şimşek çakmıştır umarım. Bu arada sitede yardım eden arkadaşları onore etmek için rep vermeyi unutmayın. Her işin bir ödülü vardır. Cepten gitmiyor ya Img-grin))