Adding Incremental Records

[Brian]

I have a table to track equipment in a network, we'll use 24-port hubs
as our example. tblEquipment has fields:
ID - Autonumber
Equipment - Text (Hub,Router,etc)
Location - Text (BLDGA, BLDGB, etc)
RR - Text (RR101.01,RR101.02, etc)
Shelf - Number (1,2,3,etc)
Port - Number (1,2,3,etc)

I want to add a new hub to the network so I create a form frmEquipment
and enter 24 records manually.
HUB,BLDGA,RR101.01,1,1-24

Is there a way to add all 24 records automatically?

Up until now I have been building the data in Excel cause I can
Autofill and importing into the table but I need something easier for
my end users.

[pietlinden]

the easiest way is probably to have the "Starting Port " and "Ending
Port" as unbound text fields on a form and then pass them to a routine
to do it...

Sub AddPorts(lngEquipmentID as Long, lngStart as Long, lngEnd as Long)
dim rsPorts as DAO.Recordset
dim lngCounter as Long

set rsPorts = dbengine(0)(0).OpenRecordset("Equipment",dbopentab le)
for lngCounter = lngStart To lngEnd
with rsPorts
.Addnew
.Fields("PortNumber")=lngCounter
.Fields("EquipmentID")=lngEquipmentID
'--add more fields down here as you need to
.UPDATE '===save the record
end with
next lng Counter

rsPorts.close
set rsPorts=nothing

then you attach all that ugly code to a button and away you go.. oh,
and be sure to check for stupid errors first - like nonumeric values
(set the format to numeric on your textboxes). and values that don't
make sense...etc.

Hpe this gets you started.
Pieter