Im trying to change a combo box's row source on focus. Dont know why it wont work!

[sirantonycartwr]

ok, ive sorted it out, Access put incorrect SQL code in the vba code!!!!
Ant...

 

[sirantonycartwr]

if anyone is struggling with this, your code should be similar to this:

Private Sub SubscriptionType_GotFocus()
If Me.Parent.StakeholderType = "member (corp)" Or Me.Parent.StakeholderType = "customer (corp)" Or Me.Parent.StakeholderType = "external agency (corp)" Then
     Me.SubscriptionType.RowSource = "SELECT tblSubscriptionTypes.SubscriptionTypes FROM tblSubscriptionTypes WHERE tblSubscriptionTypes.SubscriptionTypes Like '*corp*'"
End If
If Me.Parent.StakeholderType = "member (private)" Or Me.Parent.StakeholderType = "customer (private)" Or Me.Parent.StakeholderType = "external agency (private)" Then
     Me.SubscriptionType.RowSource = "SELECT tblSubscriptionTypes.SubscriptionTypes FROM tblSubscriptionTypes WHERE tblSubscriptionTypes.SubscriptionTypes Not Like '*corp*'"
End If
End Sub