Print the newly added record to a report

[AngelaZeb]

I have a MS Access unbound form that supposed to collect data from a user then add the new record to a table (tblResearchReq) then print preview the newly added record in a report after the user clicks the submit button. I use DAO to add the new record and the rst.Bookmark = rst.LastModified to position the recordset to the last modified record. The record gets added to the table but object variable is not being set. Getting error "object Variable not set from the rst.Bookmark = rst.LastModified. Code is as follows:

Private Sub cmdSubmit_Click()
On Error GoTo Err_cmdSubmit_Click
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim StrWhere As String
 
Set rst = CurrentDb.OpenRecordset(Name:="tblResearchReq", Type:=RecordsetTypeEnum.dbOpenDynaset)
 
    If IsNull(Me.cboResearchCat) Or Me.cboResearchCat = "" Then
        MsgBox "Request Category is required", vbOKOnly, "Research Request"
        Me.cboResearchCat.SetFocus
        Exit Sub
    End If
    If IsNull(Me.ChkAmt) Then
        MsgBox "Check Amount is required", vbOKOnly, "Research Request"
        Me.ChkAmt.SetFocus
        Exit Sub
    End If
    If IsNull(Me.ItemNo) Then
        MsgBox "Item Number is required", vbOKOnly, "Research Request"
        Me.ItemNo.SetFocus
        Exit Sub
    End If
    If IsNull(Me.Payer) Or Payer = "" Then
        MsgBox "Payer is required", vbOKOnly, "Research Request"
        Me.Payer.SetFocus
        Exit Sub
    End If
 
    With rst
    .AddNew
        rst!RecID = Me.RecID
        rst!BatchDate = Me.BatchDate
        rst!DepositType = Me.DepositType
        rst!Requestor = Me.Requestor
        rst!ResearchCat = Me.cboResearchCat
        rst!RequestType = Me.cboRequestType
        rst!ChkAmt = Me.ChkAmt
        rst!ItemNo = Me.ItemNo
        rst!Payer = Me.Payer
        rst!Comments = Me.Comments
        rst!Foundations = Me.chkFoundations
        rst!ePremis = Me.chkEPremis
        rst!HC = Me.chkHC
        rst!HealthLogic = Me.chkHealthLogic
        rst!Other = Me.chkOther
        rst!CashPro = Me.chkCashPro
        rst!ResReqTime = Now()
    .Update
'   .Bookmark = .LastModified
    End With
'rst.Bookmark = rst.LastModified
 
StrWhere = "ResReqID = " & Me.ResReqID
DoCmd.OpenReport "rpt911InvBatch", acViewPreview, , StrWhere
 
rst.Close
db.Close
 
Exit_cmdSubmit_Click:
    Exit Sub
 
Err_cmdSubmit_Click:
    MsgBox Err.Description
    Resume Exit_cmdSubmit_Click
End Sub

The front-end links to tables in an MS Access Back-end. I've tried variations of setting up the recordset and googled everything I could think of to find a resolution and now just seem to be spinning my wheels. I hope I am being specific and provided the appropriate amount information. Thanks ahead of time for any assistance you can provide.

[ADezii]

Not all Recordsets support Bookmarks and this can easily be determined by:

With rst
  .AddNew
    !RecID = Me.RecID
    !BatchDate = Me.BatchDate
    !DepositType = Me.DepositType
    !Requestor = Me.Requestor
    !ResearchCat = Me.cboResearchCat
    !RequestType = Me.cboRequestType
    !ChkAmt = Me.ChkAmt
    !ItemNo = Me.ItemNo
    !Payer = Me.Payer
    !Comments = Me.Comments
    !Foundations = Me.chkFoundations
    !ePremis = Me.chkEPremis
    !HC = Me.chkHC
    !HealthLogic = Me.chkHealthLogic
    !Other = Me.chkOther
    !CashPro = Me.chkCashPro
    !ResReqTime = Now()
  .Update
End With
 
If rst.Bookmarkable Then
  rst.Bookmark = rst.LastModified
End If