AccessTr.neT

Ayhan hocam süpersiniz yine, ellerinize sağlık..

elinize sağlık çok güzel olmuş teşekkürler
acaba her tanının başındaki boşlukta silinebilir mi acaba
yani
eğer soldan ilk karakter boş ise
ilk karakter silinsin metindeki harfler birer sola kaysın
şeklinde

sn accessman, LTrim fonksiyonunu kullanabilirsiniz. LTrim( ) kendisine parametre olarak verilen herhangibir tipteki, LTrim$( ) ise karaktersel veya variant tipindeki bilgilerin baş tarafında yer alan boşlukları çıkarır.
Konu ile ilgili olarak mehmet hocanın Access ve Vb’de Karaktersel ve Sayısal Fonksiyonlar -1- konusunu inceleyebilirsiniz.

Sayın Ayhan212 ellerinize sağlık teşekkür ederim.
Sayın accessman elde edilen Tablo1 adlı tablodaki verileri kullanabilmek için bir kaç işlem daha gerekir gibime geliyor. ilki dediğiniz , ikincisi boş kayıtları ayıklamak, üçüncüsü tekrarlayan kayıtları teke indirmek.

LTrim() işlevini
---------------
Private Sub Komut8_Click()
On Error GoTo HATA

Metin6 = Null
For C = 1 To DCount("Sr", "RptProtokolDefteriYeni")
If IsNull(Tanı) Then
DoCmd.GoToRecord , , acNext
Else
For I = 1 To Len(Tanı)
If Mid(Tanı, I, 1) = "," Then
' MsgBox (Metin6)
DoCmd.RunSQL "INSERT INTO Tablo1 ( Tani ) SELECT Metin6;"
Metin6 = ""
Else
Metin6 = Metin6 & Mid(Tanı, I, 1)
End If
Next I
' MsgBox (Metin6)
DoCmd.RunSQL "INSERT INTO Tablo1 ( Tani ) SELECT Metin6;"
DoCmd.GoToRecord , , acNext
End If
Next C

CIKIS: Exit Sub
HATA: MsgBox Err.Description
Resume CIKIS
End Sub
------------------
bu kodun neresine monte etmeliyim
yardım edebilirmisiniz

Sayın accessman; ltrim() fonksiyonu verilen string değerin solundaki yani başındaki boşlukları atar.Trim()fonksiyonu ise başındak ve sonundaki boşlukları atar.
Bu durumda koddaki her iki Sql sorgu satırı
DoCmd.RunSQL "INSERT INTO Tablo1 ( Tani ) SELECT Metin6;" yerine
DoCmd.RunSQL "INSERT INTO Tablo1 ( Tani ) SELECT ltrim(Metin6);" veya trim(Metin6) olacak.
Saygılar.