Kod:
if InStr ( 1, txtAdres3, "D:", 1 )>0 then bas=InStr ( 1, txtAdres3, "D:", 1 ) 'D: var mı diye kontrol eder
if InStr ( 1, txtAdres3, "No:", 1 )>0 then bas=InStr ( 1, txtAdres3, "No:", 1 ) 'No: var mı diye kontrol eder
bit=InStr ( bas, txtAdres3, " ", 1 ) 'D:/No: dan sonraki ilk boşluğu kontrol eder
Forms![F_100_KIRASOZLESMESI]![txtAdres2] =mid(txtAdres3, bas, bit-bas) ' mid(txtAdres3, bas, bit-bas) tstadres3 teki D:/No: ile boşluk arasındaki karakterleri alır.