ilk = InStr(1, Me.Text0, "\u003E@") ' 7 karakterlik aradığımız için For Next Döngüsünde +7 vermek gerekli
son = InStr(ilk + 1, Me.Text0, "\u003") ' for next döngüsünde -1 yapmak lazım
MsgBox ilk & " " & son
Yazi = ""
For T = ilk + 7 To son - 1
Yazi = Yazi & Mid(Me.Text0, T, 1)
Next
MsgBox Yazi
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.