yalnız bu kod özel şartlar için geçerli d:/no: dan sonra boşluk yazılıp sonra rakam yazılmışsa boş değer verir
If InStr(1, txtAdres3, "D:", 1) > 0 Then bas = InStr(1, txtAdres3, "D:", 1) 'D: var mı diye kontrol eder
If InStr(1, txtAdres3, "D:", 1) = 0 And InStr(1, txtAdres3, "No:", 1) > 0 Then bas = InStr(1, txtAdres3, "No:", 1) 'd: yoksa 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] = IIf(bit = 0, Mid(txtAdres3, bas), Mid(txtAdres3, bas, bit - bas)) yada d:/no: nun en sonda olduğunu varsayarsak aşağıdaki kodu deneyebilirsiniz
If InStr(1, txtAdres3, "D:", 1) > 0 Then bas = InStr(1, txtAdres3, "D:", 1) 'D: var mı diye kontrol eder
If InStr(1, txtAdres3, "D:", 1) = 0 And InStr(1, txtAdres3, "No:", 1) > 0 Then bas = InStr(1, txtAdres3, "No:", 1) 'd: yoksa No: var mı diye kontrol eder
Forms![F_100_KIRASOZLESMESI]![txtAdres2] = Mid(txtAdres3, bas) 