I think this is closer to what you want:
Code:
Dim rs As Object
Dim strBookmark As String
On Error GoTo Err_command_close_form_Click
'set a varible to the current record
strBookmark = Forms!Fm_Inventory.Bldg_Number
'requery the form
Forms!Fm_Inventory.Requery
'bring us back to the original record
Set rs = Forms!Fm_Inventory.RecordsetClone
rs.FindFirst "Bldg_Number ='" & strBookmark & "'"
Forms!Fm_Inventory.Bookmark = rs.Bookmark
Exit_command_close_form_Click:
Set rs = Nothing
DoCmd.Close acForm, Me.Name
Exit Sub
Err_command_close_form_Click:
MsgBox Err.Description
Resume Exit_command_close_form_Click