Missing Field data on paste append

[lacigol]

So, I've noticed when we use a duplicate record command button, the new duplicate record is missing one specific field [Marker Lights] data .

Any suggestions on how this could happen?

Duplicate Record command button does the following:

Private Sub cmdDup_Click()
On Error GoTo Err_cmdDup_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'acCmdSelectRecord
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 'acCmdCopy
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
    Model = Model & " DUP"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'acCmdSaveRecord
    Combo109 = Null
    Model.SetFocus
    
Exit_cmdDup_Click:
    Exit Sub


Err_cmdDup_Click:
    MsgBox Err.Description
    Resume Exit_cmdDup_Click
    
End Sub

[ranman256]

dont copy/paste,
instead use an append query and you can see all the fields.

[June7]

Why are you using DoMenuItem instead of RunCommand?

Is [Marker Lights] a multi-value field? Multi-value fields require special handling with VBA using parent and child recordset objects to copy data to another record.

[lacigol]

Why are you using DoMenuItem instead of RunCommand?

Is [Marker Lights] a multi-value field? Multi-value fields require special handling with VBA using parent and child recordset objects to copy data to another record.

I'm coming behind someone else. I prefer sql, dao.recordsets, and docmd, but more so, I prefer limiting what I change/redo. This code is probably from Access97 days, but I'm mostly curious why it doesn't work properly now.

.[Marker Lights] is a size 50 short text field.

[June7]

So it is not set up to be multi-value? If field is set up in table as a combobox or listbox allowing multiple values, then it is a multi-value field. That's the only reason I can think of why it would not copy/paste.