Kod:
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, " "))
not2 = eklenti
son_eklenti = Len(eklenti)
son_not = Right(not1, Len(not1) - son_eklenti)
not3 = not1
not1 = son_not
DoCmd.RunSQL "INSERT INTO sms_yaz ( sms ) SELECT [Formlar]![Form1]![not2] AS Deyim1;"
sms_yaz.Requery
Loop Until Len(son_not) < 140son kelime yarım kalıyorsa bir önceki kelimede kesiyor
ama yapamadığım şu
eğer metinde bir sonraki satıra geçiren vbCrLf varsa
bunu kaldırıp " " boşluk ile değişitrmek istiyorum
ama
If parca = vbCrLf Then
satırı çalışmıyor
bunu nasıl ifade edebilirim
teşekkürler
