Increment numbers with starting zeros

[shod90]

dear gents,
um trying to create a loop that insert into a table some data ( Code of Monitors )
the code of monitors is (MR-001 , MR-002, MR-003, ...., MR010,MR011, .. Etc ) i have 100 monitors i need to make a loop that insert them all one time
something like:
Start Number :
Charachters before the numbers :
number of items :

because also i have PC's and the code is (PC-001,PC-002 ,etc..) that's why i need it flexiable to add whatever characters before then the numbering

[ranman256]

make a query to pull the monitors,
then cycle thru naming them:

sSql = "Select * from table where [ItemType]='MONITOR'

Set db = CurrentDb
Set rst = db.OpenRecordset(sSql)
i = 1
With rst
  While Not .EOF
     vName = "MR-" & format(i,"000")
     
     .Edit
       .Fields("CodeName").value = vName
     .Update
     
     .MoveNext
    i = i + 1
  Wend
End With

[ssanfu]

Another Subroutine
Paste the following into a standard module:

Sub AddCodes()

    Dim i As Integer
    Dim EquipPrefix As String
    Dim sSQL As String
    Dim YourTableName As String
    Dim YourFieldName As String

    '=========================
    'Change these to ythe actual table name
    EquipPrefix = "MR"             '<<<--- Change this to the code you want  (MR, PC, ...)
    YourTableName = "tblAssign"    '<<<--- Change this to the actual TABLE name
    YourFieldName = "DriverName"   '<<<--- Change this to the actual FIELD name
    '=========================
    
    For i = 1 To 100
        sSQL = "INSERT INTO " & YourTableName & " (" & YourFieldName & ")"
        sSQL = sSQL & " VALUES ('" & EquipPrefix & Format(i, "000") & "')"
        'Debug.Print sSQL
        CurrentDb.Execute sSQL, dbFailOnError
    Next
    
    MsgBox "Done"
End Sub