Help with dataentry errors

V

VB Challenged

Form is called New-Edit
I have an option group with three options
Out - Option11 with the value of 1
In - Option13 with the value of 2
Consult - Opiton15with the value of 3

If the Out is input,
then I want a field (combo box) hospital name to default to Memorial

If the In is input,
then I want a field (combo box) Receiving to default to Memorial

How is this best accomplished?
 
P

pietlinden

Private Sub Frame0_AfterUpdate()
If Me.Frame0.Value = 1 Then
Me.cboHospital = "Memorial"
End If


End Sub
 
Top