Private Sub Form_AfterUpdate()
Dim lngSNO As Long
Dim frm As Form
Dim rs As DAO.Recordset
If IsFormLoaded("frmCargoStatus") Then
Set frm = Forms("frmCargoStatus")("tblCargoStatus subform").Form
lngSNO = frm!Sno
frm.Requery
Set rs = frm.RecordsetClone
rs.FindFirst "[sno] = " & lngSNO
If Not rs.NoMatch Then frm.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
Set frm = Nothing
End If
End Sub
When this code executes it gives error Operation is not supported for this type of object. (Error 3251)
Dim lngSNO As Long
Dim frm As Form
Dim rs As DAO.Recordset
If IsFormLoaded("frmCargoStatus") Then
Set frm = Forms("frmCargoStatus")("tblCargoStatus subform").Form
lngSNO = frm!Sno
frm.Requery
Set rs = frm.RecordsetClone
rs.FindFirst "[sno] = " & lngSNO
If Not rs.NoMatch Then frm.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
Set frm = Nothing
End If
End Sub
When this code executes it gives error Operation is not supported for this type of object. (Error 3251)