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....
syn mhmtogz bu şekildemi istemiştiniz inceleyiniz.
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.
dayday hocam kayıt ederken tür uyuşmazlığı hatası verdi...
mehmet demiral hocam evet sanırım öyle olacak,bahsettiğiniz şekilde deniyorum..
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ı."
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
))