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
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