Default value isn't populating the table

[lkennemur]

I have a combo box that has a default value and it is located on a subform. If I don't select a response from the combo box I want the default value to be entered in the table. Right now it's not recognizing it. I have also tried putting this code in the click event on the main form and it still doesn't work. Any ideas?

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.cboEnvironment) Then
Me.cboEnvironment = Me.cboEnvironment.DefaultValue
End If
End Sub

 

[mp9]

Why not set the default value as a property of the underlying table field that the sub-form field is based on?

http://www22.brinkster.com/accessory/

 

[lkennemur]

I tried that but when that happens the QstnID and OperatorID in tblOperatorResponses doesn't populate.

tblOperatorResponses
OperatorResponsesID
OperatorID
QstnID
Response

Any ideas?

Thanks

 

[lkennemur]

My subform has the property DataEntry = yes.

I don't know if that has anything to do with it or not.

 

[TheAceMan1]

How are ya lkennemur . . . . .

For a record to be saved it has to be in [blue]edit mode[/blue] (depicted by the pencil icon). [purple]Writing to the DefaultValue does not trigger edit mode.[/purple] So just [blue]write the value to the control instead (not the default property).

[blue]   Me!TextboxName = SomeValue[/blue]

Your code failed because it does have a value (is not null), the defaultvalue.

See Ya! . . . . . .

 

[lkennemur]

Which event should I put the code into?

Thanks!!!

 

[lkennemur]

Nevermind. I figured it out. Thanks sooo much for your help!!!!