Private Sub Form_Open(Cancel As Integer)
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SupplyInventoryId] = " [Forms![frm_Chemical]![frm_ChemicalStorageSupplyLocation subform].Form![SupplyInventoryId]],)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
|