Dim rs As DAO.Recordset

Dim TelNo As String, AlanKodu As String

AlanKodu = "0342"

    

Set rs = CurrentDb.OpenRecordset("Tablonuz", dbOpenDynaset)



If Not rs.EOF Then

rs.MoveFirst

    Do Until rs.EOF

        TelNo = rs!TelNo

            If Len(TelNo) = 7 Then

                rs.Edit

                rs!TelNo = AlanKodu & TelNo

                rs.Update

            End

        rs.MoveNext

    Loop

End If

    

rs.Close

Set rs = Nothing

benzeri kodla tablonuzdaki verileri recordsete alıp TelNo (kendi tablonuzda ilgili alana uyarlayarak) bazında kayıtları döngüye sokuyoruz ve uzunluğu 7 olanların başına alan kodu ekleyerek kayıtları güncelleyebilirsiniz.