Message Box to Display Number of Records that have just been created

[Symon]

Hi All,

I have a button that duplicates records 'X' amount of times based on a value in a text box.

I need a message box to advise the user that they have created record number from - to

Eg

User creates 5 records - first record created has a auto number of 3200
I need the message box to say 'you have just created records 3200 - 3204

Is this possible?

Here is the current code on the duplicate button

Private Sub AddRecord_Click()On Error GoTo AddRecord_Click_Err


Dim x As Integer
        For x = 1 To (Me.Amount.Value - 1)
    
    DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.RunCommand acCmdRecordsGoToNew
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste


Next x


AddRecord_Click_Exit:
    Exit Sub


AddRecord_Click_Err:
    MsgBox Error$
    Resume AddRecord_Click_Exit


End Sub

Thanks

[ItsMe]

Maybe something like ...

Dim lngRecordStart as Long
Dim lngRecordEnd as Long
Dim x As Integer

        'For x = 1 To (Me.Amount.Value - 1)
        For x = 1 To (Me.Amount.Value)
    
    DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.RunCommand acCmdRecordsGoToNew
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste

If x = 1 then
lngRecordStart = Me![FieldName] 
lngRecordEnd = Me![FieldName]
else
lngRecordEnd = Me![FieldName]
end if

Next x

msgbox "You have just created records " & lngRecordStart & " - " & lngRecordEnd

[Symon]

Brilliant!! worked a treat with a little tweak...

Many thanks.

Private Sub AddRecord_Click()Dim lngRecordStart As Long
Dim lngRecordEnd As Long
Dim x As Integer


        'For x = 1 To (Me.Amount.Value - 1)
        For x = 1 To (Me.Amount.Value - 1)
    
    DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.RunCommand acCmdRecordsGoToNew
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste


If x = 1 Then
lngRecordStart = (Me![Serial Number] - 1)
lngRecordEnd = Me![Serial Number]
Else
lngRecordEnd = Me![Serial Number]
End If


Next x


MsgBox "Creation of serial numbers " & lngRecordStart & " - " & lngRecordEnd
End Sub

[ItsMe]

You bet. Just an FYI. The following four statements are identical. Each will iterate/loop 9 times.

For x = 1 To (10 - 1)
For x = 1 To (9)
For x = 0 To (8)
For x = 2 To (10)