drop down stays populated after a record is created

  • Thread starter Thread starter Brad Reichert
  • Start date Start date
B

Brad Reichert

I've got a form for inventory. and use some code to fill in default specs.
After the record is created and a new record is started the value in the
combo box that controls the population of the spec fields remains. For
example I choose PC model 1 and the specs are filled in. I add the rest of
the data and start a new record and PC model 1 is still in the model combo
box. How do I clear that out?

Here is the code:
Private Sub PCModels_AfterUpdate()
Me!PCModels1 = Me!PCModels.Column(0)
Me!CPU = Me!PCModels.Column(1)
Me!Memory = Me!PCModels.Column(2)
Me!HardDrive = Me!PCModels.Column(3)
Me!VideoCard = Me!PCModels.Column(4)
Me!SoundCard = Me!PCModels.Column(5)
Me!CDROM = Me!PCModels.Column(6)
Me!CDRW = Me!PCModels.Column(7)
End Sub

Thanks,

Brad
 
Brad Reichert said:
I've got a form for inventory. and use some code to fill in default specs.
After the record is created and a new record is started the value in the
combo box that controls the population of the spec fields remains. For
example I choose PC model 1 and the specs are filled in. I add the rest of
the data and start a new record and PC model 1 is still in the model combo
box. How do I clear that out?

Here is the code:
Private Sub PCModels_AfterUpdate()
Me!PCModels1 = Me!PCModels.Column(0)
Me!CPU = Me!PCModels.Column(1)
Me!Memory = Me!PCModels.Column(2)
Me!HardDrive = Me!PCModels.Column(3)
Me!VideoCard = Me!PCModels.Column(4)
Me!SoundCard = Me!PCModels.Column(5)
Me!CDROM = Me!PCModels.Column(6)
Me!CDRW = Me!PCModels.Column(7)
End Sub
Click to expand...

Set it to Null in the Current event of the form.

Me!PCModels = Null
 
Back
Top