Entering text into a textbox with if statment.

[Afrooman108]

This is what i have so far. I need it to fill textbox 53 with the text.

If loyalty bonus is more than or equal to 500.


Sub BONUSDUE()
End Sub
If ([LoyaltyBonus] >= 500) Then
Textbox53 ("Loyalty Bonus Due")
End If

 

[Addyman]

If Me.LoyaltyBonus >= 500 Then
Me.Textbox53 = "Loyalty Bonus Due"
End If

 

[Afrooman108]

Forgot to mention that the loyalty bonus is on a query called age.

 

[Addyman]

OK, in your query, add a new Field:

BonusDue: IIF([LoyaltyBonus]>=500,"Loyalty Bonus Due","")

Then set Textbox53 to have BonusDue as its Control Source.

 

[Afrooman108]

Do you know how to use vba code that deletes a subform when a button is clicked?
But only for the one record that the button is pressed on.