Help with code

[steve183]

I'm working on a donation database and I'm a beginner to some degree. A real nebie with code. I've got this txtbox on my mainform and the below code is from a query. It seems to me that the below code could maybe be put in VBA on "after the update" The reason I'm asking for help is the level of donations is going to be growing and it will make a long string in the query grid. Is there another way to write this is vba?

Any help would be appreciated as I'm somewhat lost.

Level: Switch([SumOfDonationAmount] Between 1 And 999," Bronze",
[SumOfDonationAmount] Between 1000 And 4999," Silver",
[SumOfDonationAmount] Between 5000 And 9999," Gold",


[SumOfDonationAmount] Between 10000 And 14999," Platinum")

[TheShabz]

Lets assume the txtbox that the level will be going into is called txtLevel.

Select Case SumOfDonationAmount
Case <1000
Me.txtLevel = "Bronze"
CASE >=1000 AND <5000
Me.txtLevel = "Silver"
Case >=5000 AND <10000
Me.txtLevel = "Gold"
Case >=10000 AND <15000
Me.txtLevel = "Platinum"
Case Else
'error catching here
End Select

[steve183]

Thankyou TheShabz, I'm going to give it a try

Regards