Using one date field for six items in a drop down list

[ndeeley]

Okay...

I've created a drop down list fed by a table. I want my users to select an item in the list, say `Awaiting Repairs`, then fill in a single date text field. When a command button is pressed Access takes this date and fills in one of six disabled text boxes below (ie the one relating to the item in the list).

I can do this for one item in the list, but I can't get Access to recognise the change of item in the list box - say to `Being Repaired` and then use the date in the text field to fill out the appropriate date box underneath.

This make sense? Anyone know how I get Access to associate the inputted date with the item currently shown in the list and complete the relevant locked date field?

Ta
Neil

[puppydogbuddy]

Okay...

I've created a drop down list fed by a table. I want my users to select an item in the list, say `Awaiting Repairs`, then fill in a single date text field. When a command button is pressed Access takes this date and fills in one of six disabled text boxes below (ie the one relating to the item in the list).

I can do this for one item in the list, but I can't get Access to recognise the change of item in the list box - say to `Being Repaired` and then use the date in the text field to fill out the appropriate date box underneath.

This make sense? Anyone know how I get Access to associate the inputted date with the item currently shown in the list and complete the relevant locked date field?

Ta
Neil

The following is untested "air code" that uses the list index. It is just an idea hat you are welcome to try....if you try it, let me know if it works.

Private Sub YourListbox_AfterUpdate()
Dim x as Index
Set x = Me!YourListBox.ListIndex
 
Select Case x
      Case x = 0
          Me!txtLockedDate1 = Me!txtDate.Value
      Case x = 1
          Me!txtLockedDate2 = Me!txtDate.Value
      Case x = 2
          Me!txtLockedDate3 = Me!txtDate.Value
      Case x = 3
          Me!txtLockedDate4 = Me!txtDate.Value
      Case x = 4
          Me!txtLockedDate5 = Me!txtDate.Value
      Case x = 5
          Me!txtLockedDate6 = Me!txtDate.Value
End Select
Set x = Nothing
End Sub