Sorum 001,009,010 gibi kodları almak idi konuyu bu kod ile çözdüm.
Teşekkür ederim
Dim Sql As String
Dim db As Database
Dim rs As DAO.Recordset
M = Len(KS)
For SAY = -4 To M Step 1
sChar = Trim(Mid(KS, InStr(1, KS, ",") + SAY, 4))
TK = RefKsKod + ".1." + sChar
Set db = CurrentDb()
a1 = Len(TK)
SQL = "SELECT * FROM Gemi"
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then Exit Sub
rs.MoveFirst
Do Until rs.EOF
If rs!RefNo = TK Then
rs.Edit
rs!RelFatura = Me.RelFatura
rs.Update
End If
rs.MoveNext
Loop
Next
MsgBox "İşlem tamam"