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

@benbendedeilem
Son Düzenleme: 13/03/2010, 01:30, Düzenleyen: accessman.