VBA code stop adding value when textbox exceed 50

[Georgi]

Good day to all,

I have built a database somewhere I need to create a button to add (1) more item to the text box but the number in that text box should not exceed (50) and also note that the text box should be locked to prevent manually changing data. Is there any VBA code to stop adding values to the text box whenever the number reaches 50?

Please see attached file.



Thank you in advance and have a great day.

[June7]

You are adding multiple (up to 50!!) distinct values in a single field? This is extremely bad db design. Recommend you NOT do this.

[Missinglinq]

The OP is talking about increasing a quantity by 1 each time the Command Button is clicked, but limiting it to 50.

Change your OnClick code to

Private Sub Command1_Click()
 If Me.Quantity < 50 Then
   Me.Quantity = Me.Quantity + 1
 End If
End Sub

Linq ;0)>

[Georgi]

The OP is talking about increasing a quantity by 1 each time the Command Button is clicked, but limiting it to 50.

Change your OnClick code to

Private Sub Command1_Click()
 If Me.Quantity < 50 Then
   Me.Quantity = Me.Quantity + 1
 End If
End Sub

Linq ;0)>

Good day, thank you very much it works now I appreciate that,

Please see attached picture how the database looks like,

Have a great day,
Georgi

[June7]

And when I re-read OP it is so obvious! Must have been half asleep. Glad Linq got you on the right track.

[Georgi]

Hi Guys, one more question:
How can I classify this post as resolved?
Thank you in advance,
Georgi

[Bob Fitz]

See: https://www.accessforums.net/forum-s...lved-1828.html

[Missinglinq]

Glad we could help!

Linq ;0)>