如果记录不存在，使用 MsgBox 打开表格到新记录或从连续表格中删除记录

Question

I have a form with a continuous subform that is used to "check out" items. If an item is entered that is not currently in the items table, an error fires.

I would like to create a custom msgbox that will allow the user to select the next action; either open a form to enter the new item (along with a number of details about the item) or to delete the row.

I have been able to fire the msgbox code and successfully open the form to enter a new item, but I cannot get the row to delete from the subform OR use SetProperty to return the value to null .

Here is the current code to launch the MsgBox which is triggered BeforeUpdate, OnError from the control in question.

Function MsgBox_NewAsset()

    MsgBoxResult = MsgBox("The Asset Number you entered is not in the system. Would you like to enter this as a new asset?", 4 + vbQuestion, "New Asset?")

    If MsgBoxResult = 6 Then
    DoCmd.SetWarnings False
    DoCmd.OpenForm "Asset Details", , , "AssetID=0"
    DoCmd.SetWarnings True

    Else
    DoCmd.SetProperty("AssetID",acPropertyValue,"")
    End If

End Function

When setting the SetProperty command using:

DoCmd.SetProperty("AssetID",acPropertyValue,"")

I get a compile error:

Expected: =

I'm relatively new to VBA, so not entirely sure what this indicates.

Answer 1

Try DoCmd.RunCommand acCmdUndo rather than DoCmd.SetProperty(...)

The form is sitting on an uncommitted, new record that can't be committed. To roll it back, use Undo.