update multi records on the subform

[SSDA]

I have “animal_sales_main” as a main form and “animal_sales_detials Subform” as a subform contain one record or many records, the control object in the animal_sales_detials Subform it is field “ animal_id”
And I have a table named “animals” has fields “ animal_id” , “ status” .....etc

The target is :
When I add any records in field “animal_id” on the subform “ animal_sales_detials Subform” and click some button :

All the records in the table “animals” that have the same “animal_id “ in the subform will update the “Status” field by word “sold”
?

please, to see the attached picture

Regards

[Seth Schrock]

I can't open the picture while at work. However, what I would do would be to run an UPDATE query in the After_Update event in your animal_id control.

Dim db As DAO.Database
Dim strUpdate As String
 
strUpdate = "UPDATE [Proper_Table_Name] SET Status = 'Sold' " & _
            "WHERE animal_id = " & Me.animal_id
 
Set db = CurrentDb
db.Execute strUpdate, dbFailOnError
 
Set db = Nothing

[SSDA]

thanks Mr. Seth Schrock for your reply