+- 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ığı: metin ayırma (/konu-metin-ayirma.html)
Cvp: metin ayırma - ercansahin - 13/03/2010
Ayhan hocam süpersiniz yine, ellerinize sağlık..
Cvp: metin ayırma - accessman - 13/03/2010
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
Cvp: metin ayırma - ercansahin - 13/03/2010
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.
Cvp: metin ayırma - Hayri16 - 13/03/2010
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.
Cvp: metin ayırma - accessman - 13/03/2010
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
Cvp: metin ayırma - Hayri16 - 13/03/2010
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.