[code]
Dim str As String
Do
'ilk karakterden itibaren tükçe karakter kontrol et
ilk_karakter = 1
max_karakter = 139
eklenti = ""
tara = 1
Do
parca = Mid(not1, tara, 1)

If parca = vbCrLf Then
str = Replace(str, vbCrLf, "", 1)
MsgBox "enter"
End If

eklenti = eklenti & parca
tara = tara + 1
Loop Until tara >= max_karakter

eklenti = Left(eklenti, InStrRev(eklenti, "

merhaba arkadaşlar, Access kullandıkça her türlü çalışamda kullanası geliyor insanın

sonum şu şekilde ekte F_SIHIRBAZ_EGITMEN adlı formda
egitmeni açılan kutudan seçip ekel dediğimde LSTEGITMEN listesine ekleyecek,
çıkar dediğimde listeden çıkacak....
böyle 4-5 tane eğitmen seçtikten sonra kaydet tıkladığımızda T_EGITMENLER tablosuna alt alta hepsini kaydedicek... daha önce böyle çalışmalar gördüm ama iş stresi olsa gerek kafamı bir türlü veremedim yardımcı olursanız sevinirim... iyi ç

daha önce açılan kutudan listeye ekle çıkar ve kaydetle ilgili bir soru sormuştum ama çözlmüşlere kaldırıldığı için tekrar konu açmak zorunda kaldım..

aynı işlemi daha çok veriyle nasıl yapacağımı bulamadım...

MTNADSOYAD,AKUNVAN,AKISTASYON seçilerek ekle dediğimde bunları LSTKATILIMCI listesine eklenmesini çıkar dediğimde çıkmasını istiyorum daha sonra Dönemde seçilerek kaydet dediğimde sırayla kaydetmesini...
teşekkür ederim...