Private Sub Komut9_Click()
On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tablo1")
rs.MoveFirst
Dim harf, harfler, il, rakkam As String
Dim ilkbosluk, ikincibosluk As Integer
Do Until rs.EOF
 
 
        rs.Edit
        ilkbosluk = InStr(Trim(rs("plaka")), " ")
        ikincibosluk = InStr(CInt(ilkbosluk), Trim(rs("plaka")), " ")
 
        If ilkbosluk > 2 And ikincibosluk > 2 Then
         rs("yeniplaka") = Trim(rs("plaka"))
         rs.Update
         ilkbosluk = 0
         ikincibosluk = 0
        GoTo devam
        End If
            il = Left(rs("plaka"), 2)
            harf = Mid(rs("plaka"), 3, Len(rs!plaka) - 2)
            For i = 1 To Len(harf)
                If IsNumeric(Mid(harf, i, 1)) Then
                     harfler = Left(harf, i - 1)
                     rakkam = Right(harf, Len(harf) - (i - 1))
 
                     rs("yeniplaka") = il & " " & harfler & " " & rakkam
                     rs.Update
 
              Exit For
                  End If
         Next i
 
devam:
      rs.MoveNext
Loop
rs.Close
db.Close
Me.Requery
End Sub