Not filling in text box's

[Greyowlsl]

Hi,

The code below wont seem to do anything, doesn't fill in anything

Private Sub cboTypeOfService_AfterUpdate()

If Me.cboTypeOfService = "Warranty Exchange" Or Me.cboTypeOfService = "Dealer Exchange" Then
    Me![FAULT_WARRANTY_EX] = "1"
    Me.Refresh
    Me.txtCustomerComments = "Exchange"
Else: GoTo NO_FAULT_EX

End If

NO_FAULT_EX:
Me![FAULT_WARRANTY_EX] = "0"
Me.Refresh
If Me.txtCustomerComments = "Exchange" Then
    Me.txtCustomerComments = ""
  End If

end sub

Thanks,
Leon

 

[John Big Booty]

What data is being held in the bound column of your Combo cboTypeOfService?

You could try;

Private Sub cboTypeOfService_AfterUpdate()

If Me.cboTypeOfService[B][COLOR="Red"].Text[/COLOR][/B] = "Warranty Exchange" Or Me.cboTypeOfService[B][COLOR="Red"].Text[/COLOR][/B] = "Dealer Exchange" Then
    Me![FAULT_WARRANTY_EX] = "1"
    Me.Refresh
    Me.txtCustomerComments = "Exchange"
Else: GoTo NO_FAULT_EX

End If

NO_FAULT_EX:
Me![FAULT_WARRANTY_EX] = "0"
Me.Refresh
If Me.txtCustomerComments = "Exchange" Then
    Me.txtCustomerComments = ""
  End If

end sub