Is there a way to copy a record more than once from a form?

[busterbaxter]

Hi All,

I'm farely new with access so this question may seem really simple. I have an existing inventory database that I'm trying to make changes to. The database only has 1 table with the following fields:

PartNumber
ItemDescription
Category
Location
Owner
SerialNumber.

Currently I'm using the copy button to add similar items but this just adds one record per click. This is not really efficient if I have to add 300 disk drives. Is there a way where I can prompt the user to ask how many he/she would like to copy?

Or

Could I have a 'Quantity' text box on the form that will input the number of records that equal the quantity. (So if quantity = 5, the database would enter 5 records).?

The database currently does not have a quantity field. It counts items by the number of records.

Thanks,

Kevin

[missinglinq]

If you're entering serial numbers for each piece of equipment you wouldn't want a "quantity" field on your records, would you? You'd only want to calculate totals, apprently the way you're already doing.

Place an unbound textbox, call it NumberCopies.

Private Sub cmdMultiCopy_Click()
Dim Copies as Integer
 
If Me.Dirty Then Me.Dirty = False
 
If Not IsNull(Me.NumberCopies) then
  Copies = Me.NumberCopies
Else
Copies = 1
End If
 
For I = 1 To Copies
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdCopy
  DoCmd.GoToRecord , , acNewRec
  DoCmd.RunCommand acCmdPaste
Next I
 
End Sub

If the user enters a number into NumberCopies, that many copies will be generated. If they don't enter a number, the default is one copy.

Welcome to Bytes

Linq ;0)>!

[busterbaxter]

Hi Linq,

Thanks for the quick reply. I'm having a little trouble on getting the code right. I created the unbound text box in my form and called it NumberCopies. However when I go to put the code in I select 'NumberCopies' from the left pull down and the right pull down defaults to 'BeforeUpdate'. The code looks like this:

Private Sub NumberCopies_BeforeUpdate(Cancel As Integer)

End Sub

When I put your code in it the left drop down is set to 'General and the right pull down is set to 'cmdMultiCopy_Click.'

Thanks,

Kevin

[busterbaxter]

Linq,

Nevermind....I was being a Newbie...Thanks for the code it works great.

Kevin

=)

[missinglinq]

Glad we could help!

Linq ;0)>