İlginiz için teşekkür ederim

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"