Add a value to the same field for all items on a subform at once

[allenom]

Hello-
I am using Access 2000 to build a database of car parts, and the cars they are currently installed on. I can assign each item on the "parts" table to a particular car listed on the "cars" table (or to its current location if it is not on a car). I can look at the cars individually, and have a subform that shows the parts currently assigned to that car in a list.


That much is great, and is exactly how I want it.
Here is my question:
One of the fields in the "parts" table is "hours." Every time I use a particular car, I would like to increment each of the parts assigned to that car with the hours they were used. Ideally, I would have a form called "Use Vehicle" or similar, and in it I could select the particular car from a dropdown, and a subform would show the particular parts assigned to it. Then, I want to either: a) push a button with a particular time increment (like 0.25 hours) OR b) just enter a value in a box, which would then ADD that number to the "hours" field for every part in the subform.
Is this possible?
Thanks in advance,
Al

[ssanfu]

If I understand right, you want to increment the value in a field named "hours".

So you would have a combo box/list box (cboVehicle) to select the vehicle , a text box (txtIncHours) to enter the amount of hours and a button (btnAddHours) to execute the code.

Select the vehicle, enter to hours, click the button to execute the code.

The following is air code. But it is a start.....

Private Sub btnAddHours_Click()
   Dim sSQL As String

   'you might need more criteria to select only the
   ' vehicle parts for teh specified vehicle if you use the table.
   ' Or use the query for the subform to get the parts.
   sSQL = "UPDATE TableName SET TableName.Hours = [Hours]+ " & Me.txtIncHours
   sSQL = sSQL & " WHERE TableName.Vehicle_ID = " & Me.cboVehicle & ";"

   CurrentDb.Execute sSQL, dbFailOnError

   'might have to requery the subform
End Sub

[allenom]

Thanks, I will give that a try!