add one to a duplicated record that checks to see if one exists

K

Kelly

How can I code a duplicate button so it copies the record but verifies a
number in a ConduitNumber field before populating. Below is the query for
this form.

SELECT Conduit.ConduitName, Conduit.SecondaryConduitName,
Conduit.ConduitNumber, ConduitSize.ConduitSizeID, ConduitSize.ConduitSizeIPS,
Conduit.IPSConduitID, Conduit.ConduID, ConduitSize.AreaOfConduit,
ConduitSize.InsideDiaConduit
FROM ConduitSize INNER JOIN Conduit ON ConduitSize.ConduitSizeID =
Conduit.IPSConduitID;
This is what i have for the button

Private Sub CopyConduit_Click()
On Error GoTo Err_CopyConduit_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
[ConduitNumber] = [ConduitNumber] + 1
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

Exit_CopyConduit_Click:
Exit Sub

Err_CopyConduit_Click:
MsgBox Err.Description
Resume Exit_CopyConduit_Click

End Sub

It works but someone might be on the first ConduitNumber of the ConduitName
doing the duplicate and there are four. Any help is greatly appreciated

Kelly
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top